Index: /branches/working-0711/ccl/level-1/l1-init.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-init.lisp	(revision 9743)
+++ /branches/working-0711/ccl/level-1/l1-init.lisp	(revision 9744)
@@ -260,5 +260,5 @@
 (defvar *save-definitions* nil)
 (defvar *save-local-symbols* t)
-(defvar *save-source-locations* #+gz t #-gz nil
+(defvar *save-source-locations* t
   "Controls whether complete source locations is stored.
 
Index: /branches/working-0711/ccl/level-1/l1-reader.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 9743)
+++ /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 9744)
@@ -2517,6 +2517,5 @@
                   t
                   (and start-pos
-                       (make-source-note :form form
-                                         :stream stream
+                       (make-source-note :stream stream
                                          :start-pos (1- start-pos)
                                          :end-pos end-pos
@@ -3007,6 +3006,4 @@
   ;; Code coverage state.  This MUST be the first slot - see nx2-code-coverage.
   code-coverage
-  ;; The actual form - useful during debugging, perhaps remove later.
-  #+(or debug gz) 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.
@@ -3031,9 +3028,8 @@
 ;;; we don't actually store source-note structs in the fasl since that runs into problems dumping
 ;;; the struct.
-(defun source-note-for-%lfun-info (note &key (start t) (end t) (text t) (form nil) (parent-note nil) (file-name t))
+(defun source-note-for-%lfun-info (note &key (start t) (end t) (text t) (parent-note nil) (file-name t))
   (append (when start (list :start (source-note-start-pos note)))
           (when end   (list :end  (source-note-end-pos note)))
           (when text (list :%text (%fast-compact (source-note-text 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)))))
@@ -3136,6 +3132,5 @@
             (form (read-internal stream nil eofval nil)))
        (values form (and (neq form eofval)
-                         (%make-source-note #+debug :form #+debug form
-                                            :file-name file-name
+                         (%make-source-note :file-name file-name
                                             :start-pos (+ (or start-offset 0) start)
                                             :end-pos (+ (or start-offset 0) (file-position stream)))))))))
@@ -3146,6 +3141,5 @@
       (destructuring-bind (map file-name stream-offset) (cdr recording)
         (let* ((prev (gethash form map))
-               (note (%make-source-note #+debug :form #+debug form
-                                        :file-name file-name
+               (note (%make-source-note :file-name file-name
                                         :start-pos (+ stream-offset start-pos)
                                         :end-pos (+ stream-offset end-pos))))