[Openmcl-devel] Clozure Common Lisp Version 1.2-r7902S (LinuxX8664)

Ralf Stoye stoye at stoye.com
Tue Feb 26 19:22:40 UTC 2008


Hi,
just tested ccl on: Linux version 2.6.22-3-vserver-amd64 (Debian  
2.6.22-6.lenny1)

After some hours there are no more problems  running
"Hunchentoot 0.14.6 (Clozure Common Lisp Version 1.2-r7902S  
(LinuxX8664)) at X.X.X.X:4242"


Some problems though:

1.) Since this server is limited to 768 MB RAM , i had to use -R  
2048000000 to be able to start & run without errors.

Without that, i just got;
Initial mmap: Cannot allocate memory

after using -R xxxx, depending on xxxx, the errors changed:

openmcl64 -R 1024000000
exception in foreign context
Exception occurred while executing foreign code

openmcl64 -R 1224000000
;; seemed to be OK, but after some time, the lisp hang caused by gc

openmcl64 -R 2048000000
;; seems to be OK

Are there any rules of thumb specifying the "right" size?



2.) There's a problem with ccl:run-program. It just hangs, waiting for  
some semaphore:
? (run-program "/bin/ls" nil)
 > Break: interrupt signal
 > While executing: CCL::%PROCESS-WAIT-ON-SEMAPHORE-PTR, in process  
listener(1).
 > Type :GO to continue, :POP to abort, :R for a list of available  
restarts.
 > If continued: Return from BREAK.
 > Type :? for other options.
1 > :B
(2AAAAACBB910) : 0 (%PROCESS-WAIT-ON-SEMAPHORE-PTR #<A Foreign Pointer  
[gcable] #x64A2E0> 16777215 0 [...]) 461
(2AAAAACBB9B8) : 1 (WAIT-ON-SEMAPHORE #<SEMAPHORE  #x300040DFFCBD>  
[...]) 205
(2AAAAACBB9F0) : 2 (RUN-PROGRAM "/bin/ls" '("/bin/ls") [...]) 2221
(2AAAAACBBB58) : 3 (CALL-CHECK-REGS 'RUN-PROGRAM [...]) 229
(2AAAAACBBB90) : 4 (TOPLEVEL-EVAL '(RUN-PROGRAM "/bin/ls" NIL) [...])  
349
(2AAAAACBBBE0) : 5 (READ-LOOP [...]) 1773
(2AAAAACBBDE8) : 6 (TOPLEVEL-LOOP) 125
(2AAAAACBBE18) : 7 (FUNCALL #'#<Anonymous Function #x3000404605CF>) 109
(2AAAAACBBE30) : 8 (FUNCALL #'#<Anonymous Function #x30004059BEAF>) 597
(2AAAAACBBEB8) : 9 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER  
listener(1) [Active] #x300040DD6AAD> '(#)) 717
(2AAAAACBBF48) : 10 (FUNCALL #'#<Anonymous Function #x30004047994F>  
#<TTY-LISTENER listener(1) [Active] #x300040DD6AAD> '(#)) 365
(2AAAAACBBF98) : 11 (FUNCALL #'#<Anonymous Function #x300040452C0F>) 301
1 >

Is there any solution / workaround?



3) Since the used ccl is dated (ccl-071213) i tried to update it.
After checking out current code, i did the following:

v03-s154:/usr/local/src/ccl-head# ./lx86cl64 -n -R 2048000000
Welcome to Clozure Common Lisp Version 1.2-r7902S  (LinuxX8664)!
? (setf *WARN-IF-REDEFINE-KERNEL* nil)
NIL
? (load #p"ccl:lib;misc.lisp")
;Compiler warnings :
;   Undefined function TIMEVAL->MICROSECONDS (2 references), in REPORT- 
TIME.
#P"/usr/local/src/ccl-head/lib/misc.lisp"
? (xload-level-0 :force)
Can't find #P"ccl:xdump;xx8664-fasload.lx64fsl.newest" so requiring  
"ccl:xdump;xx8664-fasload.lisp" instead
Can't find #P"ccl:xdump;xfasload.lx64fsl.newest" so requiring  
"ccl:xdump;xfasload.lisp" instead
Can't find #P"ccl:xdump;heap-image.lx64fsl.newest" so requiring  
"ccl:xdump;heap-image.lisp" instead
;Compiling "/usr/local/src/ccl-head/level-0/l0-aprims.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-array.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-bignum32.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-bignum64.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-cfm-support.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-complex.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-def.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-error.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-float.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-hash.lisp"...
;Compiler warnings for "/usr/local/src/ccl-head/level-0/l0-hash.lisp" :
;   Undefined function %STRING-HASH, in %%EQUALHASH.
;Compiling "/usr/local/src/ccl-head/level-0/l0-init.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-int.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-io.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-misc.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-numbers.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-pred.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-symbol.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/l0-utils.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/nfasload.lisp"...
;Compiler warnings for "/usr/local/src/ccl-head/level-0/nfasload.lisp" :
;   Undefined function SETF::|CCL::CODE-NOTE-PARENT-NOTE|, in REGISTER- 
CODE-COVERED-FUNCTIONS.
;   Undefined function CODE-NOTE-PARENT-NOTE, in REGISTER-CODE-COVERED- 
FUNCTIONS.
;   Undefined function CODE-NOTE-P, in REGISTER-CODE-COVERED-FUNCTIONS.
;Compiling "/usr/local/src/ccl-head/level-0/X86/X8664/x8664- 
bignum.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/X86/x86-array.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/X86/x86-clos.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/X86/x86-def.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/X86/x86-float.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/X86/x86-hash.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/X86/x86-io.lisp"...
;Compiling "/usr/local/src/ccl-head/level-0/X86/x86-misc.lisp"...
 > Error: Unbound variable: X8664::XCF.PREV-XFRAME signaled during  
assembly-time evaluation of form X8664::XCF.PREV-XFRAME
 > While executing: PARSE-X86-LAP-EXPRESSION, in process listener(1).
 > Type :POP to abort, :R for a list of available restarts.
 > Type :? for other options.
1 >

i am stuck here ...


i know that the code isn't announced/released yet (Gary Byers, 11.  
Februar 2008 00:34:32 MEZ),
but i hope to be able to use it in a production environment soon, is  
there any chance to do so?



Greetings
Ralf Stoye





-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.clozure.com/pipermail/openmcl-devel/attachments/20080226/888ca469/attachment.html>


More information about the Openmcl-devel mailing list