[lift-devel] compilation error

[Marko Tapio Manninen]

allright,

i tried darcs pull, but server responded some error...

darcs failed:  Failed to download URL http://common-lisp.net/project/lift/_darcs/patches/20080606140530-3cc5d-a5e8151071dbdd386df31a8aa3a7b41028ab6a83.gz 
: HTTP response code said error

hope everything is ok and see new patch for lift coming.

-Marko

Gary King kirjoitti 6.6.2008 kello 17.07:

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