Changeset 13417


Ignore:
Timestamp:
Jan 29, 2010, 12:51:49 AM (10 years ago)
Author:
rme
Message:

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

(from Tim Bradshaw)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/compile-ccl.lisp

    r13085 r13417  
    520520(defvar *ccl-save-source-locations* :no-text)
    521521
    522 (defun rebuild-ccl (&key update full clean kernel force (reload t) exit reload-arguments verbose optional-features (save-source-locations *ccl-save-source-locations*))
     522(defun rebuild-ccl (&key update full clean kernel force (reload t) exit
     523                    reload-arguments verbose optional-features
     524                    (save-source-locations *ccl-save-source-locations*)
     525                    allow-constant-redefinition)
    523526  (let* ((*build-time-optional-features* (intersection *known-optional-features* optional-features))
    524527         (*features* (append *build-time-optional-features* *features*))
    525          (*save-source-locations* save-source-locations))
     528         (*save-source-locations* save-source-locations)
     529         (*cerror-on-constant-redefinition* (not allow-constant-redefinition)))
    526530    (when *build-time-optional-features*
    527531      (setq full t))
Note: See TracChangeset for help on using the changeset viewer.