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>)
