Ignore:
Timestamp:
Mar 7, 2008, 6:20:54 AM (12 years ago)
Author:
gz
Message:

Hook up the source location stuff again

File:
1 edited

Legend:

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

    r8646 r8681  
    30123012;;; we don't actually store source-note structs in the fasl since that runs into problems dumping
    30133013;;; the struct.
    3014 (defun source-note-for-%lfun-info (note &key (start t) (end t) (text t) (form t) (parent-note t) (file-name t))
     3014(defun source-note-for-%lfun-info (note &key (start t) (end t) (text t) (form nil) (parent-note nil) (file-name t))
    30153015  (append (when start (list :start (source-note-start-pos note)))
    30163016          (when end   (list :end  (source-note-end-pos note)))
Note: See TracChangeset for help on using the changeset viewer.