Opened 4 years ago

#1293 new enhancement

Record source locations for symbol macros

Reported by: heller2 Owned by:
Priority: normal Milestone:
Component: other Version: trunk
Keywords: Cc:

Description

CCL doesn't record the source location of symbol macros. E.g. loading this file

(define-symbol-macro foo 123)
(format t "definition-sources: ~a~%" (ccl:find-definition-sources 'foo))

just prints definition-sources: nil

A patch like this would improve the situation:

Index: l1-readloop.lisp
===================================================================
--- l1-readloop.lisp	(revision 16447)
+++ l1-readloop.lisp	(working copy)
@@ -240,6 +240,7 @@
 				     'constant
 				     'variable)))
   (setf (gethash name *symbol-macros*) expansion)
+  (record-source-file name 'symbol-macro)
   name)
 
 (defvar *macroexpand-hook* 'funcall

Change History (0)

Note: See TracTickets for help on using tickets.