[lift-devel] compilation error

[Gary King]

Hi Marko,

Thanks for the report; I'll have a new version posted in a few minutes.


On Jun 6, 2008, at 4:48 AM, Marko Tapio Manninen wrote:

> 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)
> _______________________________________________
> lift-devel mailing list
> lift-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/lift-devel

--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM