[Openmcl-devel] Building CVS sources from scratch

Sven Van Caekenberghe sven at beta9.be
Fri Sep 6 09:25:12 UTC 2002


Today I was trying to build openmcl from scratch from the cvs 
repository.
I checked out the sources into /Users/sven/apps/openmcl, extracted the 
interfaces on top of it and did a make of the kernel. Then I wanted to 
create a boot image.
So wrote this function:

(defun SET-CCL (dir)
   "Set the CCL logical host to dir"
   (setf (logical-pathname-translations "ccl")
         `(("lib;**;*.fasl" "ccl:bin;*.fasl")
           ("l1;**;*.fasl" "ccl:l1f;*.fasl")
           ("l1;**;*.pfsl" "ccl:l1pf;*.pfsl")
           ("l1;**;*.sfsl" "ccl:l1sf;*.sfsl")
           ("l1;**;*.dfsl" "ccl:l1df;*.dfsl")
           ("l1;**;*.*" "ccl:level-1;**;*.*")
           ("l1f;**;*.pfsl" "ccl:l1pf;**;*.pfsl")
           ("l1f;**;*.sfsl" "ccl:l1sf;**;*.sfsl")
           ("l1f;**;*.dfsl" "ccl:l1df;**;*.dfsl")
           ("bin;**;*.pfsl" "ccl:binppc;**;*.pfsl")
           ("bin;**;*.sfsl" "ccl:binsparc;**;*.sfsl")
           ("bin;**;*.dfsl" "ccl:bindarwin;**.*.dfsl")
           ("l1pf;**;*.*" "ccl:l1-pfsls;**;*.*")
           ("l1sf;**;*.*" "ccl:l1-sfsls;**;*.*")
           ("l1df;**;*.*" "ccl:l1-dfsls;**;*.*")
           ("l1f;**;*.*" "ccl:l1-fasls;**;*.*")
           ("ccl;*.*" ,(merge-pathnames "*.*" dir))
           ("**;*.*" ,(merge-pathnames "**/*.*" dir)))))

Started openmcl 0.13 (installed in /Users/sven/ccl) and did the 
following:

Welcome to OpenMCL Version (Beta: Darwin) 0.13!
? ;;;Evaluating defun SET-CCL
SET-CCL
? (cwd "/Users/sven/apps/openmcl/ccl")
#P"/Users/sven/apps/openmcl/ccl/"
? (set-ccl (mac-default-directory))
(("lib;**;*.fasl" "ccl:bin;*.fasl") ("l1;**;*.fasl" "ccl:l1f;*.fasl") 
("l1;**;*.pfsl" "ccl:l1pf;*.pfsl") ("l1;**;*.sfsl" "ccl:l1sf;*.sfsl") 
("l1;**;*.dfsl" "ccl:l1df;*.dfsl") ("l1;**;*.*" "ccl:level-1;**;*.*") 
("l1f;**;*.pfsl" "ccl:l1pf;**;*.pfsl") ("l1f;**;*.sfsl" 
"ccl:l1sf;**;*.sfsl") ("l1f;**;*.dfsl" "ccl:l1df;**;*.dfsl") 
("bin;**;*.pfsl" "ccl:binppc;**;*.pfsl") ("bin;**;*.sfsl" 
"ccl:binsparc;**;*.sfsl") ("bin;**;*.dfsl" "ccl:bindarwin;**.*.dfsl") 
("l1pf;**;*.*" "ccl:l1-pfsls;**;*.*") ("l1sf;**;*.*" 
"ccl:l1-sfsls;**;*.*") ("l1df;**;*.*" "ccl:l1-dfsls;**;*.*") 
("l1f;**;*.*" "ccl:l1-fasls;**;*.*") ("ccl;*.*" 
#P"/Users/sven/apps/openmcl/ccl/*.*") ("**;*.*" 
#P"/Users/sven/apps/openmcl/ccl/**/*.*"))
? (ccl::xload-level-0)
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-aprims.lisp"...
;Compiler warnings for 
"/Users/sven/apps/openmcl/ccl/level-0/l0-aprims.lisp" :
;   Undefined function %PUT-STRING, in %PSTR-POINTER.
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-array.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-bignum.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-cfm-support.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-clos.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-complex.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-dcode.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-debug.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-def.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-error.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-float.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-hash.lisp"...
;Compiler warnings for 
"/Users/sven/apps/openmcl/ccl/level-0/l0-hash.lisp" :
;   Undefined function SETF::|CCL::INTERRUPT-LEVEL|, in PUTHASH.
;   Undefined function INTERRUPT-LEVEL, in PUTHASH.
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-init.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-int.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-io.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-misc.lisp"...
;Compiler warnings for 
"/Users/sven/apps/openmcl/ccl/level-0/l0-misc.lisp" :
;   Undeclared free variable ARCH::TCR.CS-AREA, in 
%STACK-GROUP-STACK-SPACE.
;   Undeclared free variable ARCH::TCR.VS-AREA, in 
%STACK-GROUP-STACK-SPACE.
;   Undeclared free variable ARCH::TCR.TS-AREA, in 
%STACK-GROUP-STACK-SPACE.
;Compiler warnings for 
"/Users/sven/apps/openmcl/ccl/level-0/l0-misc.lisp" :
;   Undefined function SG.TCR, in %STACK-GROUP-STACK-SPACE.
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-numbers.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-pred.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-symbol.lisp"...
;Compiler warnings for 
"/Users/sven/apps/openmcl/ccl/level-0/l0-symbol.lisp" :
;   Undefined function %%SET-SYM-VALUE, in %SET-SYM-VALUE.
;   Undefined function %%SYM-VALUE, in %SYM-VALUE.
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/l0-utils.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/nfasload.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/PPC/ppc-array.lisp"...
;Compiling "/Users/sven/apps/openmcl/ccl/level-0/PPC/ppc-bignum.lisp"...
 > Error:
 >        Evaluation of PPC::NIL-VALUE signalled assembly-time error
 >         Unbound variable: PPC::NIL-VALUE .
 > While executing: PPC-LAP-EVALUATED-EXPRESSION
 > Type :POP to abort.
Type :? for other options.
1 >

Did I do something wrong?

--
Sven Van Caekenberghe - mailto:sven at beta9.be
Beta Nine - software engineering - http://www.beta9.be
.Mac - svc at mac.com - http://homepage.mac.com/svc


_______________________________________________
Openmcl-devel mailing list
Openmcl-devel at clozure.com
http://clozure.com/cgi-bin/mailman/listinfo/openmcl-devel




More information about the Openmcl-devel mailing list