[Openmcl-devel] The MAX-1-BIT-CONSTANT-INDEX error

[Tim Bradshaw]

On 28 Jan 2010, at 21:00, R. Matthew Emerson wrote:

> My (perhaps incorrect) assumption is that this problem is peculiar  
> to your method of rebuilding;  if I'm wrong about that, then maybe  
> it would make sense to provide another keyword argument to REBUILD- 
> CCL to do this, rather than relying on binding a magic internal  
> special variable.

That's more-or-less true - it's an artifact of a workaround for a  
deficiency in SVN I guess.

I'd not thought that the making-lots-of-images was laborious which I  
should have - I'm fine to just continue from the error.

Below is a patch for REBUILD-CCL which adds a keyword to allow  
constant redefinition, if that seems worth it.

--tim

--cut--
Index: compile-ccl.lisp
===================================================================
--- compile-ccl.lisp    (revision 13413)
+++ compile-ccl.lisp    (working copy)
@@ -519,10 +519,14 @@
  (defvar *build-time-optional-features* nil)
  (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))
      (when full