Changeset 9627


Ignore:
Timestamp:
May 30, 2008, 11:39:33 AM (11 years ago)
Author:
gz
Message:

The source note form slot was supposed to be #+debug, make it so

File:
1 edited

Legend:

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

    r9620 r9627  
    29992999  code-coverage
    30003000  ;; The actual form - useful during debugging, perhaps remove later.
    3001   form
     3001  #+debug form
    30023002  ;; For the outermost source form, a string (the text of the form).
    30033003  ;; For an inner source form, the source-note of the outer source form.
     
    30263026          (when end   (list :end  (source-note-end-pos note)))
    30273027          (when text (list :%text (%fast-compact (source-note-text note))))
    3028           (when form  (list :form (source-note-form note)))
     3028          (when form  #+debug (list :form (source-note-form note)))
    30293029          (when parent-note (list :parent-note (source-note-parent-note note)))
    30303030          (when file-name (list :file-name (source-note-file-name note)))))
     
    30533053  (print-unreadable-object (note stream :type t :identity t)
    30543054    (let ((text (and (source-note-p note) (ignore-errors (source-note-text note)))))
    3055       (when (and (null text) (code-note-form note))
    3056         (setq text (ignore-errors
    3057                     (let ((*print-circle* t))
    3058                       (format nil "~s" (code-note-form note))))))
     3055      #+debug (when (and (null text) (code-note-form note))
     3056                (setq text (ignore-errors
     3057                             (let ((*print-circle* t))
     3058                               (format nil "~s" (code-note-form note))))))
    30593059      (when (> (length text) 20)
    30603060        (let ((end (position #\Newline text :start 20)))
     
    31303130            (form (read-internal stream nil eofval nil)))
    31313131       (values form (and (neq form eofval)
    3132                          (%make-source-note :form form
     3132                         (%make-source-note #+debug :form #+debug form
    31333133                                            :file-name file-name
    31343134                                            :start-pos (+ (or start-offset 0) start)
     
    31403140      (destructuring-bind (map file-name stream-offset) (cdr recording)
    31413141        (let* ((prev (gethash form map))
    3142                (note (%make-source-note :form form
     3142               (note (%make-source-note #+debug :form #+debug form
    31433143                                        :file-name file-name
    31443144                                        :start-pos (+ stream-offset start-pos)
Note: See TracChangeset for help on using the changeset viewer.