Hello, I have a problem running hunchentoot on openmcl (OpenMCL Version 1.1-pre-070512 (DarwinPPC32), hunchentoot 0.14.2, flexi-streams 0.13.0)
The error is: Undefined function SETF::|HUNCHENTOOT::FLEXI-STREAM-BOUND| called with arguments (NIL
#<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x92CD646>) .
The error is signaled on every request.
Doing this as a way of test from REPL seems to be working ok:
TBNL> (make-instance 'flex::flexi-latin-1-io-stream ) #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x9374906> TBNL> (setf (flexi-stream-bound *) nil) NIL TBNL> (symbol-package 'flexi-stream-bound) #<Package "FLEXI-STREAMS">
Under lispworks it runs ok on the same system.
Backtrace follows:
Undefined function SETF::|HUNCHENTOOT::FLEXI-STREAM-BOUND| called with arguments (NIL
#<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x92CD646>) . [Condition of type CCL::UNDEFINED-FUNCTION-CALL]
Restarts: 0: [CONTINUE] Retry applying SETF::|HUNCHENTOOT::FLEXI-STREAM-BOUND| to (NIL #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x92CD646>). 1: [USE-VALUE] Apply specified function to (NIL #<FLEXI- STREAMS::FLEXI-LATIN-1-IO-STREAM #x92CD646>) this time. 2: [STORE-VALUE] Specify a function to use as the definition of SETF::|HUNCHENTOOT::FLEXI-STREAM-BOUND|. 3: [ABORT-BREAK] Reset this process 4: [ABORT] Kill this process
Backtrace: 0: (#<Anonymous Function #x85ED03E> 0 20) 1: (SWANK:BACKTRACE 1 41) 2: (CCL::CALL-CHECK-REGS 'SWANK:BACKTRACE) 3: (#<Anonymous Function #x861931E> '(SWANK:BACKTRACE 1 41) 36 'NIL) 4: (#<Anonymous Function #x8574DE6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x863212E> #<COMPILED-LEXICAL-CLOSURE #x92E6D86>) 5: (FUNCALL 'SWANK::EVAL-FOR-EMACS) 6: (SWANK::SLDB-LOOP #<CONNECTION #x8656776>) 7: (SWANK::CALL-WITH-BINDINGS '((*PRINT-PRETTY* . T) (*PRINT- LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) (*PRINT-PPRINT-DISPATCH* . #S(CCL::PPRINT-DISPATCH-TABLE :CONSES-WITH-CARS #<HASH- TABLE :TEST EQ size 60/60 #x85FEDAE> :STRUCTURES NIL :OTHERS (# #))) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T) ...) #<Anonymous Function #x8631096>) 8: (#<Anonymous Function #x85EDEF6> #<Anonymous Function #x86310E6>) 9: (SWANK::DEBUG-IN-EMACS #<CCL::UNDEFINED-FUNCTION-CALL #x92CCB66>) 10: (#<Anonymous Function #x8574DE6> #<Compiled-function SWANK:SWANK- DEBUGGER-HOOK #x863212E> #<COMPILED-LEXICAL-CLOSURE #x92CC4C6>) 11: (SWANK::CALL-WITH-REDIRECTED-IO #<COMPILED-LEXICAL-CLOSURE #x92CC4AE> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x863212E>) 12: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x8656776> #<COMPILED- LEXICAL-CLOSURE #x92CC4C6>) 13: (INVOKE-DEBUGGER #<CCL::UNDEFINED-FUNCTION-CALL #x92CCB66>) 14: (SIGNAL #<CCL::UNDEFINED-FUNCTION-CALL #x92CCB66>) 15: (CCL::%ERROR 'NIL #<CCL::FAKE-STACK-FRAME #x233AAE6>) 16: (CCL::DEFAULT-UNDEFINED-FUNCTION-CALL-RESTARTS #<CCL::FAKE-STACK- FRAME #x233AAE6> #<A Foreign Pointer [stack-allocated] #xF0734B40> 'SETF::|CCL::XP-GPR-LISP|) 17: (CCL::HANDLE-UDF-CALL #<CCL::FAKE-STACK-FRAME #x233AAE6> 'CCL::% ERROR) 18: (#<Anonymous Function #x8216916> 67108868 'NIL '(NIL) 'CCL::%ERR- DISP-INTERNAL #<CCL::FAKE-STACK-FRAME #x233AAE6> 2 0 #<A Foreign Pointer [stack-allocated] #xF0734B40>) 19: (CCL::FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL- CLOSURE #x233AAA6>) 20: (#<Anonymous Function #x821699E> 67108868 'NIL '(NIL) 'CCL::%ERR- DISP-INTERNAL 2 0 #<A Foreign Pointer [stack-allocated] #xF0734B40> #<CCL::FAKE-STACK-FRAME #x233AAE6>) 21: (CCL::FUNCALL-WITH-XP-STACK-FRAMES 0 0 0) 22: (CCL::%XERR-DISP -65220390) 23: (CCL::%PASCAL-FUNCTIONS% 2 -65220390) 24: (HUNCHENTOOT::PROCESS-CONNECTION #<HUNCHENTOOT::SERVER #x928A32E> #<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/12) #x92BF386>) 25: (CCL::RUN-PROCESS-INITIAL-FORM '(#<COMPILED-LEXICAL-CLOSURE #x92BEA66>) #<PROCESS hunchentoot-worker-1(9) [Active] #x92BEB0E>) 26: (#<Anonymous Function #x8174C16> '(#<COMPILED-LEXICAL-CLOSURE #x92BEA66>) 0) 27: (#<Anonymous Function #x815EF56> 788848 #<LISP-THREAD hunchentoot- worker-1 [tcr @ #x3025C0] #x92BED5E>)