Changeset 8684


Ignore:
Timestamp:
Mar 7, 2008, 8:41:06 PM (12 years ago)
Author:
gz
Message:

source-note-string-and-offset allow for unknown source. Not sure yet if that can happen legitimately, but for now at least don't crash

File:
1 edited

Legend:

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

    r8683 r8684  
    30843084               (multiple-value-bind (parent-string parent-offset)
    30853085                                    (source-note-string-and-offset source)
    3086                  (values parent-string (+ parent-offset (- start parent-start))))))))))
     3086                 (when parent-string
     3087                   (values parent-string (+ parent-offset (- start parent-start)))))))))))
    30873088
    30883089(defvar *recording-source-streams* ())
Note: See TracChangeset for help on using the changeset viewer.