Changeset 12664


Ignore:
Timestamp:
Aug 24, 2009, 7:28:15 PM (10 years ago)
Author:
gz
Message:

Change *SAVE-SOURCE-LOCATIONS* default from :NO-TEXT to T. Leave *CCL-SAVE-SOURCE-LOCATIONS* as :NO-TEXT by default, but set it to T in SET-DEVELOPMENT-ENVIRONMENT.

The reasoning is this: :no-text only makes sense for files that don't change. For files that change, it's worse than useless. For files that don't change, it works just fine and saves space. For most users, the ccl sources are read-only, so :no-text is fine for building ccl. Users who modify ccl sources should do (set-development-environment) in their init files to set up the best environment for doing so.

Location:
trunk/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-init.lisp

    r12632 r12664  
    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 source location information is saved, both for definitions (names) and
    265265in function objects.
  • trunk/source/lib/prepare-mcl-environment.lisp

    r3953 r12664  
    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.