Changeset 12945


Ignore:
Timestamp:
Oct 9, 2009, 5:20:08 PM (10 years ago)
Author:
gz
Message:

*ccl-save-source-locations* (r12664, r12634)

Location:
branches/working-0711/ccl
Files:
3 edited

Legend:

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

    r12347 r12945  
    261261(defparameter *save-definitions* nil)
    262262(defparameter *save-local-symbols* t)
    263 (defparameter *save-source-locations* :no-text
     263(defparameter *save-source-locations* T
    264264  "Controls whether complete source locations is stored, both for definitions (names) and
    265265in function objects.
  • branches/working-0711/ccl/lib/compile-ccl.lisp

    r12410 r12945  
    516516(defparameter *known-optional-features* '(:count-gf-calls :monitor-futex-wait :unique-dcode))
    517517(defvar *build-time-optional-features* nil)
    518 
    519 
    520 (defun rebuild-ccl (&key update full clean kernel force (reload t) exit reload-arguments verbose optional-features)
     518(defvar *ccl-save-source-locations* :no-text)
     519
     520(defun rebuild-ccl (&key update full clean kernel force (reload t) exit reload-arguments verbose optional-features (save-source-locations *ccl-save-source-locations*))
    521521  (let* ((*build-time-optional-features* (intersection *known-optional-features* optional-features))
    522          (*features* (append *build-time-optional-features* *features*)))
     522         (*features* (append *build-time-optional-features* *features*))
     523         (*save-source-locations* save-source-locations))
    523524    (when *build-time-optional-features*
    524525      (setq full t))
  • branches/working-0711/ccl/lib/prepare-mcl-environment.lisp

    r3953 r12945  
    5353  "Arrange that the outermost special bindings of *PACKAGE* and
    5454*WARN-IF-REDEFINE-KERNEL* restore values of the CL-USER package and T
    55 respectively. If the optional argument is true, marks all globally
    56 defined functions and methods as being predefined (this is a fairly
     55respectively, and set *CCL-SAVE-SOURCE-LOCATIONS* to :NO-TEXT.
     56If the optional argument is true, marks all globally defined
     57functions and methods as being predefined (this is a fairly
    5758expensive operation.)"
    5859  (when freeze-definitions
     
    6162  (%reset-outermost-binding '*warn-if-redefine-kernel* t)
    6263  ;; Set the top-level *package* to the CL-USER package
    63   (%reset-outermost-binding '*package* (find-package "CL-USER")))
     64  (%reset-outermost-binding '*package* (find-package "CL-USER"))
     65  (setq *ccl-save-source-locations* :NO-TEXT))
    6466
    6567(defun set-development-environment (&optional (thaw-definitions nil))
    6668  "Arrange that the outermost special bindings of *PACKAGE* and
    6769*WARN-IF-REDEFINE-KERNEL* restore values of the CCL package and NIL
    68 respectively. If the optional argument is true, mark all globally
    69 defined functions and methods as being not predefined (this is a
    70 fairly expensive operation.)"
     70respectively, and set *ccl-save-source-locations* to T. If the
     71optional argument is true, mark all globally defined functions and
     72methods as being not predefined (this is a fairly expensive operation.)"
    7173  (when thaw-definitions
    7274    (thaw-current-definitions))
     
    7476  (%reset-outermost-binding '*warn-if-redefine-kernel* nil)
    7577  ;; Set the top-level *package* to the CCL package
    76   (%reset-outermost-binding '*package* (find-package "CCL")))
     78  (%reset-outermost-binding '*package* (find-package "CCL"))
     79  (setq *ccl-save-source-locations* T))
    7780 
    7881
Note: See TracChangeset for help on using the changeset viewer.