Changeset 9744


Ignore:
Timestamp:
Jun 13, 2008, 12:18:51 PM (11 years ago)
Author:
mb
Message:

Drop the form slot of the source-location slot.

It's unused and causing problems.

Location:
branches/working-0711/ccl/level-1
Files:
2 edited

Legend:

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

    r9734 r9744  
    260260(defvar *save-definitions* nil)
    261261(defvar *save-local-symbols* t)
    262 (defvar *save-source-locations* #+gz t #-gz nil
     262(defvar *save-source-locations* t
    263263  "Controls whether complete source locations is stored.
    264264
  • branches/working-0711/ccl/level-1/l1-reader.lisp

    r9735 r9744  
    25172517                  t
    25182518                  (and start-pos
    2519                        (make-source-note :form form
    2520                                          :stream stream
     2519                       (make-source-note :stream stream
    25212520                                         :start-pos (1- start-pos)
    25222521                                         :end-pos end-pos
     
    30073006  ;; Code coverage state.  This MUST be the first slot - see nx2-code-coverage.
    30083007  code-coverage
    3009   ;; The actual form - useful during debugging, perhaps remove later.
    3010   #+(or debug gz) form
    30113008  ;; For the outermost source form, a string (the text of the form).
    30123009  ;; For an inner source form, the source-note of the outer source form.
     
    30313028;;; we don't actually store source-note structs in the fasl since that runs into problems dumping
    30323029;;; the struct.
    3033 (defun source-note-for-%lfun-info (note &key (start t) (end t) (text t) (form nil) (parent-note nil) (file-name t))
     3030(defun source-note-for-%lfun-info (note &key (start t) (end t) (text t) (parent-note nil) (file-name t))
    30343031  (append (when start (list :start (source-note-start-pos note)))
    30353032          (when end   (list :end  (source-note-end-pos note)))
    30363033          (when text (list :%text (%fast-compact (source-note-text note))))
    3037           (when form  #+debug (list :form (source-note-form note)))
    30383034          (when parent-note (list :parent-note (source-note-parent-note note)))
    30393035          (when file-name (list :file-name (source-note-file-name note)))))
     
    31363132            (form (read-internal stream nil eofval nil)))
    31373133       (values form (and (neq form eofval)
    3138                          (%make-source-note #+debug :form #+debug form
    3139                                             :file-name file-name
     3134                         (%make-source-note :file-name file-name
    31403135                                            :start-pos (+ (or start-offset 0) start)
    31413136                                            :end-pos (+ (or start-offset 0) (file-position stream)))))))))
     
    31463141      (destructuring-bind (map file-name stream-offset) (cdr recording)
    31473142        (let* ((prev (gethash form map))
    3148                (note (%make-source-note #+debug :form #+debug form
    3149                                         :file-name file-name
     3143               (note (%make-source-note :file-name file-name
    31503144                                        :start-pos (+ stream-offset start-pos)
    31513145                                        :end-pos (+ stream-offset end-pos))))
Note: See TracChangeset for help on using the changeset viewer.