[Bug-openmcl] Bug in hash table FASL dump?

[Paul Meurer]

Matthew,

thanks for your hints. It wasn't the missing :mcl feature, but rather  
a problem with the version of CCL I was using:

Welcome to Clozure Common Lisp Version 1.2-r10731M-trunk  (LinuxX8664)!

I downloaded 1.2-r10552, and this works without problems.

- Paul

>
> On Nov 19, 2008, at 5:22 AM, Paul Meurer wrote:
>
>> I am trying to compile cl-portable-aserve in OpenMCL 2.1 on Linux/ 
>> Intel 64bit and run into the following error (see below). I have  
>> tried to find a simpler test case, but have not succeeded yet.  
>> Before I try harder tonight, maybe somebody has an idea about what  
>> is going wrong. The code compiles without problems on MacOS/Intel  
>> 64bit.
>
> I checked out a fresh copy of ccl-1.2 for linux/x8664, and  
> downloaded portable-aserve from <http://superb-east.dl.sourceforge.net/sourceforge/portableaserve/portableaserve-1.2.35.tar.gz 
> >.
>
> One thing that might be causing you trouble is that :MCL is no  
> longer on *FEATURES* as of 1.2.  It appears that the version of  
> portable aserve may not like that.
>
> Anyway, I pushed :MCL onto *FEATURES*, and got it to work.
>
> Welcome to Clozure Common Lisp Version 1.2-r10552  (LinuxX8664)!
> ? (push :mcl *features*)
> (:MCL :PRIMARY-CLASSES :COMMON- 
> LISP :OPENMCL :CCL :CCL-1.2 :CLOZURE :CLOZURE-COMMON-LISP :ANSI- 
> CL :UNIX :OPENMCL-UNICODE-STRINGS :OPENMCL-NATIVE-THREADS :OPENMCL- 
> PARTIAL-MOP :MCL-COMMON-MOP-SUBSET :OPENMCL-MOP-2 :OPENMCL-PRIVATE- 
> HASH-TABLES :OPENMCL-HASH-CONSING :X86-64 :X86_64 :X86-TARGET :X86- 
> HOST :X8664-TARGET :X8664-HOST :LINUX-HOST :LINUX-TARGET :LINUXX86- 
> TARGET :LINUXX8664-TARGET :LINUXX8664-HOST :POWEROPEN-TARGET :64-BIT- 
> TARGET :64-BIT-HOST :LITTLE-ENDIAN-TARGET :LITTLE-ENDIAN-HOST :LINUX)
> ? (load "INSTALL.lisp")
> [compiler warnings...]
> #P"/home/rme/portableaserve/INSTALL.lisp"
> ? (load "aserve/example.cl")
> #P"/home/rme/portableaserve/aserve/example.cl"
> ? (aserve-example::start-server :port 20001)
> #<WSERVER port 20001 #x300041110D5D>
> ?
>
> And it seemed to work...
>
>
>
>>
>> - Paul
>>
>> Unbound variable: CCL::*FASDUMP-EPUSH*
>>   [Condition of type UNBOUND-VARIABLE]
>>
>> Restarts:
>>  0: [CONTINUE] Retry getting the value of CCL::*FASDUMP-EPUSH*.
>>  1: [USE-VALUE] Specify a value of CCL::*FASDUMP-EPUSH* to use this  
>> time.
>>  2: [STORE-VALUE] Specify a value of CCL::*FASDUMP-EPUSH* to store  
>> and use.
>>  3: [RETRY-COMPILE-FILE] Retry compiling "/home/paul/lisp/lib/cl- 
>> portable-aserve-newest/libs/cl-ppcre/convert.lisp"
>>  4: [SKIP-COMPILE-FILE] Skip compiling "/home/paul/lisp/lib/cl- 
>> portable-aserve-newest/libs/cl-ppcre/convert.lisp"
>>  5: [ABORT] Abort SLIME compilation.
>>  6: [ABORT-REQUEST] Abort handling SLIME request.
>>  7: [ABORT-BREAK] Reset this process
>>  8: [ABORT] Kill this process
>>
>> Backtrace:
>>  0: (CCL::FASL-OUT-OPCODE 19)
>>  1: (CCL::FASL-DUMP-T_IMM)
>>  2: (CCL::FASL-DUMP-DISPATCH #<HASH-TABLE-VECTOR  #x300040FEC3AD>)
>>  3: (CCL::FASL-DUMP-CONS '(#<HASH-TABLE-VECTOR  #x300040FEC3AD>))
>>  4: (CCL::FASL-DUMP-CONS '('#<HASH-TABLE-VECTOR  #x300040FEC3AD>))
>>  5: (CCL::FASL-DUMP-FUNCTION #<Compiled-function CONVERT-CHAR-CLASS- 
>> TO-HASH (Non-Global)  #x30004148C6EF>)
>>  6: (CCL::FASL-DUMP 'NIL 'NIL '((23 81) (47 "home:lisp;lib;cl- 
>> portable-aserve-newest;libs;cl-ppcre;convert.lisp.newest") (4  
>> #<Anonymous Function #x3000414887AF>) (37 #<Compiled-function CASE- 
>> INSENSITIVE-MODE-P (Non-Global)  #x3000414881BF> ("Accessor macro  
>> to extract the first flag out of a three-element flag list." NIL .  
>> "(FLAGS)")) (37 #<Compiled-function MULTI-LINE-MODE-P (Non-Global)   
>> #x30004148A5EF> ("Accessor macro to extract the second flag out of  
>> a three-element flag list." NIL . "(FLAGS)")) (37 #<Compiled- 
>> function SINGLE-LINE-MODE-P (Non-Global)  #x300041489F2F>  
>> ("Accessor macro to extract the third flag out of a three-element  
>> flag list." NIL . "(FLAGS)")) (35 #<Compiled-function SET-FLAG (Non- 
>> Global)  #x30004148AD8F> "Reads a flag token and sets or unsets the  
>> corresponding entry in
>>