From mmstud at gmail.com  Fri Jun  6 08:48:28 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Fri, 6 Jun 2008 11:48:28 +0300
Subject: [lift-devel] compilation error
Message-ID: <30A480E4-E483-433E-B278-403552063168@gmail.com>

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)


From gwking at metabang.com  Fri Jun  6 14:07:14 2008
From: gwking at metabang.com (Gary King)
Date: Fri, 6 Jun 2008 10:07:14 -0400
Subject: [lift-devel] compilation error
In-Reply-To: <30A480E4-E483-433E-B278-403552063168@gmail.com>
References: <30A480E4-E483-433E-B278-403552063168@gmail.com>
Message-ID: <BFD277E7-E9CE-4968-B122-B32F7804F7F9@metabang.com>

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






From mmstud at gmail.com  Fri Jun  6 18:06:19 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Fri, 6 Jun 2008 21:06:19 +0300
Subject: [lift-devel] compilation error
In-Reply-To: <BFD277E7-E9CE-4968-B122-B32F7804F7F9@metabang.com>
References: <30A480E4-E483-433E-B278-403552063168@gmail.com>
	<BFD277E7-E9CE-4968-B122-B32F7804F7F9@metabang.com>
Message-ID: <DFC750CF-F7AC-45C3-8015-14FBF3BCB6A0@gmail.com>

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



From gwking at metabang.com  Sat Jun  7 02:36:36 2008
From: gwking at metabang.com (Gary King)
Date: Fri, 6 Jun 2008 22:36:36 -0400
Subject: [lift-devel] compilation error
In-Reply-To: <DFC750CF-F7AC-45C3-8015-14FBF3BCB6A0@gmail.com>
References: <30A480E4-E483-433E-B278-403552063168@gmail.com>
	<BFD277E7-E9CE-4968-B122-B32F7804F7F9@metabang.com>
	<DFC750CF-F7AC-45C3-8015-14FBF3BCB6A0@gmail.com>
Message-ID: <4E4A43A1-09B6-436A-8E3A-57093E22F6CD@metabang.com>

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






From mmstud at gmail.com  Sat Jun  7 08:29:50 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Sat, 7 Jun 2008 11:29:50 +0300
Subject: [lift-devel] compilation error
In-Reply-To: <4E4A43A1-09B6-436A-8E3A-57093E22F6CD@metabang.com>
References: <30A480E4-E483-433E-B278-403552063168@gmail.com>
	<BFD277E7-E9CE-4968-B122-B32F7804F7F9@metabang.com>
	<DFC750CF-F7AC-45C3-8015-14FBF3BCB6A0@gmail.com>
	<4E4A43A1-09B6-436A-8E3A-57093E22F6CD@metabang.com>
Message-ID: <1BB45828-7A85-4AD4-8764-2F0AB8B592E7@gmail.com>

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



From mmstud at gmail.com  Sat Jun  7 13:18:49 2008
From: mmstud at gmail.com (Marko Tapio Manninen)
Date: Sat, 7 Jun 2008 16:18:49 +0300
Subject: [lift-devel] BORDEAUX-THREADS:WITH-TIMEOUT,
	LIFT:WITH-TIMEOUT symbol conflict 
Message-ID: <80F717A0-3D2F-4D0A-8078-5FDD9F5889B8@gmail.com>

I thought this might interest, if it could be a cause of any problems  
in future: (sbcl.17 with threads on macbook 10.5.3)

USE-PACKAGE #<PACKAGE "BORDEAUX-THREADS"> causes name-conflicts
in #<PACKAGE "BORDEAUX-THREADS-TEST"> between the following
symbols:
   BORDEAUX-THREADS:WITH-TIMEOUT, LIFT:WITH-TIMEOUT
    [Condition of type NAME-CONFLICT]
See also:
   Common Lisp Hyperspec, 11.1.1.2.5 [:section]

Restarts:
  0: [RESOLVE-CONFLICT] Resolve conflict.
  1: [TRY-RECOMPILING] Try recompiling bordeaux-threads-test
  2: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {13197741}> on  
#<ASDF:CL-SOURCE-FILE "bordeaux-threads-test" {13197A09}>.
  3: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {13197741}> on  
