Changeset 9800


Ignore:
Timestamp:
Jun 20, 2008, 8:59:27 PM (11 years ago)
Author:
gz
Message:

Reinstate %parse-expression passing the :form argument to make-source-form
(i.e. undo r9744). The form slot was removed back in r9627, but the :form
argument to make-source-form is something different, and removing it breaks
code coverage.

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

Legend:

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

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

    r9744 r9800  
    25172517                  t
    25182518                  (and start-pos
    2519                        (make-source-note :stream stream
     2519                       (make-source-note :form form
     2520                                         :stream stream
    25202521                                         :start-pos (1- start-pos)
    25212522                                         :end-pos end-pos
     
    30063007  ;; Code coverage state.  This MUST be the first slot - see nx2-code-coverage.
    30073008  code-coverage
     3009  ;; The actual form - useful for debugging, otherwise unused.
     3010  #+(or debug gz) form
    30083011  ;; For the outermost source form, a string (the text of the form).
    30093012  ;; For an inner source form, the source-note of the outer source form.
Note: See TracChangeset for help on using the changeset viewer.