Changeset 12965


Ignore:
Timestamp:
Oct 9, 2009, 8:08:37 PM (10 years ago)
Author:
gz
Message:

add source-note-toplevel-note (r12633)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-reader.lisp

    r12959 r12965  
    30843084        (null source)))))
    30853085
     3086(defun source-note-toplevel-note (source-note)
     3087  (when source-note
     3088    (loop for source = (source-note-source source-note)
     3089          while (source-note-p source)
     3090          do (setq source-note source))
     3091    source-note))
     3092
    30863093(defvar *recording-source-streams* ())
    30873094
Note: See TracChangeset for help on using the changeset viewer.