From 6bee0ed9ab9893c4df744a0d710c06f6bc12551f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 13 Mar 2018 22:34:36 -0700
Subject: asm: no package qualifiers in textual disassembly.

* share/txr/stdlib/asm.tl (assembler dis-listing): Use
tostringp when converting the opcode and arguments to text, so
package prefixes won't be shown when the current package isn't
sys.
---
 share/txr/stdlib/asm.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl
index b9025ed7..ff7dfb87 100644
--- a/share/txr/stdlib/asm.tl
+++ b/share/txr/stdlib/asm.tl
@@ -177,7 +177,7 @@
     me.(set-pos p)
     (while (< p l)
       (let* ((dis me.(dis-one))
-             (dis-txt (cat-str [mapcar tostring dis] " "))
+             (dis-txt (cat-str [mapcar tostringp dis] " "))
              (q me.(cur-pos)))
         me.(set-pos p)
         (format t "~,5d: ~,08X ~a\n" (trunc p 4) me.(get-word) dis-txt)
-- 
cgit v1.2.3