Index: /branches/working-0711/ccl/level-1/l1-reader.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 9626)
+++ /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 9627)
@@ -2999,5 +2999,5 @@
   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,5 +3026,5 @@
           (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,8 +3053,8 @@
   (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,5 +3130,5 @@
             (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,5 +3140,5 @@
       (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)