Changeset 12633

Timestamp:

Aug 19, 2009, 7:25:18 PM (15 years ago)

Author:

gz

Message:

Add source-note-toplevel-note

File:

• trunk/source/level-1/l1-reader.lisp (modified) (1 diff)

trunk/source/level-1/l1-reader.lisp

@@ -3071 +3071 @@
         (null source)))))
 
+(defun source-note-toplevel-note (source-note)
+  (when source-note
+    (loop for source = (source-note-source source-note)
+          while (source-note-p source)
+          do (setq source-note source))
+    source-note))
+
 (defvar *recording-source-streams* ())