[lift-devel] (no subject)
Henry Irvine
henryirvine at yahoo.com
Tue Jul 17 06:30:19 UTC 2007
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]
More information about the lift-devel
mailing list