Custom Query (1030 matches)

Currently, meta-dot on a structure accessor quietly fails. It should go to the defstruct, and ideally the cursor should be at the line that defines the slot.

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)"> 

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")