[lift-devel] compilation error

[Marko Tapio Manninen]

Hi,

i use openmcl on macbook and get this error traceback when compiling  
lift (i also had to change #+mcl to #+ccl on two parts on the code):

Unbound variable: LIFT::RESULT
    [Condition of type UNBOUND-VARIABLE]


Backtrace:
   0: (LIFT:WITH-TIMEOUT '(LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                          (LOOP (APPLY #'FUNCALL LIFT::FN LIFT::ARGS)
                                (INCF LIFT::EVENT-COUNT))) #<LEXICAL- 
ENVIRONMENT  #x30004109FD0D>)
   1: (FUNCALL #<Compiled-function LIFT:WITH-TIMEOUT Macroexpander  
#x300040F9D5DF> '(LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                          (LOOP (APPLY #'FUNCALL LIFT::FN LIFT::ARGS)
                                (INCF LIFT::EVENT-COUNT))) #<LEXICAL- 
ENVIRONMENT  #x30004109FD0D>)
   2: (MACROEXPAND-1 'LIFT::PROCESS 'LIFT::RESULT)
   3: (CCL::NX-TRANSFORM '(LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                          (LOOP (APPLY #'FUNCALL LIFT::FN LIFT::ARGS)
                                (INCF LIFT::EVENT-COUNT))) #<LEXICAL- 
ENVIRONMENT  #x30004109FD0D>)
   4: (CCL::NX1-TYPED-FORM '(LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                          (LOOP (APPLY #'FUNCALL LIFT::FN LIFT::ARGS)
                                (INCF LIFT::EVENT-COUNT))) #<LEXICAL- 
ENVIRONMENT  #x30004109FD0D>)
   5: (CCL::NX1-FORM '(LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                          (LOOP (APPLY #'FUNCALL LIFT::FN LIFT::ARGS)
                                (INCF LIFT::EVENT-COUNT))) #<LEXICAL- 
ENVIRONMENT  #x30004109FD0D>)
   6: (CCL::NX1-RETURN-FROM '(RETURN-FROM #:G88
         (LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                            (LOOP (APPLY
                                   #'FUNCALL
                                   LIFT::FN
                                   LIFT::ARGS)
                                  (INCF LIFT::EVENT-COUNT))))  
#<LEXICAL-ENVIRONMENT  #x30004109FD0D>)
   7: (CCL::NX1-COMBINATION '(RETURN-FROM #:G88
         (LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                            (LOOP (APPLY
                                   #'FUNCALL
                                   LIFT::FN
                                   LIFT::ARGS)
                                  (INCF LIFT::EVENT-COUNT))))  
#<LEXICAL-ENVIRONMENT  #x30004109FD0D>)
   8: (CCL::NX1-FORM '(RETURN-FROM #:G88
         (LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                            (LOOP (APPLY
                                   #'FUNCALL
                                   LIFT::FN
                                   LIFT::ARGS)
                                  (INCF LIFT::EVENT-COUNT))))  
#<LEXICAL-ENVIRONMENT  #x30004109FD0D>)
   9: (CCL::NX1-CATCH-BODY '((RETURN-FROM #:G88
          (LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                             (LOOP #
                                   #)))))
  10: (CCL::NX1-CATCH '(CATCH #:G89
         (RETURN-FROM #:G88
           (LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                              (LOOP #
                                    #)))) #<LEXICAL-ENVIRONMENT   
#x30004106016D>)
  11: (CCL::NX1-COMBINATION '(CATCH #:G89
         (RETURN-FROM #:G88
           (LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                              (LOOP #
                                    #)))) #<LEXICAL-ENVIRONMENT   
#x30004106016D>)
  12: (CCL::NX1-FORM '(CATCH #:G89
         (RETURN-FROM #:G88
           (LIFT:WITH-TIMEOUT (LIFT::PERIOD)
                              (LOOP #
                                    #)))) #<LEXICAL-ENVIRONMENT   
#x30004106016D>)
  13: (CCL::NX1-ENV-BODY '((CATCH #:G89 (RETURN-FROM #:G88 (LIFT:WITH- 
TIMEOUT # #)))) #<LEXICAL-ENVIRONMENT  #x30004106048D>)
  14: (CCL::NX1-LET* '(LET* ((#1=#:G89 (LIST 'LIFT::TIMEOUT-ERROR))
              (CCL::%HANDLERS% (CONS #1# CCL::%HANDLERS%)))
         (DECLARE (DYNAMIC-EXTENT #1# CCL::%HANDLERS%))
         (CATCH #1# (RETURN-FROM #:G88 (LIFT:WITH-TIMEOUT # #))))  
#<LEXICAL-ENVIRONMENT  #x30004106048D>)
  15: (CCL::NX1-COMBINATION '(LET* ((#1=#:G89 (LIST 'LIFT::TIMEOUT- 
ERROR))
              (CCL::%HANDLERS% (CONS #1# CCL::%HANDLERS%)))
         (DECLARE (DYNAMIC-EXTENT #1# CCL::%HANDLERS%))
         (CATCH #1# (RETURN-FROM #:G88 (LIFT:WITH-TIMEOUT # #))))  
#<LEXICAL-ENVIRONMENT  #x30004106048D>)
  16: (CCL::NX1-FORM '(LET* ((#1=#:G89 (LIST 'LIFT::TIMEOUT-ERROR))
              (CCL::%HANDLERS% (CONS #1# CCL::%HANDLERS%)))
         (DECLARE (DYNAMIC-EXTENT #1# CCL::%HANDLERS%))
         (CATCH #1# (RETURN-FROM #:G88 (LIFT:WITH-TIMEOUT # #))))  
#<LEXICAL-ENVIRONMENT  #x30004106048D>)
  17: (CCL::NX1-FORMLIST '((LET* ((#1=#:G89 #) (CCL::%HANDLERS% #))
          (DECLARE (DYNAMIC-EXTENT #1# CCL::%HANDLERS%))
          (CATCH #1# (RETURN-FROM #:G88 #)))))
  18: (CCL::NX1-LAMBDA-BIND '(LIFT::C) '((LET* ((#1=#:G89 #) (CCL:: 
%HANDLERS% #))
          (DECLARE (DYNAMIC-EXTENT #1# CCL::%HANDLERS%))
          (CATCH #1# (RETURN-FROM #:G88 #)))) '((DECLARE (IGNORE  
LIFT::C)) LIFT::EVENT-COUNT) #<LEXICAL-ENVIRONMENT  #x30004106048D>)
  19: (CCL::NX1-COMBINATION '((LAMBDA (LIFT::C)
          (DECLARE (IGNORE LIFT::C))
          LIFT::EVENT-COUNT)