[lift-devel] compilation error
Marko Tapio Manninen
mmstud at gmail.com
Sat Jun 7 08:29:50 UTC 2008
Now i got new patches pulled, but unfortunately same error occurs with
LIFT:RESULT being unbound. This with CCL, but then, it is working with
SBCL. So might be CCL bug again...
-Marko
Gary King kirjoitti 7.6.2008 kello 5.36:
> 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