Changeset 9627

Timestamp:

May 30, 2008, 4:39:33 AM (16 years ago)

Author:

gz

Message:

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

File:

• branches/working-0711/ccl/level-1/l1-reader.lisp (modified) (5 diffs)

branches/working-0711/ccl/level-1/l1-reader.lisp

@@ -2999 +2999 @@
   code-coverage
   ;; The actual form - useful during debugging, perhaps remove later.
-  form
+  #+debug form
   ;; For the outermost source form, a string (the text of the form).
   ;; For an inner source form, the source-note of the outer source form.
@@ -3026 +3026 @@
           (when end   (list :end  (source-note-end-pos note)))
           (when text (list :%text (%fast-compact (source-note-text note))))
-          (when form  (list :form (source-note-form  note)))
+          (when form  #+debug (list :form (source-note-form note)))
           (when parent-note (list :parent-note (source-note-parent-note note)))
           (when file-name (list :file-name (source-note-file-name note)))))
@@ -3053 +3053 @@
   (print-unreadable-object (note stream :type t :identity t)
     (let ((text (and (source-note-p note) (ignore-errors (source-note-text note)))))
-      (when (and (null text) (code-note-form note))
-        (setq text (ignore-errors
-                    (let ((*print-circle* t))
-                      (format nil "~s" (code-note-form note))))))
+      #+debug (when (and (null text) (code-note-form note))
+                (setq text (ignore-errors
+                             (let ((*print-circle* t))
+                               (format nil "~s" (code-note-form note))))))
       (when (> (length text) 20)
         (let ((end (position #\Newline text :start 20)))
@@ -3130 +3130 @@
             (form (read-internal stream nil eofval nil)))
        (values form (and (neq form eofval)
-                         (%make-source-note :form form
+                         (%make-source-note #+debug :form #+debug form
                                             :file-name file-name
                                             :start-pos (+ (or start-offset 0) start)
@@ -3140 +3140 @@
       (destructuring-bind (map file-name stream-offset) (cdr recording)
         (let* ((prev (gethash form map))
-               (note (%make-source-note :form form
+               (note (%make-source-note #+debug :form #+debug form
                                         :file-name file-name
                                         :start-pos (+ stream-offset start-pos)