#<ASDF:CL-SOURCE-FILE "bordeaux-threads-test" {13197A09}> as having  
been successful.
  4: [ABORT] Return to SLIME's top level.
  5: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl- 
thread" {1268F779}>)

Backtrace:
   0: (NAME-CONFLICT #<PACKAGE "BORDEAUX-THREADS-TEST"> USE-PACKAGE  
#<PACKAGE "BORDEAUX-THREADS">)[:EXTERNAL]
   1: ((FLET SB-THREAD::WITH-RECURSIVE-SPINLOCK-THUNK))
   2: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE- 
SPINLOCK]555))
   3: (SB-THREAD::CALL-WITH-RECURSIVE-SPINLOCK #<CLOSURE (FLET SB- 
THREAD::WITH-RECURSIVE-SPINLOCK-THUNK) {44FEE0D}> #S(SB- 
THREAD::SPINLOCK :NAME "Package Lock" :VALUE #<SB-THREAD:THREAD "repl- 
thread" {1268F779}>))
   4: (USE-PACKAGE (#<PACKAGE "COMMON-LISP"> #<PACKAGE "BORDEAUX- 
THREADS"> #<PACKAGE "LIFT">) #<PACKAGE "BORDEAUX-THREADS-TEST">)
   5: (SB-IMPL::UPDATE-PACKAGE #<PACKAGE "BORDEAUX-THREADS-TEST"> NIL  
NIL NIL NIL (#<PACKAGE "COMMON-LISP"> #<PACKAGE "BORDEAUX-THREADS">  
#<PACKAGE "LIFT">) NIL NIL NIL ("BORDEAUX-THREADS-TEST") NIL NIL)
   6: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-IMPL::%DEFPACKAGE "BORDEAUX- 
THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...)  
#<NULL-LEXENV>)
   7: ((FLET SB-C::DEFAULT-PROCESSOR) (SB-IMPL::%DEFPACKAGE "BORDEAUX- 
THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...))
   8: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFPACKAGE "BORDEAUX- 
THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...)  
((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL:: 
%DEFPACKAGE "BORDEAUX-THREADS-TEST" # # # # ...)) SB-C::ORIGINAL- 
SOURCE-START 0 0) (:COMPILE-TOPLEVEL))
   9: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-IMPL::%DEFPACKAGE "BORDEAUX- 
THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...))  
((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL:: 
%DEFPACKAGE "BORDEAUX-THREADS-TEST" # # # # ...)) SB-C::ORIGINAL- 
SOURCE-START 0 0) (:COMPILE-TOPLEVEL))
  10: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD- 
TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE "BORDEAUX-THREADS- 
TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...)) (SB- 
C::ORIGINAL-SOURCE-START 0 0) NIL)
  11: ((FLET SB-C::DEFAULT-PROCESSOR) (DEFPACKAGE BORDEAUX-THREADS- 
TEST (:USE #:CL #:BORDEAUX-THREADS #:LIFT)))
  12: (SB-C::PROCESS-TOPLEVEL-FORM (DEFPACKAGE BORDEAUX-THREADS-TEST  
(:USE #:CL #:BORDEAUX-THREADS #:LIFT)) (SB-C::ORIGINAL-SOURCE-START 0  
0) NIL)
  13: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
  14: ((LAMBDA NIL))
  15: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {1299117D}>) 
[:EXTERNAL]
  16: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
  17: (COMPILE-FILE #P"/Users/mmstud/lisp/libs/bordeaux-threads/test/ 
bordeaux-threads-test.lisp")[:EXTERNAL]
  18: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL- 
SOURCE-FILE)) #<unavailable argument> #<unavailable argument>  
#<ASDF:COMPILE-OP NIL {13197741}> #<ASDF:CL-SOURCE-FILE "bordeaux- 
threads-test" {13197A09}>)
  19: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.  
SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument>  
#<ASDF:COMPILE-OP NIL {13197741}> #<ASDF:CL-SOURCE-FILE "bordeaux- 
threads-test" {13197A09}>)
  20: ((SB-PCL::FAST-METHOD ASDF:PERFORM :AROUND (ASDF:COMPILE-OP  
ASDF:CL-SOURCE-FILE)) #<unavailable argument> #S(SB-PCL::FAST-METHOD- 
CALL :FUNCTION #<CLOSURE (LAMBDA #) {1297BA15}> :PV NIL :NEXT-METHOD- 
CALL NIL :ARG-INFO (2)) #<ASDF:COMPILE-OP NIL {13197741}> #<ASDF:CL- 
SOURCE-FILE "bordeaux-threads-test" {13197A09}>)
  21: ((LAMBDA NIL))
  22: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
  23: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]522))
  24: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB- 
