Changeset 12965

Timestamp:

Oct 9, 2009, 1:08:37 PM (15 years ago)

Author:

gz

Message:

add source-note-toplevel-note (r12633)

File:

• branches/working-0711/ccl/level-1/l1-reader.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-reader.lisp

@@ -3084 +3084 @@
         (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* ())