rmcl-update0001.zip - rebuilding RMCL

RMCLers (that is everyone other than Clozure),

Following <ftp://clozure.com/pub/rmcl-updates> to 
readme-rmcl-updates.rtf, hence
and rmcl-notes.pdf, I thought I'd be a good boy 
and follow Gary's wisdom and dive in via the 
shell etc. But I stumble during rebuilding RMCL at
Launch PPCCL	=> OK
(compile-ccl t) => seems OK
(xload-level-0 :force) =>

Can't find #4P"ccl:xdump;xppcfasload.cfsl" so 
requiring "ccl:xdump;xppcfasload.lisp" instead
;Compiler warnings :
;   Undefined function WRITE-PEF-FILE, in XPPC-DUMP-IMAGE.
Can't find #4P"ccl:xdump;pef-file.cfsl" so 
requiring "ccl:xdump;pef-file.lisp" instead
; Warning:  FUNCTION ROUND-UP previously defined in: ccl:lib;pathnames.lisp
;                   is now being redefined in: ccl:XDump;pef-file.lisp
;
; While executing: RECORD-SOURCE-FILE
; Warning:  FUNCTION CREATE-CFRG-HANDLE 
previously defined in: ccl:lib;pathnames.lisp
;                   is now being redefined in: ccl:XDump;pef-file.lisp
;
; While executing: RECORD-SOURCE-FILE
Can't find #4P"ccl:xdump;xsym.cfsl" so requiring "ccl:xdump;xsym.lisp" instead
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:l0-aprims.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:l0-array.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:l0-cfm-support.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:l0-def.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:l0-hash.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:l0-init.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:l0-misc.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:l0-pred.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:l0-symbol.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:l0-utils.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:nfasload.lisp"...
;Compiler warnings for "S:Users:user:src:rmcl:new:rmcl:Level-0:nfasload.lisp" :
;   Undefined function PFSL-SHARED-LIBRARY-OFFSET, in an anonymous lambda form.
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-array.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-bignum.lisp"...
; Warning:  CONSTANT MAXIMUM-BIGNUM-LENGTH 
previously defined in: 
ccl:compiler;PPC;number-macros.lisp
;                   is now being redefined in: ccl:Level-0;PPC;ppc-bignum.lisp
;
; While executing: RECORD-SOURCE-FILE
; Warning:  TYPE BIGNUM-INDEX previously defined 
in: ccl:compiler;PPC;number-macros.lisp
;                   is now being redefined in: ccl:Level-0;PPC;ppc-bignum.lisp
;
; While executing: RECORD-SOURCE-FILE
; Warning:  FUNCTION %ALLOCATE-BIGNUM previously defined in: ccl:lib;time.lisp
;                   is now being redefined in: ccl:Level-0;PPC;ppc-bignum.lisp
;
; While executing: RECORD-SOURCE-FILE
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-clos.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-complex.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-debug.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-def.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-float.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-hash.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-int.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-io.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-misc.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-numbers.lisp"...
; Warning:  FUNCTION FIXNUM-TO-BIGNUM-SET 
previously defined in: 
ccl:Level-0;PPC;ppc-bignum.lisp
;                   is now being redefined in: ccl:Level-0;PPC;ppc-numbers.lisp
;
; While executing: RECORD-SOURCE-FILE
; Warning:  FUNCTION WITH-SMALL-BIGNUM-BUFFERS 
previously defined in: 
ccl:Level-0;PPC;ppc-bignum.lisp
;                   is now being redefined in: ccl:Level-0;PPC;ppc-numbers.lisp
;
; While executing: RECORD-SOURCE-FILE
;Compiling 
"S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-pfsl-library.lisp"...
; Warning:  FUNCTION DEFINE-L0-TRAP-FUNCTION 
previously defined in: ccl:Level-0;nfasload.lisp
;                   is now being redefined in: 
ccl:Level-0;PPC;ppc-pfsl-library.lisp
;
; While executing: RECORD-SOURCE-FILE
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-pred.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-symbol.lisp"...
;Compiling "S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-utils.lisp"...
;Loading #P"S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-array.cfsl"...
;Loading #P"S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-bignum.cfsl"...
;Loading #P"S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-clos.cfsl"...
;Loading #P"S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-complex.cfsl"...
;Loading #P"S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-debug.cfsl"...
;Loading #P"S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-def.cfsl"...
;Loading #P"S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-float.cfsl"...
;Loading #P"S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-hash.cfsl"...
;Loading #P"S:Users:user:src:rmcl:new:rmcl:Level-0:PPC:ppc-int.cfsl"...
>  Error: value #\+ is not of the expected type REAL.
>  While executing: >-2
>  Type Command-. to abort.
See the RestartsŠ menu item for further choices.
1 >

---------------
In ccl:Level-0;PPC;ppc-pfsl-library.lisp, 
pfsl-shared-library-offset in #+ignored and below 
where it is used in  (setf (%svref 
*fasl-dispatch-table* $fasl-library-pointer)
       #'(lambda (s)
           (setf (faslstate.faslval s)
                 (pfsl-shared-library-offset s))))
is the comment: ; Moved to "ccl:level-0;nfasload.lisp"

but it is called in Level-0:nfasload.lisp and 
pfsl-shared-library-offset cannot be found (see 
above).
But before moving pfsl-shared-library-offset to nfasload.lisp
one can see get-pfsl-library, set-pfsl-library, 
close-pfsl-library, open-pfsl-shared-library, 
close-pfsl-shared-library and find-cfrg are all 
#+ignored as well.

I tried compiling xppcfasload.lisp, pef-file.lisp 
and xsym.lisp but (xload-level-0 :force) stalled 
as before.

All in, I'm way out of my depth.
Has anyone managed to fix this?
Or is the only way to do this is by just patching 
RMCL using Ron Garret's rmcl-clos-patch.lisp?
_______________________________________________
info-mcl mailing list
[email protected]
http://clozure.com/mailman/listinfo/info-mcl