THREAD::WITH-RECURSIVE-LOCK-THUNK) {44FF6CD}> #S(SB-THREAD:MUTEX :NAME  
"big compiler lock" :%OWNER #<SB-THREAD:THREAD "repl- 
thread" {1268F779}> :LUTEX #<unknown pointer object, widetag=#x5E  
{1049A027}>))
  25: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {12A0C9DD}>) 
[:EXTERNAL]
  26: (ASDF:OPERATE ASDF:LOAD-OP :BORDEAUX-THREADS-TEST)[:EXTERNAL]
  27: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF:OOS (QUOTE ASDF:LOAD- 
OP) :BORDEAUX-THREADS-TEST) #<NULL-LEXENV>)
  28: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op :bordeaux-threads- 
test)
      ")
  29: ((LAMBDA NIL))


From gwking at metabang.com  Sat Jun  7 23:03:58 2008
From: gwking at metabang.com (Gary King)
Date: Sat, 7 Jun 2008 19:03:58 -0400
Subject: [lift-devel] compilation error
In-Reply-To: <1BB45828-7A85-4AD4-8764-2F0AB8B592E7@gmail.com>
References: <30A480E4-E483-433E-B278-403552063168@gmail.com>
	<BFD277E7-E9CE-4968-B122-B32F7804F7F9@metabang.com>
	<DFC750CF-F7AC-45C3-8015-14FBF3BCB6A0@gmail.com>
	<4E4A43A1-09B6-436A-8E3A-57093E22F6CD@metabang.com>
	<1BB45828-7A85-4AD4-8764-2F0AB8B592E7@gmail.com>
Message-ID: <EAAF21A2-7DD2-44AA-970E-E31ABF5A9A5E@metabang.com>

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






From gwking at metabang.com  Sat Jun  7 23:38:54 2008
From: gwking at metabang.com (Gary King)
Date: Sat, 7 Jun 2008 19:38:54 -0400
Subject: [lift-devel] BORDEAUX-THREADS:WITH-TIMEOUT,
	LIFT:WITH-TIMEOUT symbol conflict 
In-Reply-To: <80F717A0-3D2F-4D0A-8078-5FDD9F5889B8@gmail.com>
References: <80F717A0-3D2F-4D0A-8078-5FDD9F5889B8@gmail.com>
Message-ID: <4447068F-E46B-43EB-8416-9655956DE811@metabang.com>

Hi again Marko,

I just send a patch to Greg Pfeil. The defpackage in the testsuite  
needs a shadowing-import-from to specific which with-timeout to use.

thanks again for the report,


On Jun 7, 2008, at 9:18 AM, Marko Tapio Manninen wrote:

