Changeset 12633


Ignore:
Timestamp:
Aug 20, 2009, 2:25:18 AM (10 years ago)
Author:
gz
Message:

Add source-note-toplevel-note

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-reader.lisp

    r12551 r12633  
    30713071        (null source)))))
    30723072
     3073(defun source-note-toplevel-note (source-note)
     3074  (when source-note
     3075    (loop for source = (source-note-source source-note)
     3076          while (source-note-p source)
     3077          do (setq source-note source))
     3078    source-note))
     3079
    30733080(defvar *recording-source-streams* ())
    30743081
Note: See TracChangeset for help on using the changeset viewer.