[lift-devel] compilation error
Gary King
gwking at metabang.com
Sat Jun 7 23:03:58 UTC 2008
Hi Marko,
I've installed Clozure Common Lisp and found problem; I'll upload the
fix as soon as I fix the BORDEAUX-THREADS name conflict.
thanks for your persistence,
On Jun 7, 2008, at 4:29 AM, Marko Tapio Manninen wrote:
> 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
>>
>>
>>
>>
>
> _______________________________________________
> 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