> I thought this might interest, if it could be a cause of any  
> problems in future: (sbcl.17 with threads on macbook 10.5.3)
>
> USE-PACKAGE #<PACKAGE "BORDEAUX-THREADS"> causes name-conflicts
> in #<PACKAGE "BORDEAUX-THREADS-TEST"> between the following
> symbols:
>  BORDEAUX-THREADS:WITH-TIMEOUT, LIFT:WITH-TIMEOUT
>   [Condition of type NAME-CONFLICT]
> See also:
>  Common Lisp Hyperspec, 11.1.1.2.5 [:section]
>
> Restarts:
> 0: [RESOLVE-CONFLICT] Resolve conflict.
> 1: [TRY-RECOMPILING] Try recompiling bordeaux-threads-test
> 2: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {13197741}> on  
> #<ASDF:CL-SOURCE-FILE "bordeaux-threads-test" {13197A09}>.
> 3: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {13197741}> on  
> #<ASDF:CL-SOURCE-FILE "bordeaux-threads-test" {13197A09}> as having  
> been successful.
> 4: [ABORT] Return to SLIME's top level.
> 5: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl- 
> thread" {1268F779}>)
>
> Backtrace:
>  0: (NAME-CONFLICT #<PACKAGE "BORDEAUX-THREADS-TEST"> USE-PACKAGE  
> #<PACKAGE "BORDEAUX-THREADS">)[:EXTERNAL]
>  1: ((FLET SB-THREAD::WITH-RECURSIVE-SPINLOCK-THUNK))
>  2: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE- 
> SPINLOCK]555))
>  3: (SB-THREAD::CALL-WITH-RECURSIVE-SPINLOCK #<CLOSURE (FLET SB- 
> THREAD::WITH-RECURSIVE-SPINLOCK-THUNK) {44FEE0D}> #S(SB- 
> THREAD::SPINLOCK :NAME "Package Lock" :VALUE #<SB-THREAD:THREAD  
> "repl-thread" {1268F779}>))
>  4: (USE-PACKAGE (#<PACKAGE "COMMON-LISP"> #<PACKAGE "BORDEAUX- 
> THREADS"> #<PACKAGE "LIFT">) #<PACKAGE "BORDEAUX-THREADS-TEST">)
>  5: (SB-IMPL::UPDATE-PACKAGE #<PACKAGE "BORDEAUX-THREADS-TEST"> NIL  
> NIL NIL NIL (#<PACKAGE "COMMON-LISP"> #<PACKAGE "BORDEAUX-THREADS">  
> #<PACKAGE "LIFT">) NIL NIL NIL ("BORDEAUX-THREADS-TEST") NIL NIL)
>  6: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-IMPL::%DEFPACKAGE "BORDEAUX- 
> THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...)  
> #<NULL-LEXENV>)
>  7: ((FLET SB-C::DEFAULT-PROCESSOR) (SB-IMPL::%DEFPACKAGE "BORDEAUX- 
> THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...))
>  8: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFPACKAGE "BORDEAUX- 
> THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...)  
> ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL:: 
> %DEFPACKAGE "BORDEAUX-THREADS-TEST" # # # # ...)) SB-C::ORIGINAL- 
> SOURCE-START 0 0) (:COMPILE-TOPLEVEL))
>  9: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-IMPL::%DEFPACKAGE "BORDEAUX- 
> THREADS-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...))  
> ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL:: 
> %DEFPACKAGE "BORDEAUX-THREADS-TEST" # # # # ...)) SB-C::ORIGINAL- 
> SOURCE-START 0 0) (:COMPILE-TOPLEVEL))
> 10: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD- 
> TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE "BORDEAUX-THREADS- 
> TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) ...)) (SB- 
> C::ORIGINAL-SOURCE-START 0 0) NIL)
> 11: ((FLET SB-C::DEFAULT-PROCESSOR) (DEFPACKAGE BORDEAUX-THREADS- 
> TEST (:USE #:CL #:BORDEAUX-THREADS #:LIFT)))
> 12: (SB-C::PROCESS-TOPLEVEL-FORM (DEFPACKAGE BORDEAUX-THREADS-TEST  
> (:USE #:CL #:BORDEAUX-THREADS #:LIFT)) (SB-C::ORIGINAL-SOURCE-START  
> 0 0) NIL)
> 13: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
> 14: ((LAMBDA NIL))
> 15: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {1299117D}>) 
> [:EXTERNAL]
> 16: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
> 17: (COMPILE-FILE #P"/Users/mmstud/lisp/libs/bordeaux-threads/test/ 
> bordeaux-threads-test.lisp")[:EXTERNAL]
> 18: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL- 
> SOURCE-FILE)) #<unavailable argument> #<unavailable argument>  
> #<ASDF:COMPILE-OP NIL {13197741}> #<ASDF:CL-SOURCE-FILE "bordeaux- 
> threads-test" {13197A09}>)
> 19: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.  
> SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument>  
> #<ASDF:COMPILE-OP NIL {13197741}> #<ASDF:CL-SOURCE-FILE "bordeaux- 
> threads-test" {13197A09}>)
> 20: ((SB-PCL::FAST-METHOD ASDF:PERFORM :AROUND (ASDF:COMPILE-OP  
> ASDF:CL-SOURCE-FILE)) #<unavailable argument> #S(SB-PCL::FAST-METHOD- 
> CALL :FUNCTION #<CLOSURE (LAMBDA #) {1297BA15}> :PV NIL :NEXT-METHOD- 
> CALL NIL :ARG-INFO (2)) #<ASDF:COMPILE-OP NIL {13197741}> #<ASDF:CL- 
> SOURCE-FILE "bordeaux-threads-test" {13197A09}>)
> 21: ((LAMBDA NIL))
> 22: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
> 23: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]522))
> 24: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB- 
> THREAD::WITH-RECURSIVE-LOCK-THUNK) {44FF6CD}> #S(SB- 
> THREAD:MUTEX :NAME "big compiler lock" :%OWNER #<SB-THREAD:THREAD  
> "repl-thread" {1268F779}> :LUTEX #<unknown pointer object,  
> widetag=#x5E {1049A027}>))
> 25: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {12A0C9DD}>) 
> [:EXTERNAL]
> 26: (ASDF:OPERATE ASDF:LOAD-OP :BORDEAUX-THREADS-TEST)[:EXTERNAL]
> 27: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF:OOS (QUOTE ASDF:LOAD- 
> OP) :BORDEAUX-THREADS-TEST) #<NULL-LEXENV>)
> 28: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op :bordeaux-threads- 
> test)
>     ")
> 29: ((LAMBDA NIL))
> _______________________________________________
> 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






