Custom Query (1030 matches)

It's annoying to see have the argument list for STRING-CAT displayed as "CCL::STRING-CAT : (&REST CCL::STRS)". This is especially annoying when the window's package is CCL.

I can see an argument for including the package qualifier for the function name, especially if that package is different from the window's package. But I don't think there's any reason to ever include the package qualifiers for the parameters.

Index: x86-disassemble.lisp
===================================================================
--- x86-disassemble.lisp        (revision 6984)
+++ x86-disassemble.lisp        (working copy)
@@ -2273,8 +2273,8 @@
                    
            (setf (x86-di-mnemonic instruction)
                  (case intop
-                   (#xc0 "uuo-error-two-few-args")
-                   (#xc1 "uuo-error-two-many-args")
+                   (#xc0 "uuo-error-too-few-args")
+                   (#xc1 "uuo-error-too-many-args")
                    (#xc2 "uuo-error-wrong-number-of-args")
                    (#xc4 (progn (setq stop nil) "uuo-gc-trap"))
                    (#xc5 "uuo-alloc")

Compile and load this file:

(let ()
  (defun foo () t))

(defun bar () t)

Then:

? (function-source-note #'foo) 
#<SOURCE-NOTE "ccl:test.lisp":30-46 "(defun bar () t)">