[lift-devel] (no subject)
Gary King
gwking at metabang.com
Tue Jul 17 18:13:24 UTC 2007
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
More information about the lift-devel
mailing list