Changeset 13417

Timestamp:

Jan 28, 2010, 4:51:49 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

REBUILD-CCL: add new keyword argument :allow-constant-redefinition.
If true, do not CERROR when a constant is redefined.

(from Tim Bradshaw)

File:

• trunk/source/lib/compile-ccl.lisp (modified) (1 diff)

trunk/source/lib/compile-ccl.lisp

@@ -520 +520 @@
 (defvar *ccl-save-source-locations* :no-text)
 
-(defun rebuild-ccl (&key update full clean kernel force (reload t) exit reload-arguments verbose optional-features (save-source-locations *ccl-save-source-locations*))
+(defun rebuild-ccl (&key update full clean kernel force (reload t) exit
+                    reload-arguments verbose optional-features
+                    (save-source-locations *ccl-save-source-locations*)
+                    allow-constant-redefinition)
   (let* ((*build-time-optional-features* (intersection *known-optional-features* optional-features))
          (*features* (append *build-time-optional-features* *features*))
-         (*save-source-locations* save-source-locations))
+         (*save-source-locations* save-source-locations)
+         (*cerror-on-constant-redefinition* (not allow-constant-redefinition)))
     (when *build-time-optional-features*
       (setq full t))