[Openmcl-devel] Ask help for using IRONCLAD package

[Chun Tian (binghe)]

>>

Hi,

>>> And, by the way, are you interesting in porting ironclad to  
>>> Clozure CL
>>> (OpenMCL)? It seems that ironclad cannot load correctly on recent
>>> Clozure CL. Since my package depends on yours, I'll be very
>>> interesting in this porting and testing job, if I can do any help.
>>
>> I am interested in all bug reports concerning Ironclad; it should run
>> on any implementation.  If it doesn't, that's a bug.
>>
>> However, I don't have a machine on which I can run OpenMCL, so I  
>> would
>> need a detailed bug report to figure out what's wrong.
>>
>> -Nathan
>
> I attach a full backtrace of openmcl64 (Darwin, 64bit):
>
> <ironclad-bugreport.txt>

The first break can be fixed simply by replace this:

(defvar *stream-finish-output-function*
   (quote
    #+sbcl sb-gray:stream-finish-output
    #+openmcl ccl:stream-finish-output
    #+cmu ext:stream-finish-output
    #+allegro excl:stream-finish-output
    #-(or sbcl openmcl cmu allegro) (error "octet streams not  
supported in this implementation")))

into this:

(defvar *stream-finish-output-function*
   (quote
    #+sbcl sb-gray:stream-finish-output
    #+openmcl ccl::stream-finish-output
    #+cmu ext:stream-finish-output
    #+allegro excl:stream-finish-output
    #-(or sbcl openmcl cmu allegro) (error "octet streams not  
supported in this implementation")))

stream-finish-output is a internal symbol of ccl, not external. I  
don't know if it should be external.

And, after fix this, I got another problem, I attach a new backtrace:

-------------- next part --------------
;Compiler warnings for "/Users/binghe/Lisp/ASDF/Packages/ironclad_0.23/whirlpool.lisp" :
;   Unused lexical variable STATE, in FINALIZE-REGISTERS.
> Error: No MAKE-LOAD-FORM method is defined for #S(IRONCLAD::WHIRLPOOL-REGS :HASH #<VECTOR 16 type #1=(UNSIGNED-BYTE 32), simple> :K #<VECTOR 16 type #1#, simple> ...)
> While executing: CCL::NO-MAKE-LOAD-FORM-FOR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1> :b
(6A5298) : 0 (NO-MAKE-LOAD-FORM-FOR #S(IRONCLAD::WHIRLPOOL-REGS :HASH #(0 0 0 0 0 ...) :K #(0 0 0 0 0 ...) ...)) 61
(6A52B0) : 1 (FASL-SCAN-USER-FORM #S(IRONCLAD::WHIRLPOOL-REGS :HASH #(0 0 0 0 0 ...) :K #(0 0 0 0 0 ...) ...)) 93
(6A52E0) : 2 (FASL-SCAN-CLFUN #<Compiled Method-function REINITIALIZE-INSTANCE (Non-Global)  #x30004197C37F>) 213
(6A5320) : 3 (FASL-SCAN-CLFUN #<Anonymous Function #x30004197B8FF>) 213
(6A5360) : 4 (FASL-SCAN '(# # # # # ...)) 437
(6A5400) : 5 (FASL-SCAN-FORMS-AND-DUMP-FILE '(# # # # # ...) "/Users/binghe/Lisp/ASDF/Packages/ironclad_0.23/whirlpool.dx64fsl" [...]) 245
(6A54A0) : 6 (%COMPILE-FILE "/Users/binghe/Lisp/ASDF/Packages/ironclad_0.23/whirlpool.lisp" "/Users/binghe/Lisp/ASDF/Packages/ironclad_0.23/whirlpool.dx64fsl" NIL NIL NIL NIL T T NIL NIL #<BACKEND DARWINX8664 #x30004074205D> :DEFAULT) 2701
(6A5710) : 7 (COMPILE-FILE #P"/Users/binghe/Lisp/ASDF/Packages/ironclad_0.23/whirlpool.lisp" [...]) 1205
(6A5820) : 8 (FUNCALL #'#<#<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)>> #<COMPILE-OP NIL #x300040DF0D7D> #<IRONCLAD-SOURCE-FILE "whirlpool" #x300040D9906D>) 173
(6A5868) : 9 (%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL #<#> . 871234)) 781
(6A58D8) : 10 (%CALL-NEXT-METHOD '(NIL #<#> . 871234) [...]) 517
(6A5948) : 11 (FUNCALL #'#<#<STANDARD-METHOD ASDF:PERFORM :AROUND (ASDF:COMPILE-OP IRONCLAD-SYSTEM::IRONCLAD-SOURCE-FILE)>> '(NIL #<#> . 871234) #<COMPILE-OP NIL #x300040DF0D7D>) 173
(6A59B8) : 12 (%%STANDARD-COMBINED-METHOD-DCODE '(#<#> # # #<#>) 871234) 717
(6A5A28) : 14 (OPERATE 'ASDF:LOAD-OP 'IRONCLAD [...]) 1549
(6A5B08) : 15 (CALL-CHECK-REGS 'ASDF:SETUP [...]) 229
(6A5B40) : 16 (TOPLEVEL-EVAL '(ASDF:SETUP #) [...]) 749
(6A5BD8) : 17 (READ-LOOP [...]) 1733
(6A5DE0) : 18 (TOPLEVEL-LOOP) 109
(6A5E10) : 19 (FUNCALL #'#<Anonymous Function #x30004041E52F>) 101
(6A5E28) : 20 (FUNCALL #'#<Anonymous Function #x30004056624F>) 637
(6A5EB8) : 21 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #x300040D2D27D> '(#)) 717
(6A5F48) : 22 (FUNCALL #'#<Anonymous Function #x3000404327EF> #<TTY-LISTENER listener(1) [Active] #x300040D2D27D> '(#)) 365
(6A5F98) : 23 (FUNCALL #'#<Anonymous Function #x3000403EAC7F>) 301
1>      
-------------- next part --------------