[cmucl-help] error in compile-file?
Pascal J. Bourguignon
pjb at informatimago.com
Sat Apr 11 13:47:12 UTC 2015
I get this following problem both in cmucl-20d and cmucl-20f, binary
release; (I've not tested other versions). The backtrace indicates that
the assertion fails when closing the newly compiled fasl file.
What would be the problem?
To load "com.informatimago.common-lisp":
Load 1 ASDF system:
com.informatimago.common-lisp
; Loading "com.informatimago.common-lisp"
..................................................
[package com.informatimago.common-lisp.cesarum.dfa].
.....
Error in function LISP::ASSERT-ERROR:
The assertion (ZEROP (HASH-TABLE-COUNT (C::FASL-FILE-PATCH-TABLE C::FILE))) failed.
[Condition of type SIMPLE-ERROR]
Restarts:
0: [CONTINUE ] Retry assertion.
1: [RETRY ] Retry
compiling #<CL-SOURCE-FILE "com.informatimago.common-lisp.cesarum" "dfa">.
2: [ACCEPT ] Continue, treating
compiling #<CL-SOURCE-FILE "com.informatimago.common-lisp.cesarum" "dfa">
as having been successful.
3: Retry ASDF operation.
4: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the configuration.
5: [ABORT ] Give up on "com.informatimago.common-lisp"
6: Return NIL from load of #P"home:rc/common.lisp".
7: Return NIL from load of "home:.cmucl-init".
8: Skip remaining initializations.
Debug (type H for help)
(LISP::ASSERT-ERROR (ZEROP (HASH-TABLE-COUNT #)) NIL NIL)
Source:
; File: target:code/macros.lisp
; File has been modified since compilation:
; target:code/macros.lisp
; Using form offset instead of character position.
(RESTART-CASE (ERROR COND)
(CONTINUE () :REPORT (LAMBDA # #) NIL))
0] backtrace
0: (LISP::ASSERT-ERROR (ZEROP (HASH-TABLE-COUNT #)) NIL NIL)
1: (C::CLOSE-FASL-FILE
#<Fasl-File "/home/pjb/.cache/common-lisp/cmu-20f___20f_unicode_-linux-x86/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa-TMP.sse2f">
NIL)
2: ((FLET #:G6 COMPILE-FILE))[:CLEANUP]
3: (COMPILE-FILE #P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp"
:OUTPUT-FILE #P"/home/pjb/.cache/common-lisp/cmu-20f___20f_unicode_-linux-x86/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa-TMP.sse2f"
:ERROR-FILE ...)
4: (NIL)
5: (NIL)
6: (NIL 0)[:EXTERNAL]
7: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAD5B9}>
NIL)
8: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAD5B9}>
NIL)
9: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS 2
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAD5B9}>
NIL)[:EXTERNAL]
10: (UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAD5B9}>)
11: (UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAD5B9}>)
12: (UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS 1
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAD5B9}>)[:EXTERNAL]
13: (NIL)
14: (NIL)
15: (NIL 0)[:EXTERNAL]
16: (UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAACD9}>
NIL
:SOURCE-NAMESTRING "/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp")[:OPTIONAL]
17: (UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAACD9}>
NIL
:SOURCE-NAMESTRING "/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp")[:OPTIONAL]
18: (NIL
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAACD9}>
NIL (:SOURCE-NAMESTRING "/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp") 2)[:OPTIONAL]
19: (UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS 4
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAACD9}>
NIL)[:EXTERNAL]
20: (NIL #P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp")
21: (NIL #P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp")
22: (NIL 1 #P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp")[:EXTERNAL]
23: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp"
NIL
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAAA81}>)
24: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp"
NIL
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAAA81}>)
25: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME 3
#P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp"
NIL
#<Interpreted Function "LAMBDA (INPUT-FILE &REST KEYS &KEY (COMPILE-CHECK *COMPILE-CHECK*) OUTPUT-FILE WARNINGS-FILE &ALLOW-OTHER-KEYS)"
{58CAAA81}>)[:EXTERNAL]
26: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp"
:OUTPUT-FILE #P"/home/pjb/.cache/common-lisp/cmu-20f___20f_unicode_-linux-x86/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.sse2f"
:EXTERNAL-FORMAT ...)[:OPTIONAL]
27: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp"
:OUTPUT-FILE #P"/home/pjb/.cache/common-lisp/cmu-20f___20f_unicode_-linux-x86/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.sse2f"
:EXTERNAL-FORMAT ...)[:OPTIONAL]
28: (NIL #P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp"
(:OUTPUT-FILE
#P"/home/pjb/.cache/common-lisp/cmu-20f___20f_unicode_-linux-x86/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.sse2f"
:EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE ...)
6)[:OPTIONAL]
29: (UIOP/LISP-BUILD:COMPILE-FILE* 7 #P"/home/pjb/src/git/public/lisp/common-lisp/cesarum/dfa.lisp")[:EXTERNAL]
30: (NIL)[:OPTIONAL]
31: (NIL)[:OPTIONAL]
32: (NIL NIL 0)[:OPTIONAL]
33: (NIL 0)[:EXTERNAL]
34: (UIOP/UTILITY:CALL-FUNCTION FUNCALL #<Interpreted Function "LAMBDA (O C)" {58ACDEB1}>)[:OPTIONAL]
35: (UIOP/UTILITY:CALL-FUNCTION FUNCALL #<Interpreted Function "LAMBDA (O C)" {58ACDEB1}>)[:OPTIONAL]
36: (NIL FUNCALL (#<Interpreted Function "LAMBDA (O C)" {58ACDEB1}>) 1)[:OPTIONAL]
37: (UIOP/UTILITY:CALL-FUNCTION 2 FUNCALL)[:EXTERNAL]
38: (UIOP/LISP-BUILD:CALL-AROUND-HOOK NIL #<Interpreted Function "LAMBDA (O C)" {58ACDEB1}>)
39: (UIOP/LISP-BUILD:CALL-AROUND-HOOK NIL #<Interpreted Function "LAMBDA (O C)" {58ACDEB1}>)
40: (UIOP/LISP-BUILD:CALL-AROUND-HOOK 2 NIL #<Interpreted Function "LAMBDA (O C)" {58ACDEB1}>)[:EXTERNAL]
41: ((PCL:FAST-METHOD ASDF/LISP-ACTION:CALL-WITH-AROUND-COMPILE-HOOK (ASDF/COMPONENT:COMPONENT T))
(#() . #(#)) #<unused-arg>
#<ASDF/LISP-ACTION:CL-SOURCE-FILE "com.informatimago.common-lisp.cesarum" "dfa">
#<Interpreted Function "LAMBDA (O C)" {58ACDEB1}>)
42: ((PCL:FAST-METHOD ASDF/LISP-ACTION:CALL-WITH-AROUND-COMPILE-HOOK (ASDF/COMPONENT:COMPONENT T)) 4
(#() . #(#)) #<unused-arg>
#<ASDF/LISP-ACTION:CL-SOURCE-FILE "com.informatimago.common-lisp.cesarum" "dfa"> ...)[:EXTERNAL]
43: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP >
#<ASDF/LISP-ACTION:CL-SOURCE-FILE
"com.informatimago.common-lisp.cesarum" "dfa">)
44: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP >
#<ASDF/LISP-ACTION:CL-SOURCE-FILE
"com.informatimago.common-lisp.cesarum" "dfa">)
45: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION 2
#<ASDF/LISP-ACTION:COMPILE-OP >
#<ASDF/LISP-ACTION:CL-SOURCE-FILE
"com.informatimago.common-lisp.cesarum" "dfa">)[:EXTERNAL]
46: ((PCL:FAST-METHOD ASDF/ACTION:PERFORM (ASDF/LISP-ACTION:COMPILE-OP ASDF/LISP-ACTION:CL-SOURCE-FILE))
#<#1=unused-arg> #<#1#> #<ASDF/LISP-ACTION:COMPILE-OP >
#<ASDF/LISP-ACTION:CL-SOURCE-FILE "com.informatimago.common-lisp.cesarum" "dfa">)
47: ((PCL:FAST-METHOD ASDF/ACTION:PERFORM (ASDF/LISP-ACTION:COMPILE-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) 4
#<#1=unused-arg> #<#1#> #<ASDF/LISP-ACTION:COMPILE-OP > ...)[:EXTERNAL]
48: ("LAMBDA (G3287 G3288 G3289)" #<#1=unused-arg> #<#1#> #<ASDF/LISP-ACTION:COMPILE-OP >
#<ASDF/LISP-ACTION:CL-SOURCE-FILE "com.informatimago.common-lisp.cesarum" "dfa">)
49: ("LAMBDA (G3287 G3288 G3289)" 4 #<#1=unused-arg> #<#1#> #<ASDF/LISP-ACTION:COMPILE-OP > ...)[:EXTERNAL]
50: ((PCL:FAST-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (T T)) #<#1=unused-arg> #<#1#>
#<ASDF/LISP-ACTION:COMPILE-OP >
#<ASDF/LISP-ACTION:CL-SOURCE-FILE "com.informatimago.common-lisp.cesarum" "dfa">)
51: ((PCL:FAST-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (T T)) 4 #<#1=unused-arg> #<#1#>
#<ASDF/LISP-ACTION:COMPILE-OP > ...)[:EXTERNAL]
52: ((PCL:FAST-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {581B6681}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
#<ASDF/LISP-ACTION:COMPILE-OP >
#<ASDF/LISP-ACTION:CL-SOURCE-FILE "com.informatimago.common-lisp.cesarum" "dfa">)
53: ((PCL:FAST-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) 4 #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {581B6681}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
#<ASDF/LISP-ACTION:COMPILE-OP > ...)[:EXTERNAL]
54: ((PCL:FAST-METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) #<#1=unused-arg> #<#1#>
((#2=# . #3=#) (#2# . #4=#) (#5=# . #4#) (# . #3#) (#5# . #3#) ...) (:VERBOSE NIL))
55: ((PCL:FAST-METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) 4 #<#1=unused-arg> #<#1#>
((#2=# . #3=#) (#2# . #4=#) (#5=# . #4#) (# . #3#) (#5# . #3#) ...) ...)[:EXTERNAL]
56: ((FLET #:G22 (PCL:FAST-METHOD ASDF/PLAN:PERFORM-PLAN :AROUND #)))
57: ((PCL:FAST-METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {581D2CE9}>
:PV-CELL NIL
:NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
:FUNCTION #
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO #)
:ARG-INFO (1 . T))
((#1=# . #2=#) (#1# . #3=#) (#4=# . #3#) (# . #2#) (#4# . #2#) ...) (:VERBOSE NIL))
58: ((PCL:FAST-METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) 4 #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {581D2CE9}>
:PV-CELL NIL
:NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
:FUNCTION #
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO #)
:ARG-INFO (1 . T))
((#1=# . #2=#) (#1# . #3=#) (#4=# . #3#) (# . #2#) (#4# . #2#) ...) ...)[:EXTERNAL]
59: ((PCL:FAST-METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<#1=unused-arg> #<#1#>
#<ASDF/PLAN:SEQUENTIAL-PLAN {58F6431D}> (:VERBOSE NIL))
60: ((PCL:FAST-METHOD ASDF/PLAN:PERFORM-PLAN (T)) 4 #<#1=unused-arg> #<#1#>
#<ASDF/PLAN:SEQUENTIAL-PLAN {58F6431D}> ...)[:EXTERNAL]
61: ((FLET #:G22 (PCL:FAST-METHOD ASDF/PLAN:PERFORM-PLAN :AROUND #)))
62: ((PCL:FAST-METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {581D29D9}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T))
#<ASDF/PLAN:SEQUENTIAL-PLAN {58F6431D}> (:VERBOSE NIL))
63: ((PCL:FAST-METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) 4 #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {581D29D9}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T))
#<ASDF/PLAN:SEQUENTIAL-PLAN {58F6431D}> ...)[:EXTERNAL]
64: ((PCL:FAST-METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT))
#<#1=unused-arg> #<#1#> #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL>
#<ASDF/SYSTEM:SYSTEM "com.informatimago.common-lisp"> ...)
65: ((PCL:FAST-METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) 5
#<#1=unused-arg> #<#1#> #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> ...)[:EXTERNAL]
66: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G3896 G3897 G3898)" #<#1=unused-arg> #<#1#>
#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "com.informatimago.common-lisp"> ...)
67: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G3896 G3897 G3898)" 5 #<#1=unused-arg> #<#1#>
#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> ...)[:EXTERNAL]
68: ("LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)")
69: ("LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)" 0)[:EXTERNAL]
70: (ASDF/CACHE:CALL-WITH-ASDF-CACHE
#<Closure Over Function "LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)"
{58F638A1}>
:OVERRIDE NIL
:KEY ...)[:OPTIONAL]
71: (ASDF/CACHE:CALL-WITH-ASDF-CACHE
#<Closure Over Function "LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)"
{58F638A1}>
:OVERRIDE NIL
:KEY ...)[:OPTIONAL]
72: (NIL
#<Closure Over Function "LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)"
{58F638A1}>
(:OVERRIDE NIL :KEY NIL) 4)[:OPTIONAL]
73: (ASDF/CACHE:CALL-WITH-ASDF-CACHE 5
#<Closure Over Function "LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)"
{58F638A1}>)[:EXTERNAL]
74: ((PCL:FAST-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Closure Over Function "LAMBDA (.KEYARGS-START. .VALID-KEYS. G3896 G3897 G3898)"
{581FFC61}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2 . T))
#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "com.informatimago.common-lisp"> ...)
75: ((PCL:FAST-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) 5 #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Closure Over Function "LAMBDA (.KEYARGS-START. .VALID-KEYS. G3896 G3897 G3898)"
{581FFC61}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2 . T))
#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> ...)[:EXTERNAL]
76: ((PCL:FAST-METHOD ASDF/OPERATE:OPERATE (SYMBOL T)) #<#1=unused-arg> #<#1#> ASDF/LISP-ACTION:LOAD-OP
"com.informatimago.common-lisp" ...)
77: ((PCL:FAST-METHOD ASDF/OPERATE:OPERATE (SYMBOL T)) 5 #<#1=unused-arg> #<#1#> ASDF/LISP-ACTION:LOAD-OP ...)[:EXTERNAL]
78: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G3893 G3894 G3895)" #<#1=unused-arg> #<#1#>
ASDF/LISP-ACTION:LOAD-OP "com.informatimago.common-lisp" ...)
79: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G3893 G3894 G3895)" 5 #<#1=unused-arg> #<#1#>
ASDF/LISP-ACTION:LOAD-OP ...)[:EXTERNAL]
80: ("LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)")
81: ("LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)" 0)[:EXTERNAL]
82: (ASDF/CACHE:CALL-WITH-ASDF-CACHE
#<Closure Over Function "LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)"
{58F31B49}>
:OVERRIDE NIL
:KEY ...)[:OPTIONAL]
83: (ASDF/CACHE:CALL-WITH-ASDF-CACHE
#<Closure Over Function "LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)"
{58F31B49}>
:OVERRIDE NIL
:KEY ...)[:OPTIONAL]
84: (ASDF/CACHE:CALL-WITH-ASDF-CACHE
#<Closure Over Function "LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)"
{58F31B49}>
:OVERRIDE NIL
:KEY ...)[:OPTIONAL]
85: (NIL
#<Closure Over Function "LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)"
{58F31B49}>
(:OVERRIDE NIL :KEY NIL) 4)[:OPTIONAL]
86: (ASDF/CACHE:CALL-WITH-ASDF-CACHE 5
#<Closure Over Function "LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OPERATION COMPONENT .REST-ARG.)"
{58F31B49}>)[:EXTERNAL]
87: ((PCL:FAST-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Closure Over Function "LAMBDA (.KEYARGS-START. .VALID-KEYS. G3893 G3894 G3895)"
{58ADB961}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2 . T))
ASDF/LISP-ACTION:LOAD-OP "com.informatimago.common-lisp" ...)
88: ((PCL:FAST-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) 5 #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Closure Over Function "LAMBDA (.KEYARGS-START. .VALID-KEYS. G3893 G3894 G3895)"
{58ADB961}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2 . T))
ASDF/LISP-ACTION:LOAD-OP ...)[:EXTERNAL]
89: ((PCL:FAST-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Closure Over Function "LAMBDA (.KEYARGS-START. .VALID-KEYS. G3893 G3894 G3895)"
{58ADB961}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2 . T))
ASDF/LISP-ACTION:LOAD-OP "com.informatimago.common-lisp" ...)
90: ((PCL:FAST-METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) 5 #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Closure Over Function "LAMBDA (.KEYARGS-START. .VALID-KEYS. G3893 G3894 G3895)"
{58ADB961}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2 . T))
ASDF/LISP-ACTION:LOAD-OP ...)[:EXTERNAL]
91: (ASDF/OPERATE:OOS ASDF/LISP-ACTION:LOAD-OP "com.informatimago.common-lisp" :VERBOSE NIL)[:OPTIONAL]
92: (ASDF/OPERATE:OOS ASDF/LISP-ACTION:LOAD-OP "com.informatimago.common-lisp" :VERBOSE NIL)[:OPTIONAL]
93: (NIL ASDF/LISP-ACTION:LOAD-OP "com.informatimago.common-lisp" (:VERBOSE NIL) 2)[:OPTIONAL]
94: (ASDF/OPERATE:OOS 4 ASDF/LISP-ACTION:LOAD-OP "com.informatimago.common-lisp")[:EXTERNAL]
95: ("DEFUN APPLY-LOAD-STRATEGY")
96: ("DEFUN APPLY-LOAD-STRATEGY" 0)[:EXTERNAL]
97: (QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS
#<Closure Over Function "DEFUN APPLY-LOAD-STRATEGY" {58E7A891}>)
98: (QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS 1
#<Closure Over Function "DEFUN APPLY-LOAD-STRATEGY"
{58E7A891}>)[:EXTERNAL]
99: (QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY
#<QUICKLISP-CLIENT::LOAD-STRATEGY "com.informatimago.common-lisp" (1 asdf, 0 quicklisp)>)
100: (QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY 1
#<QUICKLISP-CLIENT::LOAD-STRATEGY
"com.informatimago.common-lisp" (1 asdf, 0 quicklisp)>)[:EXTERNAL]
101: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "com.informatimago.common-lisp" :PROMPT NIL)
102: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES 3 "com.informatimago.common-lisp")[:EXTERNAL]
103: ((FLET QUICKLISP-CLIENT::QL))
104: ((FLET QUICKLISP-CLIENT::QL) 0)[:EXTERNAL]
105: ((METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION NIL (T T)) #<#1=unused-arg> #<#1#> #<#1#>
#<Closure Over Function (FLET QUICKLISP-CLIENT::QL) {58CE1339}>)
106: ((METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION NIL (T T)) 4 #<#1=unused-arg> #<#1#> #<#1#> ...)[:EXTERNAL]
107: ((METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (:AROUND) (QL-IMPL:CMUCL T)) #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {5983F049}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
#<QL-IMPL:CMUCL {599D5FDD}> #<Closure Over Function (FLET QUICKLISP-CLIENT::QL) {58CE1339}>)
108: ((METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (:AROUND) (QL-IMPL:CMUCL T)) 4 #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {5983F049}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
#<QL-IMPL:CMUCL {599D5FDD}> ...)[:EXTERNAL]
109: (QL-IMPL-UTIL:CALL-WITH-QUIET-COMPILATION
#<Closure Over Function (FLET QUICKLISP-CLIENT::QL) {58CE1339}>)
110: (QL-IMPL-UTIL:CALL-WITH-QUIET-COMPILATION 1
#<Closure Over Function (FLET QUICKLISP-CLIENT::QL)
{58CE1339}>)[:EXTERNAL]
111: ((METHOD QUICKLISP-CLIENT:QUICKLOAD NIL (T)) #<#1=unused-arg> #<#1#> ("com.informatimago.common-lisp")
NIL)
112: ((METHOD QUICKLISP-CLIENT:QUICKLOAD NIL (T)) 4 #<#1=unused-arg> #<#1#> "com.informatimago.common-lisp"
...)[:EXTERNAL]
113: ("DEFMETHOD QUICKLOAD AROUND (T)")
114: ("DEFMETHOD QUICKLOAD AROUND (T)" 0)[:EXTERNAL]
115: (QL-DIST::CALL-WITH-CONSISTENT-DISTS
#<Closure Over Function "DEFMETHOD QUICKLOAD AROUND (T)" {58CD9F59}>)
116: (QL-DIST::CALL-WITH-CONSISTENT-DISTS 1
#<Closure Over Function "DEFMETHOD QUICKLOAD AROUND (T)"
{58CD9F59}>)[:EXTERNAL]
117: ((METHOD QUICKLISP-CLIENT:QUICKLOAD (:AROUND) (T)) #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {58950051}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T))
"com.informatimago.common-lisp" NIL)
118: ((METHOD QUICKLISP-CLIENT:QUICKLOAD (:AROUND) (T)) 4 #<unused-arg>
#S(PCL::FAST-METHOD-CALL
:FUNCTION #<Function # {58950051}>
:PV-CELL NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T))
"com.informatimago.common-lisp" ...)[:EXTERNAL]
119: (LISP::SLOLOAD #<Stream for file "/home/pjb/rc/common.lisp">)
120: (LISP::INTERNAL-LOAD #P"home:rc/common.lisp" #P"/home/pjb/rc/common.lisp" :ERROR :SOURCE ...)
121: (LISP::INTERNAL-LOAD #P"home:rc/common.lisp" #P"/home/pjb/rc/common.lisp" :ERROR NIL ...)
122: (LOAD #P"home:rc/common.lisp" :VERBOSE NIL :PRINT ...)
123: (LISP::SLOLOAD #<Stream for file "/home/pjb/rc/cmucl-init.lisp">)
124: (LISP::INTERNAL-LOAD #P"home:.cmucl-init.lisp" #P"/home/pjb/rc/cmucl-init.lisp" NIL :SOURCE ...)
125: (LOAD "home:.cmucl-init" :VERBOSE NIL :PRINT ...)
126: ((LABELS LISP::%RESTART-LISP EXTENSIONS:SAVE-LISP))
127: ((LABELS LISP::RESTART-LISP EXTENSIONS:SAVE-LISP))
0]
[pjb at kuiper :0.0 ~]$ lisp -noinit
CMU Common Lisp 20f (20F Unicode), running on kuiper
With core: /data/languages/cmucl-20f-x86-linux/lib/cmucl/lib/lisp-sse2.core
Dumped on: Sat, 2014-10-04 23:33:29+02:00 on lorien2
See <http://www.cmucl.org/> for support information.
Loaded subsystems:
Unicode 1.29 with Unicode version 6.2.0
Python 1.1, target Intel x86/sse2
CLOS based on Gerd's PCL 2010/03/19 15:19:03
*
--
__Pascal Bourguignon__ http://www.informatimago.com/
“The factory of the future will have only two employees, a man and a
dog. The man will be there to feed the dog. The dog will be there to
keep the man from touching the equipment.” -- Carl Bass CEO Autodesk
More information about the cmucl-help
mailing list