From gwking at metabang.com  Tue Jun 24 21:02:12 2008
From: gwking at metabang.com (Gary King)
Date: Tue, 24 Jun 2008 17:02:12 -0400
Subject: [lift-devel] Re: bug in lift
In-Reply-To: <20080622210543.43e0aac4@sewage.loco>
References: <20080622210543.43e0aac4@sewage.loco>
Message-ID: <3F55CA2A-6142-40DA-A5BD-D470EA8CA2B1@metabang.com>

Hi Rob (and Lars),

Thanks so much for this patch (I think I was trying to convert a  
cerror into an error and messed upi). I've been traveling but should  
get it out tonight.


On Jun 22, 2008, at 9:05 PM, Rob Zinkov wrote:

> Lars Rune Nstdal found the bug in lift that makes count-repetitions
> fail when sbcl has threads. Otherwise I get a timeout exception.
>
> http://paste.lisp.org/display/62686
> lars at ibmr52:~/programming/lisp/lift$ darcs diff -u
> diff -rN -u old-lift/dev/port.lisp new-lift/dev/port.lisp
> --- old-lift/dev/port.lisp      2008-06-23 02:56:01.000000000 +0200
> +++ new-lift/dev/port.lisp      2008-06-23 02:56:01.000000000 +0200
> @@ -171,7 +171,7 @@
>                (handler-case
>                    (sb-ext:with-timeout ,gseconds (doit))
>                  (sb-ext::timeout (c)
> -                   (error "Timeout" 'timeout-error)))
> +                   (error 'timeout-error)))
>                #+(and sbcl (not sb-thread))
>                (let ((,gused-timer? nil))
>                  (catch ',glabel

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






From gwking at metabang.com  Fri Jun 27 02:46:54 2008
From: gwking at metabang.com (Gary King)
Date: Thu, 26 Jun 2008 22:46:54 -0400
Subject: [lift-devel] Re: lift
In-Reply-To: <1F5DB9A3-C048-49FD-8046-2B9D5F6F9895@truejeans.com>
References: <1F5DB9A3-C048-49FD-8046-2B9D5F6F9895@truejeans.com>
Message-ID: <4FE8BE86-B916-4F0F-AAEC-2983B44D3854@metabang.com>

Ack! Fix a'coming even now. Thanks for the heads up.


On Jun 26, 2008, at 5:37 PM, Thom Goodsell wrote:

> Gary,
>
> You seem to have forgotten to add with-timeout.lisp to the darcs repo.
>
> Thanks,
> Thom
>

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