[hunchentoot-devel] Problem with flexi-stream-bound on openmcl

[Denis Mashkevich]

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