[lift-devel] compilation error
Gary King
gwking at metabang.com
Sat Jun 7 02:36:36 UTC 2008
Ack! My bad. I must have had a network hiccup whilst updating and I
didn't bother to check.
All seems to be well know; please let me know if it isn't.
thanks,
On Jun 6, 2008, at 2:06 PM, Marko Tapio Manninen wrote:
> 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
>>
>>
>>
>>
>
> _______________________________________________
> 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
More information about the lift-devel
mailing list