Changeset 8683


Ignore:
Timestamp:
Mar 7, 2008, 6:01:13 PM (12 years ago)
Author:
gz
Message:

Fix in source-note-for-%lfun-info

File:
1 edited

Legend:

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

    r8681 r8683  
    30153015  (append (when start (list :start (source-note-start-pos note)))
    30163016          (when end   (list :end  (source-note-end-pos note)))
    3017           (when text
    3018             (let ((source (source-note-source note)))
    3019               (list :%text
    3020                     (%fast-compact
    3021                      (etypecase source
    3022                        (string source)
    3023                        (source-note (source-note-source source))
    3024                        (code-note (code-note-source source)))))))
     3017          (when text (list :%text (%fast-compact (source-note-text note))))
    30253018          (when form  (list :form (source-note-form  note)))
    30263019          (when parent-note (list :parent-note (source-note-parent-note note)))
    30273020          (when file-name (list :file-name (source-note-file-name note)))))
    30283021
     3022#+bit-rotted
    30293023(defun source-note-from-%lfun-info (lfun-info)
    30303024  (let ((note-plist (getf lfun-info 'function-source-note)))
Note: See TracChangeset for help on using the changeset viewer.