Changeset 12037 for trunk/source/level-1


Ignore:
Timestamp:
May 12, 2009, 8:01:03 PM (10 years ago)
Author:
gz
Message:

Remove some old bootstrapping code

File:
1 edited

Legend:

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

    r11385 r12037  
    30863086                      ((consp prev) (cons note prev))
    30873087                      (t (list note prev))))
    3088           (loop for sub in subform-notes as subnote = (require-type sub 'source-note)
     3088          (loop for subnote in subform-notes
    30893089            do (when (source-note-source subnote) (error "Subnote ~s already owned?" subnote))
    30903090            do (setf (source-note.source subnote) note))
Note: See TracChangeset for help on using the changeset viewer.