From henryirvine at yahoo.com  Tue Jul 17 06:30:19 2007
From: henryirvine at yahoo.com (Henry Irvine)
Date: Tue, 17 Jul 2007 02:30:19 -0400
Subject: [lift-devel] (no subject)
Message-ID: <C5C954C3-BD1C-4E47-9C8E-DD6E791E1FC5@yahoo.com>

I have been trying to get lift working in my preferred environment  
(openmcl64) and have had some problems getting it to pass
it's own tests...
On further investigation, the same failure occurs in both sbcl and  
openmcl on both intel64 and ppc32 hardware.

Oddly clisp (once a patch for get-backtrace is added) runs all the  
tests in both environments.

I am not familiar enough with exactly what is happening where to  
figure this one out.
Output from an openmcl session and from a sbcl session  where  
(asdf:oos 'asdf:test-op :lift) is invoked follows...

Henry Irvine



Welcome to OpenMCL Version 1.1-pre-070512 (DarwinX8664)!
? (asdf:oos 'asdf:load-op :lift)
; loading system definition from /Users/hirvine/lisp/Lisp_Sources/ 
systems/lift.asd into #<Package "ASDF0">
; registering #<SYSTEM LIFT #x300040E0339D> as LIFT
NIL
? (asdf:oos 'asdf:test-op :lift)
; loading system definition from /Users/hirvine/lisp/Lisp_Sources/ 
systems/lift-test.asd into #<Package "ASDF0">
; registering #<SYSTEM LIFT-TEST #x300040EDC02D> as LIFT-TEST
 > Error: Test class LIFT-TEST-SETUP-TEARDOWN-2 not defined before it  
was used.
 > While executing: #<STANDARD-METHOD FIND-TESTSUITE (STRING)>, in  
process listener(1).
 > Type :POP to abort, :R for a list of available restarts.
 > Type :? for other options.
1 > :pop




This is SBCL 1.0.7.8, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (asdf:oos 'asdf:test-op :lift)

; loading system definition from
; /Users/hirvine/lisp/Lisp_Sources/systems/lift.asd into #<PACKAGE  
"ASDF0">
; registering #<SYSTEM LIFT {11D686D9}> as LIFT
; loading system definition from
; /Users/hirvine/lisp/Lisp_Sources/systems/lift-test.asd into  
#<PACKAGE "ASDF0">
; registering #<SYSTEM LIFT-TEST {1207BBC9}> as LIFT-TEST
STYLE-WARNING: implicitly creating new generic function FIND-TESTSUITE
STYLE-WARNING: implicitly creating new generic function START-REPORT- 
OUTPUT
STYLE-WARNING: implicitly creating new generic function SUMMARIZE- 
TEST-RESULT
STYLE-WARNING:
    implicitly creating new generic function SUMMARIZE-TEST-ENVIRONMENT
STYLE-WARNING: implicitly creating new generic function SUMMARIZE- 
TEST-PROBLEMS
STYLE-WARNING:
    implicitly creating new generic function GENERATE-DETAILED-REPORTS
STYLE-WARNING: implicitly creating new generic function SUMMARIZE- 
TESTS-RUN
STYLE-WARNING: implicitly creating new generic function END-REPORT- 
OUTPUT
STYLE-WARNING: implicitly creating new generic function HTML-HEADER
STYLE-WARNING:
    implicitly creating new generic function SUMMARIZE-TEST-PROBLEMS- 
OF-TYPE

; compiling file "/Users/hirvine/lisp/Lisp_Sources/site/lift/test/ 
lift-test.lisp" (written 16 JUL 2007 02:09:46 AM):
; compiling (DEFPACKAGE #:LIFT-TEST ...)
; compiling (IN-PACKAGE #:LIFT-TEST)
; compiling (DEFTESTSUITE LIFT-TEST ...)
; compiling (DEFTESTSUITE LIFT-TEST-ENSURE ...)
; compiling (DEFTESTSUITE LIFT-TEST-ENSURE-HELPER ...)
; compiling (ADDTEST (LIFT-TEST-ENSURE-HELPER) ...)
; compiling (ADDTEST (LIFT-TEST-ENSURE) ...)
; compiling (ADDTEST (LIFT-TEST-ENSURE-HELPER) ...)
; compiling (ADDTEST (LIFT-TEST-ENSURE) ...)
; compiling (ADDTEST (LIFT-TEST-ENSURE-HELPER) ...); in: LAMBDA NIL
;     /
; ==>
;   (/ 1 LIFT-TEST::X)
;
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   arithmetic error DIVISION-BY-ZERO signalled
;   Operation was SB-KERNEL::DIVISION, operands (1 0).

; file: /Users/hirvine/lisp/Lisp_Sources/site/lift/test/lift-test.lisp
; in: ADDTEST (LIFT-TEST-ENSURE-HELPER)
;     /
; ==>
;   (/ 1 LIFT-TEST::X)
;
; caught STYLE-WARNING:
;   Lisp error during constant folding:
;   arithmetic error DIVISION-BY-ZERO signalled
;   Operation was SB-KERNEL::DIVISION, operands (1 0).

; compiling (ADDTEST (LIFT-TEST-ENSURE) ...)
; compiling (DEFTESTSUITE LIFT-TEST-SETUP-TEARDOWN ...)
; compiling (DEFTESTSUITE LIFT-TEST-SETUP-TEARDOWN-1 ...); in:  
DEFMETHOD LIFT::SETUP-TEST :AFTER (LIFT-TEST-SETUP-TEARDOWN-1)
;     DEFMETHOD
;
; caught STYLE-WARNING:
;   (in macroexpansion of (DEFMETHOD LIFT::SETUP-TEST :AFTER ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-1 in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; in: DEFMETHOD LIFT::TEARDOWN-TEST PROGN (LIFT-TEST-SETUP-TEARDOWN-1)
;     DEFMETHOD
;
; caught STYLE-WARNING:
;   (in macroexpansion of (DEFMETHOD LIFT::TEARDOWN-TEST PROGN ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-1 in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; in:
;      DEFMETHOD LIFT::TESTSUITE-TEARDOWN (LIFT-TEST-SETUP-TEARDOWN-1
;                                      LIFT::TEST-RESULT)
;     DEFMETHOD
;
; caught STYLE-WARNING:
;   (in macroexpansion of (DEFMETHOD LIFT::TESTSUITE-TEARDOWN # ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-1 in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; compiling (ADDTEST (LIFT-TEST-SETUP-TEARDOWN) ...)
; compiling (ADDTEST (LIFT-TEST-SETUP-TEARDOWN) ...)
; compiling (DEFTESTSUITE LIFT-TEST-SETUP-TEARDOWN-2 ...); in:  
DEFMETHOD LIFT::SETUP-TEST :AFTER (LIFT-TEST-SETUP-TEARDOWN-2)
;     DEFMETHOD
;
; caught STYLE-WARNING:
;   (in macroexpansion of (DEFMETHOD LIFT::SETUP-TEST :AFTER ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-2 in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; in: DEFMETHOD LIFT::TEARDOWN-TEST PROGN (LIFT-TEST-SETUP-TEARDOWN-2)
;     DEFMETHOD
;
; caught STYLE-WARNING:
;   (in macroexpansion of (DEFMETHOD LIFT::TEARDOWN-TEST PROGN ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-2 in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; in:
;      DEFMETHOD LIFT::TESTSUITE-TEARDOWN (LIFT-TEST-SETUP-TEARDOWN-2
;                                      LIFT::TEST-RESULT)
;     DEFMETHOD
;
; caught STYLE-WARNING:
;   (in macroexpansion of (DEFMETHOD LIFT::TESTSUITE-TEARDOWN # ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-2 in
;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.

; in: LAMBDA NIL
;     LIFT:ADDTEST
;
; caught ERROR:
;   (in macroexpansion of (ADDTEST # SETUP-TEARDOWN-2 ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Test class LIFT-TEST-SETUP-TEARDOWN-2 not defined before it was  
used.

;     LET
;
; note: deleting unreachable code
;
; note: deleting unreachable code

debugger invoked on a SB-INT:COMPILED-PROGRAM-ERROR in thread  
#<THREAD "initial thread" {116AE849}>:
   Execution of a form compiled with errors.
Form:
   (ADDTEST (LIFT-TEST-SETUP-TEARDOWN-2) SETUP-TEARDOWN-2
          (PUSH 'TEST-2 *TEST-NOTEPAD*))
Compile-time error:
   (in macroexpansion of (ADDTEST # SETUP-TEARDOWN-2 ...))
(hint: For more precise location, try *BREAK-ON-SIGNALS*.)
Test class LIFT-TEST-SETUP-TEARDOWN-2 not defined before it was used.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
   0: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {124EB499}> on
               #<ASDF:CL-SOURCE-FILE "lift-test" {1250AD91}>.
   1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {124EB499}> on
               #<ASDF:CL-SOURCE-FILE "lift-test" {1250AD91}> as  
having been
               successful.
   2: [ABORT ] Exit debugger, returning to top level.

(NIL)
0]


From gwking at metabang.com  Tue Jul 17 18:13:24 2007
From: gwking at metabang.com (Gary King)
Date: Tue, 17 Jul 2007 14:13:24 -0400
Subject: [lift-devel] (no subject)
In-Reply-To: <C5C954C3-BD1C-4E47-9C8E-DD6E791E1FC5@yahoo.com>
References: <C5C954C3-BD1C-4E47-9C8E-DD6E791E1FC5@yahoo.com>
Message-ID: <B00DC0C2-CFAB-4598-BFF1-503F4F583201@metabang.com>

Hi Henry,

Thanks for the report. I think that LIFT may have gotten out of sync  
with some its own tests (ugh!). I'll take a look and get back to you  
soon.


On Jul 17, 2007, at 2:30 AM, Henry Irvine wrote:

> I have been trying to get lift working in my preferred environment  
> (openmcl64) and have had some problems getting it to pass
> it's own tests...
> On further investigation, the same failure occurs in both sbcl and  
> openmcl on both intel64 and ppc32 hardware.
>
> Oddly clisp (once a patch for get-backtrace is added) runs all the  
> tests in both environments.
>
> I am not familiar enough with exactly what is happening where to  
> figure this one out.
> Output from an openmcl session and from a sbcl session  where  
> (asdf:oos 'asdf:test-op :lift) is invoked follows...
>
> Henry Irvine
>
>
>
> Welcome to OpenMCL Version 1.1-pre-070512 (DarwinX8664)!
> ? (asdf:oos 'asdf:load-op :lift)
> ; loading system definition from /Users/hirvine/lisp/Lisp_Sources/ 
> systems/lift.asd into #<Package "ASDF0">
> ; registering #<SYSTEM LIFT #x300040E0339D> as LIFT
> NIL
> ? (asdf:oos 'asdf:test-op :lift)
> ; loading system definition from /Users/hirvine/lisp/Lisp_Sources/ 
> systems/lift-test.asd into #<Package "ASDF0">
> ; registering #<SYSTEM LIFT-TEST #x300040EDC02D> as LIFT-TEST
> > Error: Test class LIFT-TEST-SETUP-TEARDOWN-2 not defined before  
> it was used.
> > While executing: #<STANDARD-METHOD FIND-TESTSUITE (STRING)>, in  
> process listener(1).
> > Type :POP to abort, :R for a list of available restarts.
> > Type :? for other options.
> 1 > :pop
>
>
>
>
> This is SBCL 1.0.7.8, an implementation of ANSI Common Lisp.
> More information about SBCL is available at <http://www.sbcl.org/>.
>
> SBCL is free software, provided as is, with absolutely no warranty.
> It is mostly in the public domain; some portions are provided under
> BSD-style licenses.  See the CREDITS and COPYING files in the
> distribution for more information.
> * (asdf:oos 'asdf:test-op :lift)
>
> ; loading system definition from
> ; /Users/hirvine/lisp/Lisp_Sources/systems/lift.asd into #<PACKAGE  
> "ASDF0">
> ; registering #<SYSTEM LIFT {11D686D9}> as LIFT
> ; loading system definition from
> ; /Users/hirvine/lisp/Lisp_Sources/systems/lift-test.asd into  
> #<PACKAGE "ASDF0">
> ; registering #<SYSTEM LIFT-TEST {1207BBC9}> as LIFT-TEST
> STYLE-WARNING: implicitly creating new generic function FIND-TESTSUITE
> STYLE-WARNING: implicitly creating new generic function START- 
> REPORT-OUTPUT
> STYLE-WARNING: implicitly creating new generic function SUMMARIZE- 
> TEST-RESULT
> STYLE-WARNING:
>    implicitly creating new generic function SUMMARIZE-TEST-ENVIRONMENT
> STYLE-WARNING: implicitly creating new generic function SUMMARIZE- 
> TEST-PROBLEMS
> STYLE-WARNING:
>    implicitly creating new generic function GENERATE-DETAILED-REPORTS
> STYLE-WARNING: implicitly creating new generic function SUMMARIZE- 
> TESTS-RUN
> STYLE-WARNING: implicitly creating new generic function END-REPORT- 
> OUTPUT
> STYLE-WARNING: implicitly creating new generic function HTML-HEADER
> STYLE-WARNING:
>    implicitly creating new generic function SUMMARIZE-TEST-PROBLEMS- 
> OF-TYPE
>
> ; compiling file "/Users/hirvine/lisp/Lisp_Sources/site/lift/test/ 
> lift-test.lisp" (written 16 JUL 2007 02:09:46 AM):
> ; compiling (DEFPACKAGE #:LIFT-TEST ...)
> ; compiling (IN-PACKAGE #:LIFT-TEST)
> ; compiling (DEFTESTSUITE LIFT-TEST ...)
> ; compiling (DEFTESTSUITE LIFT-TEST-ENSURE ...)
> ; compiling (DEFTESTSUITE LIFT-TEST-ENSURE-HELPER ...)
> ; compiling (ADDTEST (LIFT-TEST-ENSURE-HELPER) ...)
> ; compiling (ADDTEST (LIFT-TEST-ENSURE) ...)
> ; compiling (ADDTEST (LIFT-TEST-ENSURE-HELPER) ...)
> ; compiling (ADDTEST (LIFT-TEST-ENSURE) ...)
> ; compiling (ADDTEST (LIFT-TEST-ENSURE-HELPER) ...); in: LAMBDA NIL
> ;     /
> ; ==>
> ;   (/ 1 LIFT-TEST::X)
> ;
> ; caught STYLE-WARNING:
> ;   Lisp error during constant folding:
> ;   arithmetic error DIVISION-BY-ZERO signalled
> ;   Operation was SB-KERNEL::DIVISION, operands (1 0).
>
> ; file: /Users/hirvine/lisp/Lisp_Sources/site/lift/test/lift-test.lisp
> ; in: ADDTEST (LIFT-TEST-ENSURE-HELPER)
> ;     /
> ; ==>
> ;   (/ 1 LIFT-TEST::X)
> ;
> ; caught STYLE-WARNING:
> ;   Lisp error during constant folding:
> ;   arithmetic error DIVISION-BY-ZERO signalled
> ;   Operation was SB-KERNEL::DIVISION, operands (1 0).
>
> ; compiling (ADDTEST (LIFT-TEST-ENSURE) ...)
> ; compiling (DEFTESTSUITE LIFT-TEST-SETUP-TEARDOWN ...)
> ; compiling (DEFTESTSUITE LIFT-TEST-SETUP-TEARDOWN-1 ...); in:  
> DEFMETHOD LIFT::SETUP-TEST :AFTER (LIFT-TEST-SETUP-TEARDOWN-1)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::SETUP-TEST :AFTER ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-1 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; in: DEFMETHOD LIFT::TEARDOWN-TEST PROGN (LIFT-TEST-SETUP-TEARDOWN-1)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::TEARDOWN-TEST PROGN ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-1 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; in:
> ;      DEFMETHOD LIFT::TESTSUITE-TEARDOWN (LIFT-TEST-SETUP-TEARDOWN-1
> ;                                      LIFT::TEST-RESULT)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::TESTSUITE-TEARDOWN # ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-1 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; compiling (ADDTEST (LIFT-TEST-SETUP-TEARDOWN) ...)
> ; compiling (ADDTEST (LIFT-TEST-SETUP-TEARDOWN) ...)
> ; compiling (DEFTESTSUITE LIFT-TEST-SETUP-TEARDOWN-2 ...); in:  
> DEFMETHOD LIFT::SETUP-TEST :AFTER (LIFT-TEST-SETUP-TEARDOWN-2)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::SETUP-TEST :AFTER ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-2 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; in: DEFMETHOD LIFT::TEARDOWN-TEST PROGN (LIFT-TEST-SETUP-TEARDOWN-2)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::TEARDOWN-TEST PROGN ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-2 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; in:
> ;      DEFMETHOD LIFT::TESTSUITE-TEARDOWN (LIFT-TEST-SETUP-TEARDOWN-2
> ;                                      LIFT::TEST-RESULT)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::TESTSUITE-TEARDOWN # ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-2 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; in: LAMBDA NIL
> ;     LIFT:ADDTEST
> ;
> ; caught ERROR:
> ;   (in macroexpansion of (ADDTEST # SETUP-TEARDOWN-2 ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   Test class LIFT-TEST-SETUP-TEARDOWN-2 not defined before it was  
> used.
>
> ;     LET
> ;
> ; note: deleting unreachable code
> ;
> ; note: deleting unreachable code
>
> debugger invoked on a SB-INT:COMPILED-PROGRAM-ERROR in thread  
> #<THREAD "initial thread" {116AE849}>:
>   Execution of a form compiled with errors.
> Form:
>   (ADDTEST (LIFT-TEST-SETUP-TEARDOWN-2) SETUP-TEARDOWN-2
>          (PUSH 'TEST-2 *TEST-NOTEPAD*))
> Compile-time error:
>   (in macroexpansion of (ADDTEST # SETUP-TEARDOWN-2 ...))
> (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> Test class LIFT-TEST-SETUP-TEARDOWN-2 not defined before it was used.
>
> Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
>
> restarts (invokable by number or by possibly-abbreviated name):
>   0: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {124EB499}> on
>               #<ASDF:CL-SOURCE-FILE "lift-test" {1250AD91}>.
>   1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {124EB499}> on
>               #<ASDF:CL-SOURCE-FILE "lift-test" {1250AD91}> as  
> having been
>               successful.
>   2: [ABORT ] Exit debugger, returning to top level.
>
> (NIL)
> 0]
> _______________________________________________
> 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) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM






From gwking at metabang.com  Thu Jul 19 12:01:56 2007
From: gwking at metabang.com (Gary King)
Date: Thu, 19 Jul 2007 08:01:56 -0400
Subject: [lift-devel] (no subject)
In-Reply-To: <C5C954C3-BD1C-4E47-9C8E-DD6E791E1FC5@yahoo.com>
References: <C5C954C3-BD1C-4E47-9C8E-DD6E791E1FC5@yahoo.com>
Message-ID: <EA128FC8-9690-464D-A1E1-8E74FC5FEB3A@metabang.com>

Hi Henry,

LIFT is currently failing 3 of it's self-tests (for me, under Allegro  
and SBCL). I'm pretty sure that this is the tests "fault", not  
LIFT's; I'll finish tracking this down by the weekend.

thanks for the report and for looking at LIFT.


On Jul 17, 2007, at 2:30 AM, Henry Irvine wrote:

> I have been trying to get lift working in my preferred environment  
> (openmcl64) and have had some problems getting it to pass
> it's own tests...
> On further investigation, the same failure occurs in both sbcl and  
> openmcl on both intel64 and ppc32 hardware.
>
> Oddly clisp (once a patch for get-backtrace is added) runs all the  
> tests in both environments.
>
> I am not familiar enough with exactly what is happening where to  
> figure this one out.
> Output from an openmcl session and from a sbcl session  where  
> (asdf:oos 'asdf:test-op :lift) is invoked follows...
>
> Henry Irvine
>
>
>
> Welcome to OpenMCL Version 1.1-pre-070512 (DarwinX8664)!
> ? (asdf:oos 'asdf:load-op :lift)
> ; loading system definition from /Users/hirvine/lisp/Lisp_Sources/ 
> systems/lift.asd into #<Package "ASDF0">
> ; registering #<SYSTEM LIFT #x300040E0339D> as LIFT
> NIL
> ? (asdf:oos 'asdf:test-op :lift)
> ; loading system definition from /Users/hirvine/lisp/Lisp_Sources/ 
> systems/lift-test.asd into #<Package "ASDF0">
> ; registering #<SYSTEM LIFT-TEST #x300040EDC02D> as LIFT-TEST
> > Error: Test class LIFT-TEST-SETUP-TEARDOWN-2 not defined before  
> it was used.
> > While executing: #<STANDARD-METHOD FIND-TESTSUITE (STRING)>, in  
> process listener(1).
> > Type :POP to abort, :R for a list of available restarts.
> > Type :? for other options.
> 1 > :pop
>
>
>
>
> This is SBCL 1.0.7.8, an implementation of ANSI Common Lisp.
> More information about SBCL is available at <http://www.sbcl.org/>.
>
> SBCL is free software, provided as is, with absolutely no warranty.
> It is mostly in the public domain; some portions are provided under
> BSD-style licenses.  See the CREDITS and COPYING files in the
> distribution for more information.
> * (asdf:oos 'asdf:test-op :lift)
>
> ; loading system definition from
> ; /Users/hirvine/lisp/Lisp_Sources/systems/lift.asd into #<PACKAGE  
> "ASDF0">
> ; registering #<SYSTEM LIFT {11D686D9}> as LIFT
> ; loading system definition from
> ; /Users/hirvine/lisp/Lisp_Sources/systems/lift-test.asd into  
> #<PACKAGE "ASDF0">
> ; registering #<SYSTEM LIFT-TEST {1207BBC9}> as LIFT-TEST
> STYLE-WARNING: implicitly creating new generic function FIND-TESTSUITE
> STYLE-WARNING: implicitly creating new generic function START- 
> REPORT-OUTPUT
> STYLE-WARNING: implicitly creating new generic function SUMMARIZE- 
> TEST-RESULT
> STYLE-WARNING:
>    implicitly creating new generic function SUMMARIZE-TEST-ENVIRONMENT
> STYLE-WARNING: implicitly creating new generic function SUMMARIZE- 
> TEST-PROBLEMS
> STYLE-WARNING:
>    implicitly creating new generic function GENERATE-DETAILED-REPORTS
> STYLE-WARNING: implicitly creating new generic function SUMMARIZE- 
> TESTS-RUN
> STYLE-WARNING: implicitly creating new generic function END-REPORT- 
> OUTPUT
> STYLE-WARNING: implicitly creating new generic function HTML-HEADER
> STYLE-WARNING:
>    implicitly creating new generic function SUMMARIZE-TEST-PROBLEMS- 
> OF-TYPE
>
> ; compiling file "/Users/hirvine/lisp/Lisp_Sources/site/lift/test/ 
> lift-test.lisp" (written 16 JUL 2007 02:09:46 AM):
> ; compiling (DEFPACKAGE #:LIFT-TEST ...)
> ; compiling (IN-PACKAGE #:LIFT-TEST)
> ; compiling (DEFTESTSUITE LIFT-TEST ...)
> ; compiling (DEFTESTSUITE LIFT-TEST-ENSURE ...)
> ; compiling (DEFTESTSUITE LIFT-TEST-ENSURE-HELPER ...)
> ; compiling (ADDTEST (LIFT-TEST-ENSURE-HELPER) ...)
> ; compiling (ADDTEST (LIFT-TEST-ENSURE) ...)
> ; compiling (ADDTEST (LIFT-TEST-ENSURE-HELPER) ...)
> ; compiling (ADDTEST (LIFT-TEST-ENSURE) ...)
> ; compiling (ADDTEST (LIFT-TEST-ENSURE-HELPER) ...); in: LAMBDA NIL
> ;     /
> ; ==>
> ;   (/ 1 LIFT-TEST::X)
> ;
> ; caught STYLE-WARNING:
> ;   Lisp error during constant folding:
> ;   arithmetic error DIVISION-BY-ZERO signalled
> ;   Operation was SB-KERNEL::DIVISION, operands (1 0).
>
> ; file: /Users/hirvine/lisp/Lisp_Sources/site/lift/test/lift-test.lisp
> ; in: ADDTEST (LIFT-TEST-ENSURE-HELPER)
> ;     /
> ; ==>
> ;   (/ 1 LIFT-TEST::X)
> ;
> ; caught STYLE-WARNING:
> ;   Lisp error during constant folding:
> ;   arithmetic error DIVISION-BY-ZERO signalled
> ;   Operation was SB-KERNEL::DIVISION, operands (1 0).
>
> ; compiling (ADDTEST (LIFT-TEST-ENSURE) ...)
> ; compiling (DEFTESTSUITE LIFT-TEST-SETUP-TEARDOWN ...)
> ; compiling (DEFTESTSUITE LIFT-TEST-SETUP-TEARDOWN-1 ...); in:  
> DEFMETHOD LIFT::SETUP-TEST :AFTER (LIFT-TEST-SETUP-TEARDOWN-1)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::SETUP-TEST :AFTER ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-1 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; in: DEFMETHOD LIFT::TEARDOWN-TEST PROGN (LIFT-TEST-SETUP-TEARDOWN-1)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::TEARDOWN-TEST PROGN ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-1 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; in:
> ;      DEFMETHOD LIFT::TESTSUITE-TEARDOWN (LIFT-TEST-SETUP-TEARDOWN-1
> ;                                      LIFT::TEST-RESULT)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::TESTSUITE-TEARDOWN # ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-1 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; compiling (ADDTEST (LIFT-TEST-SETUP-TEARDOWN) ...)
> ; compiling (ADDTEST (LIFT-TEST-SETUP-TEARDOWN) ...)
> ; compiling (DEFTESTSUITE LIFT-TEST-SETUP-TEARDOWN-2 ...); in:  
> DEFMETHOD LIFT::SETUP-TEST :AFTER (LIFT-TEST-SETUP-TEARDOWN-2)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::SETUP-TEST :AFTER ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-2 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; in: DEFMETHOD LIFT::TEARDOWN-TEST PROGN (LIFT-TEST-SETUP-TEARDOWN-2)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::TEARDOWN-TEST PROGN ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-2 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; in:
> ;      DEFMETHOD LIFT::TESTSUITE-TEARDOWN (LIFT-TEST-SETUP-TEARDOWN-2
> ;                                      LIFT::TEST-RESULT)
> ;     DEFMETHOD
> ;
> ; caught STYLE-WARNING:
> ;   (in macroexpansion of (DEFMETHOD LIFT::TESTSUITE-TEARDOWN # ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   can't find type for specializer LIFT-TEST-SETUP-TEARDOWN-2 in
> ;   SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
>
> ; in: LAMBDA NIL
> ;     LIFT:ADDTEST
> ;
> ; caught ERROR:
> ;   (in macroexpansion of (ADDTEST # SETUP-TEARDOWN-2 ...))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   Test class LIFT-TEST-SETUP-TEARDOWN-2 not defined before it was  
> used.
>
> ;     LET
> ;
> ; note: deleting unreachable code
> ;
> ; note: deleting unreachable code
>
> debugger invoked on a SB-INT:COMPILED-PROGRAM-ERROR in thread  
> #<THREAD "initial thread" {116AE849}>:
>   Execution of a form compiled with errors.
> Form:
>   (ADDTEST (LIFT-TEST-SETUP-TEARDOWN-2) SETUP-TEARDOWN-2
>          (PUSH 'TEST-2 *TEST-NOTEPAD*))
> Compile-time error:
>   (in macroexpansion of (ADDTEST # SETUP-TEARDOWN-2 ...))
> (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> Test class LIFT-TEST-SETUP-TEARDOWN-2 not defined before it was used.
>
> Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
>
> restarts (invokable by number or by possibly-abbreviated name):
>   0: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {124EB499}> on
>               #<ASDF:CL-SOURCE-FILE "lift-test" {1250AD91}>.
>   1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {124EB499}> on
>               #<ASDF:CL-SOURCE-FILE "lift-test" {1250AD91}> as  
> having been
>               successful.
>   2: [ABORT ] Exit debugger, returning to top level.
>
> (NIL)
> 0]
> _______________________________________________
> 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) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM






From gwking at metabang.com  Fri Jul 20 16:11:57 2007
From: gwking at metabang.com (Gary King)
Date: Fri, 20 Jul 2007 12:11:57 -0400
Subject: [lift-devel] self test problems
In-Reply-To: <473D379D-C334-4DC1-B989-4B9AD2FC3437@yahoo.com>
References: <C5C954C3-BD1C-4E47-9C8E-DD6E791E1FC5@yahoo.com>
	<EA128FC8-9690-464D-A1E1-8E74FC5FEB3A@metabang.com>
	<473D379D-C334-4DC1-B989-4B9AD2FC3437@yahoo.com>
Message-ID: <7CF96313-9E50-4572-ACB8-93120E3707C5@metabang.com>

(cc'd to list)

Hi Henry,

You're right. I've been used mostly Allegro and didn't check SBCL  
from scratch. I'm just pushing 1.3.3 up now; please let me know if  
this corrects things for you. I'm not sure about the OpenMCL thing  
and don't use OpenMCL right now; so please let me know if there's  
anything I can change or do to help.


On Jul 20, 2007, at 2:57 AM, Henry Irvine wrote:

> The tests will not compile (not in sbcl or openmcl).  I am using an  
> up-to-date darcs pulled copy of the lift package.
>
> There is another problem with the describe-object method in  
> lift.lisp.  It appears to be openmcl specific and directly related  
> to the cl format function so (although it crashes lift)
> I will post the details to openmcl-devel.
>
> Henry Irvine
>
> On Jul 19, 2007, at 8:01 AM, Gary King wrote:
>
>> Hi Henry,
>>
>> LIFT is currently failing 3 of it's self-tests (for me, under  
>> Allegro and SBCL). I'm pretty sure that this is the tests "fault",  
>> not LIFT's; I'll finish tracking this down by the weekend.
>>
>> thanks for the report and for looking at LIFT.
>>
>>
>> On Jul 17, 2007, at 2:30 AM, Henry Irvine wrote:
>>
>>> I have been trying to get lift working in my preferred  
>>> environment (openmcl64) and have had some problems getting it to  
>>> pass
>>> it's own tests...
>>> On further investigation, the same failure occurs in both sbcl  
>>> and openmcl on both intel64 and ppc32 hardware.
>>>
>>> Oddly clisp (once a patch for get-backtrace is added) runs all  
>>> the tests in both environments.
>>>
>>> I am not familiar enough with exactly what is happening where to  
>>> figure this one out.
>>> Output from an openmcl session and from a sbcl session  where  
>>> (asdf:oos 'asdf:test-op :lift) is invoked follows...
>>>
>>> Henry Irvine
>>>
>>
>> --
>> Gary Warren King, metabang.com
>> Cell: (413) 885 9127
>> Fax: (206) 338-4052
>> gwkkwg on Skype * garethsan on AIM
>>
>>
>>
>>

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






From gwking at metabang.com  Mon Jul 23 17:25:54 2007
From: gwking at metabang.com (Gary King)
Date: Mon, 23 Jul 2007 13:25:54 -0400
Subject: [lift-devel] Re: lift, tinaa
In-Reply-To: <628869056@web.de>
References: <628869056@web.de>
Message-ID: <C9F948B7-6AA3-4F23-A807-FA85DF914CB6@metabang.com>

(cc'd to list)

> Hi Gary,
>
> LIFT:   addtest produces this error:
>
>   Condition: Undefined function LIFT::TOTAL-BYTES-ALLOCATED called  
> with arguments ().
>
> file port.lisp lacks a defun for lispworks. My replacement was
>
> #+lispworks
> (defun total-bytes-allocated ()
>   (hcl:total-allocation))
>
> hcl:total-allocation sounds applicable from its name but I do not know
> whether this is your intention. I wasn't even able to find
> sys::gsgc-totalloc-bytes in the ACL documentation...

Hi Frank,

I've added this to LIFT as part of version 1.3.4. Thanks very much.  
The Lisp standard is unfortunately quiet about some things that would  
be really helpful (such as being able to programatically ask about  
consing!) To be honest, I'm not completely sure about gsgc-totalloc- 
bytes either but it seems to do the trick!

thanks again,
--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM






From gwking at metabang.com  Mon Jul 23 17:26:27 2007
From: gwking at metabang.com (Gary King)
Date: Mon, 23 Jul 2007 13:26:27 -0400
Subject: [lift-devel] self test problems
In-Reply-To: <502A56F3-60AC-4510-B1DF-19235D3CEC36@yahoo.com>
References: <C5C954C3-BD1C-4E47-9C8E-DD6E791E1FC5@yahoo.com>
	<EA128FC8-9690-464D-A1E1-8E74FC5FEB3A@metabang.com>
	<473D379D-C334-4DC1-B989-4B9AD2FC3437@yahoo.com>
	<7CF96313-9E50-4572-ACB8-93120E3707C5@metabang.com>
	<502A56F3-60AC-4510-B1DF-19235D3CEC36@yahoo.com>
Message-ID: <ECAF172E-F7EF-4264-8E11-E9B366304AD9@metabang.com>

(cc'd to list)

Thanks Henry,

I've included your patch in version 1.3.4.


On Jul 20, 2007, at 10:19 PM, Henry Irvine wrote:

> It turns out that there is an error in openmcl's format code that  
> is causing crashes in lisp.
> Attached emails are from openmcl developer's regarding said error.   
> As it looks like a fix for this
> will be in soon, I don't plan on submitting a patch for lift to  
> work around the problem.
>
> I did put together the (minor) changes that were needed to get  
> things working on clisp (haven't figured out how to calculate  
> conses yet.)
> <clisp.patch>
>
> Henry
> On Jul 20, 2007, at 12:11 PM, Gary King wrote:
>
>> (cc'd to list)
>>
>> Hi Henry,
>>
>> You're right. I've been used mostly Allegro and didn't check SBCL  
>> from scratch. I'm just pushing 1.3.3 up now; please let me know if  
>> this corrects things for you. I'm not sure about the OpenMCL thing  
>> and don't use OpenMCL right now; so please let me know if there's  
>> anything I can change or do to help.
>>
>>
>> On Jul 20, 2007, at 2:57 AM, Henry Irvine wrote:
>>
>>> The tests will not compile (not in sbcl or openmcl).  I am using  
>>> an up-to-date darcs pulled copy of the lift package.
>>>
>>> There is another problem with the describe-object method in  
>>> lift.lisp.  It appears to be openmcl specific and directly  
>>> related to the cl format function so (although it crashes lift)
>>> I will post the details to openmcl-devel.
>>>
>>> Henry Irvine
>>>
>>> On Jul 19, 2007, at 8:01 AM, Gary King wrote:
>>>
>>>> Hi Henry,
>>>>
>>>> LIFT is currently failing 3 of it's self-tests (for me, under  
>>>> Allegro and SBCL). I'm pretty sure that this is the tests  
>>>> "fault", not LIFT's; I'll finish tracking this down by the weekend.
>>>>
>>>> thanks for the report and for looking at LIFT.
>>>>
>>>>
>>>> On Jul 17, 2007, at 2:30 AM, Henry Irvine wrote:
>>>>
>>>>> I have been trying to get lift working in my preferred  
>>>>> environment (openmcl64) and have had some problems getting it  
>>>>> to pass
>>>>> it's own tests...
>>>>> On further investigation, the same failure occurs in both sbcl  
>>>>> and openmcl on both intel64 and ppc32 hardware.
>>>>>
>>>>> Oddly clisp (once a patch for get-backtrace is added) runs all  
>>>>> the tests in both environments.
>>>>>
>>>>> I am not familiar enough with exactly what is happening where  
>>>>> to figure this one out.
>>>>> Output from an openmcl session and from a sbcl session  where  
>>>>> (asdf:oos 'asdf:test-op :lift) is invoked follows...
>>>>>
>>>>> Henry Irvine
>>>>>
>>>>
>>>> --
>>>> Gary Warren King, metabang.com
>>>> Cell: (413) 885 9127
>>>> Fax: (206) 338-4052
>>>> gwkkwg on Skype * garethsan on AIM
>>>>
>>>>
>>>>
>>>>
>>
>> --
>> Gary Warren King, metabang.com
>> Cell: (413) 885 9127
>> Fax: (206) 338-4052
>> gwkkwg on Skype * garethsan on AIM
>>
>>
>>
>>
>

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