OLDPWD=/home/etimmons/common-lisp/asdf
PWD=/home/etimmons/common-lisp/asdf/test
sbcl --no-userinit --no-sysinit --disable-debugger --eval "(or\`,#.(load(string\`|script-support.lisp|))#.(asdf-test::compile-asdf-script))"
This is SBCL 1.4.7, an implementation of ANSI Common Lisp.
More information about SBCL is available at .
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.
; loading #P"/home/etimmons/common-lisp/asdf/build/fasls/sbcl/asdf.fasl"
Reusing previously-compiled ASDF
Compiled OK
Testing: test-deferred-warnings.script
sbcl --no-userinit --no-sysinit --disable-debugger --eval "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test:run-test-script'|test-deferred-warnings.script|))"
This is SBCL 1.4.7, an implementation of ANSI Common Lisp.
More information about SBCL is available at .
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.
; loading #P"/home/etimmons/common-lisp/asdf/build/fasls/sbcl/asdf.fasl"
Configuring ASDF
Enabling debugging
Being a bit verbose
Comparing directories
ASDF-TEST:*TEST-DIRECTORY* and
(:PATHNAME-DIRECTORY-PATHNAME (NTH-VALUE 2 (:LOCATE-SYSTEM :TEST-ASDF))) both evaluate to same path:
#P"/home/etimmons/common-lisp/asdf/test/"
Frob packages
Running test-deferred-warnings.script with sbcl-1.4.7-linux-x64
; loading #P"/home/etimmons/common-lisp/asdf/test/test-deferred-warnings.script"
; Registering system unintern-foo
; Registering system use-foo-only
; Registering system use-foo-with-wrapper
; Registering system use-then-defun-foo
; Registering system use-then-defmacro-foo
; Registering system use-setf-foo-only
; Registering system use-setf-then-defun-foo
; Registering system use-setf-then-defsetf-foo
; Registering system undefined-variables
TDW0
UIOP/LISP-BUILD:*COMPILE-FILE-WARNINGS-BEHAVIOUR* => :WARN
;; loading #P"/home/etimmons/common-lisp/asdf/build/fasls/sbcl-1.4.7-linux-x64/asdf/test/unintern-foo.fasl"
; compiling file "/home/etimmons/common-lisp/asdf/test/use-foo.lisp" (written 16 FEB 2018 10:16:30 PM):
; /home/etimmons/common-lisp/asdf/build/fasls/sbcl-1.4.7-linux-x64/asdf/test/use-foo-tmpGHU3ALSV.fasl written
; compilation finished in 0:00:00.001
;; loading #P"/home/etimmons/common-lisp/asdf/build/fasls/sbcl-1.4.7-linux-x64/asdf/test/use-foo.fasl"
CFWBI-UFO
ASDF-TEST::C => #
While evaluating the form starting at line 42, column 0
of #P"/home/etimmons/common-lisp/asdf/test/test-deferred-warnings.script":
TEST ABORTED: Unknown &KEY argument: :ENCLOSING-SOURCE
Backtrace:
Backtrace for: #
0: (SB-C::MAKE-COMPILER-ERROR-CONTEXT :ENCLOSING-SOURCE NIL :SOURCE NIL :ORIGINAL-SOURCE " (ASDF-TEST/DEFERRED-WARNINGS::FOO ASDF-TEST/DEFERRED-WARNINGS::X)" :CONTEXT ((DEFUN ASDF-TEST/DEFERRED-WARNINGS::USE-FOO)) :FILE-NAME #P"/home/etimmons/common-lisp/asdf/test/use-foo.lisp" :FILE-POSITION 41 :ORIGINAL-SOURCE-PATH (3 1)) [more]
1: ((LAMBDA (UIOP/LISP-BUILD::STUFF) :IN UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS) (:FUNCTION ASDF-TEST/DEFERRED-WARNINGS::FOO 1 (:ENCLOSING-SOURCE NIL :SOURCE NIL :ORIGINAL-SOURCE " (ASDF-TEST/DEFERRED-WARNINGS::FOO ASDF-TEST/DEFERRED-WARNINGS::X)" :CONTEXT ((DEFUN ASDF-TEST/DEFERRED-WARNINGS::USE-FOO)) :FILE-NAME #P"/home/etimmons/common-lisp/asdf/test/use-foo.lisp" :FILE-POSITION 41 ...)))
2: (UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS ((SB-C::*UNDEFINED-WARNINGS* (:FUNCTION ASDF-TEST/DEFERRED-WARNINGS::FOO 1 (:ENCLOSING-SOURCE NIL :SOURCE NIL :ORIGINAL-SOURCE " (ASDF-TEST/DEFERRED-WARNINGS::FOO ASDF-TEST/DEFERRED-WARNINGS::X)" :CONTEXT (#) :FILE-NAME #P"/home/etimmons/common-lisp/asdf/test/use-foo.lisp" :FILE-POSITION 41 ...)))))
3: ((FLET "LAMBDA0" :IN "/home/etimmons/common-lisp/asdf/build/asdf.lisp"))
4: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
5: (UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS (#P"/home/etimmons/common-lisp/asdf/build/fasls/sbcl-1.4.7-linux-x64/asdf/test/use-foo.sbcl-warnings") NIL NIL)
6: (ASDF/LISP-ACTION::PERFORM-LISP-WARNINGS-CHECK # #)
7: ((SB-PCL::EMF ASDF/ACTION:PERFORM) # # # #)
8: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
9: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) # #) [fast-method]
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #) [fast-method]
11: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
12: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #) [fast-method]
13: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) # # :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
14: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) # # # # :FORCE T)
15: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
16: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) # # :FORCE T) [fast-method]
17: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) # # ASDF/LISP-ACTION:LOAD-OP :USE-FOO-ONLY :FORCE T)
18: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
19: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP :USE-FOO-ONLY :FORCE T) [fast-method]
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION # :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
21: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
22: (ASDF/SESSION:CALL-WITH-ASDF-SESSION # :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
23: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP :USE-FOO-ONLY :FORCE T) [fast-method]
24: (ASDF/OPERATE:LOAD-SYSTEM :USE-FOO-ONLY :FORCE T)
25: ((LAMBDA NIL :IN "/home/etimmons/common-lisp/asdf/test/test-deferred-warnings.script"))
26: (SB-INT:SIMPLE-EVAL-IN-LEXENV (HANDLER-BIND ((ERROR (LAMBDA (ASDF-TEST::C) (ASDF-TEST::DBG :CFWBI-UFO ASDF-TEST::C)))) (LET ((UIOP/LISP-BUILD:*COMPILE-FILE-WARNINGS-BEHAVIOUR* :IGNORE)) (ASDF/OPERATE:LOAD-SYSTEM :USE-FOO-ONLY :FORCE T))) #)
27: (SB-EXT:EVAL-TLF (HANDLER-BIND ((ERROR (LAMBDA (ASDF-TEST::C) (ASDF-TEST::DBG :CFWBI-UFO ASDF-TEST::C)))) (LET ((UIOP/LISP-BUILD:*COMPILE-FILE-WARNINGS-BEHAVIOUR* :IGNORE)) (ASDF/OPERATE:LOAD-SYSTEM :USE-FOO-ONLY :FORCE T))) 12 NIL)
28: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (HANDLER-BIND ((ERROR (LAMBDA (ASDF-TEST::C) (ASDF-TEST::DBG :CFWBI-UFO ASDF-TEST::C)))) (LET ((UIOP/LISP-BUILD:*COMPILE-FILE-WARNINGS-BEHAVIOUR* :IGNORE)) (ASDF/OPERATE:LOAD-SYSTEM :USE-FOO-ONLY :FORCE T))) 12)
29: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) (HANDLER-BIND ((ERROR (LAMBDA (ASDF-TEST::C) (ASDF-TEST::DBG :CFWBI-UFO ASDF-TEST::C)))) (LET ((UIOP/LISP-BUILD:*COMPILE-FILE-WARNINGS-BEHAVIOUR* :IGNORE)) (ASDF/OPERATE:LOAD-SYSTEM :USE-FOO-ONLY :FORCE T))) :CURRENT-INDEX 12)
30: (SB-C::%DO-FORMS-FROM-INFO # # SB-C::INPUT-ERROR-IN-LOAD)
31: (SB-INT:LOAD-AS-SOURCE # :VERBOSE T :PRINT NIL :CONTEXT "loading")
32: ((FLET SB-FASL::THUNK :IN LOAD))
33: (SB-FASL::CALL-WITH-LOAD-BINDINGS # #)
34: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) # NIL)
35: (LOAD "test-deferred-warnings.script" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
36: ((LAMBDA NIL :IN ASDF-TEST:RUN-TEST-SCRIPT))
37: (ASDF-TEST::CALL-WITH-TEST #)
38: (ASDF-TEST:RUN-TEST-SCRIPT ASDF-TEST::|test-deferred-warnings.script|)
39: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF-TEST:RUN-TEST-SCRIPT (QUOTE ASDF-TEST::|test-deferred-warnings.script|)) #)
40: (EVAL (ASDF-TEST:RUN-TEST-SCRIPT (QUOTE ASDF-TEST::|test-deferred-warnings.script|)))
41: (SB-IMPL::SHARP-DOT # #\. NIL)
42: (SB-IMPL::READ-MAYBE-NOTHING # #\#)
43: (SB-IMPL::READ-LIST # #)
44: (SB-IMPL::READ-MAYBE-NOTHING # #\()
45: (SB-IMPL::%READ-PRESERVING-WHITESPACE # T (NIL) T)
46: (READ # T NIL T)
47: (SB-IMPL::READ-QUOTE # #)
48: (SB-IMPL::READ-MAYBE-NOTHING # #\')
49: (SB-IMPL::%READ-PRESERVING-WHITESPACE # T (NIL) T)
50: (SB-IMPL::%READ-PRESERVING-WHITESPACE # T (NIL) NIL)
51: (READ # T NIL NIL)
52: (SB-IMPL::%READ-FROM-STRING "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test:run-test-script'|test-deferred-warnings.script|))" T NIL 0 NIL NIL)
53: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "'(#.(load(string'|script-support.lisp|))#.(asdf-test::load-asdf)#.(asdf-test::frob-packages)#.(asdf-test:run-test-script'|test-deferred-warnings.script|))")))
54: (SB-IMPL::TOPLEVEL-INIT)
55: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
56: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SB-EXT:SAVE-LISP-AND-DIE))
57: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))
Above backtrace due to this condition:
Unknown &KEY argument: :ENCLOSING-SOURCE
Script failed
;
; compilation unit aborted
; caught 1 fatal ERROR condition
;
; compilation unit aborted
; caught 1 fatal ERROR condition
Using sbcl, test-deferred-warnings.script failed
you can retry compilation with:
./test/run-tests.sh sbcl test-deferred-warnings.script
or more interactively (and maybe with rlwrap or in emacs), start with:
(cd test ; sbcl --no-userinit --no-sysinit )
then copy/paste:
'(#.(load "script-support.lisp") #.(asdf-test::da) #.(load-asdf) #.(frob-packages) #.(load "test-deferred-warnings.script"))
-#---------------------------------------
Using sbcl
Ran 1 tests:
0 passing and 1 failing
failing test(s): test-deferred-warnings.script
-#---------------------------------------