[Openmcl-cvs-notifications] r12664 - in /trunk/source: level-1/l1-init.lisp lib/prepare-mcl-environment.lisp

[gz at clozure.com]

Author: gz
Date: Mon Aug 24 15:28:15 2009
New Revision: 12664

Log:
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-DEVELOPM=
ENT-ENVIRONMENT.

The reasoning is this: :no-text only makes sense for files that don't chang=
e.  For files that change, it's worse than useless.  For files that don't c=
hange, 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.

Modified:
    trunk/source/level-1/l1-init.lisp
    trunk/source/lib/prepare-mcl-environment.lisp

Modified: trunk/source/level-1/l1-init.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-init.lisp (original)
+++ trunk/source/level-1/l1-init.lisp Mon Aug 24 15:28:15 2009
@@ -260,7 +260,7 @@
 (defparameter *level-1-loaded* nil)     ; set t by l1-boot
 (defparameter *save-definitions* nil)
 (defparameter *save-local-symbols* t)
-(defparameter *save-source-locations* :no-text
+(defparameter *save-source-locations* T
   "Controls whether source location information is saved, both for definit=
ions (names) and
 in function objects.
 =


Modified: trunk/source/lib/prepare-mcl-environment.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/prepare-mcl-environment.lisp (original)
+++ trunk/source/lib/prepare-mcl-environment.lisp Mon Aug 24 15:28:15 2009
@@ -52,28 +52,31 @@
 (defun set-user-environment (&optional (freeze-definitions nil))
   "Arrange that the outermost special bindings of *PACKAGE* and
 *WARN-IF-REDEFINE-KERNEL* restore values of the CL-USER package and T
-respectively. If the optional argument is true, marks all globally
-defined functions and methods as being predefined (this is a fairly
+respectively, and set *CCL-SAVE-SOURCE-LOCATIONS* to :NO-TEXT.
+If the optional argument is true, marks all globally defined
+functions and methods as being predefined (this is a fairly
 expensive operation.)"
   (when freeze-definitions
     (freeze-current-definitions))
   ;; enable redefine-kernel-function's error checking
   (%reset-outermost-binding '*warn-if-redefine-kernel* t)
   ;; Set the top-level *package* to the CL-USER package
-  (%reset-outermost-binding '*package* (find-package "CL-USER")))
+  (%reset-outermost-binding '*package* (find-package "CL-USER"))
+  (setq *ccl-save-source-locations* :NO-TEXT))
 =

 (defun set-development-environment (&optional (thaw-definitions nil))
   "Arrange that the outermost special bindings of *PACKAGE* and
 *WARN-IF-REDEFINE-KERNEL* restore values of the CCL package and NIL
-respectively. If the optional argument is true, mark all globally
-defined functions and methods as being not predefined (this is a
-fairly expensive operation.)"
+respectively, and set *ccl-save-source-locations* to T. If the
+optional argument is true, mark all globally defined functions and
+methods as being not predefined (this is a fairly expensive operation.)"
   (when thaw-definitions
     (thaw-current-definitions))
   ;; enable redefine-kernel-function's error checking
   (%reset-outermost-binding '*warn-if-redefine-kernel* nil)
   ;; Set the top-level *package* to the CCL package
-  (%reset-outermost-binding '*package* (find-package "CCL")))
+  (%reset-outermost-binding '*package* (find-package "CCL"))
+  (setq *ccl-save-source-locations* T))
   =

 =

 =