Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Failure to find readtable (using quicklisp on ACl 64) #63

Open
ICanCAD opened this issue Sep 2, 2013 · 3 comments
Open

Failure to find readtable (using quicklisp on ACl 64) #63

ICanCAD opened this issue Sep 2, 2013 · 3 comments
Labels

Comments

@ICanCAD
Copy link

ICanCAD commented Sep 2, 2013

Hello. I am so new to this it is ridiculous. I am trying to bootstrap myself into the brave new world of WWW based LISP applications. (I am not new to LISP - I have been hacking on LISP for 28years) but I sure am new to this git/quicklisp/www stuff.

Here is what happens when I execute (ql:quickload :clack) on Allegro CL 64 SMP:


Bug Report Sunday 1 Sep 2013 at 6:11:34 PM

lisp version: 9.0 [64-bit Windows SMP](Aug 14, 2013 21:06)
cg version: 9.0
platform: nt 6.1.7601 Service Pack 1

Error: There is no readtable named :cl-annot.syntax.
[condition type: simple-error]


Backtrace for process "Listener 1"

error
datum (required) --> simple-error
arguments (rest) -->
(:format-control "There is no readtable named ~s."
:format-arguments (:cl-annot.syntax))
local-0 (local) -->
(:format-control "There is no readtable named ~s."
:format-arguments (:cl-annot.syntax))
local-1 (local) --> simple-error
local-2 (local) --> #<simple-error @ #x1032cb8e2>
local-3 (local) --> 97
local-4 (local) --> nil
local-5 (local) --> nil
unknown (unknown) --> nil
unknown (unknown) --> nil
unknown (unknown) --> nil

named-readtable
name (required) --> :cl-annot.syntax
errorp (optional) --> t
local-0 (local) --> t
local-1 (local) --> :cl-annot.syntax
local-2 (local) --> :cl-annot.syntax
local-3 (local) -->
((:editor-connection-server
. #<readtable named editor-connection-server @ #x1004a6f02>))
local-4 (local) --> nil

%find-readtable
name (required) --> annot::syntax

find-readtable
name (required) --> annot::syntax
name (local) --> annot::syntax

(top-level-form annot.lisp 23)
readtable (local) --> nil

load
filename (required) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\cl-syntax-20120520-git\contrib\annot.fasl"
verbose (keyword) --> :unsupplied
((print load-print)) (keyword) --> :unsupplied
search-list (keyword) --> :unsupplied
if-does-not-exist (keyword) --> :unsupplied
foreign (keyword) --> :unsupplied
foreign-files (keyword) --> :unsupplied
system-libraries (keyword) --> :unsupplied
unreferenced-lib-names (keyword) --> :unsupplied
dynamic-loader-flags (keyword) --> :unsupplied
libfasl (keyword) --> :unsupplied
from-bundle (keyword) --> :unsupplied
check-bundle (keyword) --> :unsupplied
autoload (keyword) --> :unsupplied
system-library (keyword) --> :unsupplied
external-format (keyword) --> :unsupplied
((message-stream system-messages)) (keyword) --> :unsupplied
local-0 (local) --> nil
local-1 (local) -->
(#P"" #P(:type "fasl") #P(:type "cl") #P(:type "lisp")
#P(:type "lsp"))
local-2 (local) --> :error
local-3 (local) --> nil
local-4 (local) --> nil
local-5 (local) --> nil
local-6 (local) --> nil
local-7 (local) --> nil
local-8 (local) --> nil
local-9 (local) --> nil
local-10 (local) --> nil
local-11 (local) --> nil
local-12 (local) --> :default
local-13 (local) --> 27618842
local-14 (local) --> 27618833
local-15 (local) --> 27618824
local-16 (local) --> nil
local-17 (local) --> nil
local-18 (local) --> 27618851
local-19 (local) -->
#<restart excl::retry @ #xd2b6e52>
local-20 (local) --> #<Closure (:internal load 0) @ #xd2b6f42>
local-21 (local) --> #<Closure (:internal load 1) @ #xd2b6f62>
local-22 (local) --> #<Closure (:internal load 2) @ #xd2b6f82>
local-23 (local) --> #<Closure (:internal load 3) @ #xd2b6fa2>
local-24 (local) -->
#<restart excl::skip @ #xd2b6e12>
local-25 (local) --> #<Closure (:internal load 4) @ #xd2b6fc2>
local-26 (local) --> #<Closure (:internal load 5) @ #xd2b6fe2>
local-27 (local) --> #<Closure (flet
load
excl::find-source-from-fasl)
@ #xd2b6f22>
local-28 (local) --> :bad-frame-var-value
local-29 (local) -->
(#<restart excl::retry @ #xd2b6e52>
#<restart excl::skip @ #xd2b6e12>
#<restart excl::recompile-due-to-incompatible-fasl @ #xd2b6dd2>)
local-30 (local) --> :bad-frame-var-value

load*
x (required) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\cl-syntax-20120520-git\contrib\annot.fasl"
local-0 (local) --> nil
local-1 (local) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\cl-syntax-20120520-git\contrib\annot.fasl"
local-2 (local) --> :bad-frame-var-value
local-3 (local) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\cl-syntax-20120520-git\contrib\annot.fasl"
local-4 (local) --> :bad-frame-var-value
local-5 (local) --> :bad-frame-var-value

call-with-muffled-conditions
thunk (required) --> #<Closure (:internal
asdf/lisp-action:perform-lisp-load-fasl
0)
@ #x1032ccde2>
conditions (required) -->
("Overwriting already existing readtable ~S."
#<Vector @ #x1022b0cf2>)
local-0 (local) --> #<Closure (:internal
asdf/lisp-action:perform-lisp-load-fasl
0)
@ #x1032ccde2>
local-1 (local) --> ((t . #<Closure # @ #xd2b7652>))

(internal (effective-method 2 nil nil nil nil) 0)
metharg0 (required) --> #<asdf/lisp-action:load-op >
metharg1 (required) -->
#<asdf/lisp-action:cl-source-file "cl-syntax-annot" "contrib/annot">
local-0 (local) --> #<asdf/lisp-action:load-op >
local-1 (local) -->
#<asdf/lisp-action:cl-source-file "cl-syntax-annot" "contrib/annot">
local-2 (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil nil) 0) @
#x102c42c02>
local-3 (local) --> #<Vector @ #x103280272>
local-4 (local) --> nil
local-5 (local) --> 541565992
local-6 (local) -->
#<Function (method asdf-action:perform :before
(asdf/operation:operation asdf/component:component))>
local-7 (local) -->
#<Function (method asdf-action:perform
(asdf/lisp-action:load-op
asdf/lisp-action:cl-source-file))>
local-8 (local) --> nil

(method perform-with-restarts (load-op cl-source-file))
o (required) --> #<asdf/lisp-action:load-op >
c (required) -->
#<asdf/lisp-action:cl-source-file "cl-syntax-annot" "contrib/annot">
local-0 (local) --> #<asdf/lisp-action:load-op >
local-1 (local) -->
#<asdf/lisp-action:cl-source-file "cl-syntax-annot" "contrib/annot">
local-2 (local) --> #<Function (method
asdf-action:perform-with-restarts
(t t))>
local-3 (local) --> nil
local-4 (local) --> #<asdf/lisp-action:load-op >
local-5 (local) --> 27619101
local-6 (local) --> 27619092
local-7 (local) -->
#<Closure (:internal (method asdf-action:perform-with-restarts #)
0)
@ #xd2b7822>
local-8 (local) -->
#<Closure (:internal (method asdf-action:perform-with-restarts #)
1)
@ #xd2b7842>
local-9 (local) --> (#<restart asdf/lisp-action:try-recompiling @
#x1032d9d52>)

(method perform-with-restarts around (t t))
operation (required) --> #<asdf/lisp-action:load-op >
component (required) -->
#<asdf/lisp-action:cl-source-file "cl-syntax-annot" "contrib/annot">
local-0 (local) --> #<asdf/lisp-action:load-op >
local-1 (local) -->
#<asdf/lisp-action:cl-source-file "cl-syntax-annot" "contrib/annot">
local-2 (local) -->
#<Function (method asdf-action:perform-with-restarts
(asdf/lisp-action:load-op
asdf/lisp-action:cl-source-file))>
local-3 (local) --> (#<Function (method
asdf-action:perform-with-restarts
#)>)
local-4 (local) --> 27619185
local-5 (local) --> 27619176
local-6 (local) -->
#<restart asdf/find-component:retry @ #x1032ccfe2>
local-7 (local) -->
#<Closure (:internal
(method asdf-action:perform-with-restarts :around #) 0)
@ #xd2b7a82>
local-8 (local) -->
#<Closure (:internal
(method asdf-action:perform-with-restarts :around #) 1)
@ #xd2b7aa2>
local-9 (local) -->
#<Closure (:internal
(method asdf-action:perform-with-restarts :around #) 2)
@ #xd2b7ac2>
local-10 (local) -->
#<Closure (:internal
(method asdf-action:perform-with-restarts :around #) 3)
@ #xd2b7ae2>
local-11 (local) -->
(#<restart asdf/find-component:retry @ #x1032ccfe2>
#<restart asdf-action:accept @ #x1032d9d92>)

(internal (effective-method 2 nil nil t t) 0)
metharg0 (required) --> #<asdf/lisp-action:load-op >
metharg1 (required) -->
#<asdf/lisp-action:cl-source-file "cl-syntax-annot" "contrib/annot">
local-0 (local) --> #<asdf/lisp-action:load-op >
local-1 (local) -->
#<asdf/lisp-action:cl-source-file "cl-syntax-annot" "contrib/annot">
local-2 (local) -->
#<Closure (:internal (:effective-method 2 nil nil t t) 0) @
#x102407482>
local-3 (local) -->
#<Function (method asdf-action:perform-with-restarts :around (t t))>

(method perform-plan (list))
steps (required) -->
((#1=#<asdf/lisp-action:prepare-op >
. #<asdf/system:system #2="trivial-types">)
(#1# . #<asdf/component:module #2# #3="src">)
(#1# . #4=#<asdf/lisp-action:cl-source-file #2# #3# "package">)
(#5=#<asdf/lisp-action:compile-op > . #4#)
(#7=#<asdf/lisp-action:load-op > . #4#)
(#1# . #6=#<asdf/lisp-action:cl-source-file #2# #3# "specials">)
(#5# . #6#) (#7# . #6#)
(#1# . #8=#<asdf/lisp-action:cl-source-file #2# #3# "lists">)
(#5# . #8#) (#7# . #8#)
(#1# . #<asdf/lisp-action:cl-source-file #2# #3# "designators">)
...)
force (keyword) --> :unsupplied
local-0 (local) -->
((#4=#<asdf/lisp-action:compile-op >
. #1=#<asdf/system:system "cl-syntax-annot">)
(#6=#<asdf/lisp-action:load-op > . #1#)
(#2=#<asdf/lisp-action:prepare-op >
. #<asdf/system:system #3="cl-ppcre">)
(#2# . #5=#<asdf/lisp-action:cl-source-file #3# "packages">)
(#4# . #5#) (#6# . #5#)
(#2# . #7=#<asdf/lisp-action:cl-source-file #3# "specials">)
(#4# . #7#) (#6# . #7#)
(#2# . #8=#<asdf/lisp-action:cl-source-file #3# "util">)
(#4# . #8#) (#6# . #8#) ...)
local-1 (local) --> nil
local-2 (local) -->
#<asdf/lisp-action:cl-source-file "cl-syntax-annot" "contrib/annot">
local-3 (local) --> #<asdf/lisp-action:load-op >
unknown (unknown) --> nil

(flet (method perform-plan around (t)) continuation)
local-0 (local) --> #<Vector @ #x102c3d2b2>

(method perform-plan around (t))
plan (required) -->
((#1=#<asdf/lisp-action:prepare-op >
. #<asdf/system:system #2="trivial-types">)
(#1# . #<asdf/component:module #2# #3="src">)
(#1# . #4=#<asdf/lisp-action:cl-source-file #2# #3# "package">)
(#5=#<asdf/lisp-action:compile-op > . #4#)
(#7=#<asdf/lisp-action:load-op > . #4#)
(#1# . #6=#<asdf/lisp-action:cl-source-file #2# #3# "specials">)
(#5# . #6#) (#7# . #6#)
(#1# . #8=#<asdf/lisp-action:cl-source-file #2# #3# "lists">)
(#5# . #8#) (#7# . #8#)
(#1# . #<asdf/lisp-action:cl-source-file #2# #3# "designators">)
...)
ampersand-args (rest) --> (:verbose nil)
local-0 (local) --> (:verbose nil)
local-1 (local) -->
#<Closure (flet (method asdf/plan:perform-plan :around #)
excl::continuation)
@ #x102c3d302>
local-2 (local) --> :bad-frame-var-value
local-3 (local) --> #<Vector @ #x102c3d2e2>
local-4 (local) --> #<Vector @ #x102c3d2b2>
local-5 (local) --> 12
local-6 (local) --> #
local-7 (local) --> :bad-frame-var-value
local-8 (local) -->
((#1=#<asdf/lisp-action:prepare-op >
. #<asdf/system:system #2="trivial-types">)
(#1# . #<asdf/component:module #2# #3="src">)
(#1# . #4=#<asdf/lisp-action:cl-source-file #2# #3# "package">)
(#5=#<asdf/lisp-action:compile-op > . #4#)
(#7=#<asdf/lisp-action:load-op > . #4#)
(#1# . #6=#<asdf/lisp-action:cl-source-file #2# #3# "specials">)
(#5# . #6#) (#7# . #6#)
(#1# . #8=#<asdf/lisp-action:cl-source-file #2# #3# "lists">)
(#5# . #8#) (#7# . #8#)
(#1# . #<asdf/lisp-action:cl-source-file #2# #3# "designators">)
...)
local-9 (local) --> #<Function (method asdf/plan:perform-plan (list))>
local-10 (local) --> nil
local-11 (local) --> (#<Function (method asdf/plan:perform-plan #)>)
local-12 (local) --> #
local-13 (local) --> :bad-frame-var-value
local-14 (local) --> :bad-frame-var-value
local-15 (local) --> 0
local-16 (local) --> asdf/lisp-action:compile-op
local-17 (local) --> #<readtable @ #x100207f52>
unknown (unknown) --> nil

(internal (effective-method 1 t nil t t) 0)
metharg0 (required) -->
((#1=#<asdf/lisp-action:prepare-op >
. #<asdf/system:system #2="trivial-types">)
(#1# . #<asdf/component:module #2# #3="src">)
(#1# . #4=#<asdf/lisp-action:cl-source-file #2# #3# "package">)
(#5=#<asdf/lisp-action:compile-op > . #4#)
(#7=#<asdf/lisp-action:load-op > . #4#)
(#1# . #6=#<asdf/lisp-action:cl-source-file #2# #3# "specials">)
(#5# . #6#) (#7# . #6#)
(#1# . #8=#<asdf/lisp-action:cl-source-file #2# #3# "lists">)
(#5# . #8#) (#7# . #8#)
(#1# . #<asdf/lisp-action:cl-source-file #2# #3# "designators">)
...)
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) -->
((#1=#<asdf/lisp-action:prepare-op >
. #<asdf/system:system #2="trivial-types">)
(#1# . #<asdf/component:module #2# #3="src">)
(#1# . #4=#<asdf/lisp-action:cl-source-file #2# #3# "package">)
(#5=#<asdf/lisp-action:compile-op > . #4#)
(#7=#<asdf/lisp-action:load-op > . #4#)
(#1# . #6=#<asdf/lisp-action:cl-source-file #2# #3# "specials">)
(#5# . #6#) (#7# . #6#)
(#1# . #8=#<asdf/lisp-action:cl-source-file #2# #3# "lists">)
(#5# . #8#) (#7# . #8#)
(#1# . #<asdf/lisp-action:cl-source-file #2# #3# "designators">)
...)
local-2 (local) -->
#<Closure (:internal (:effective-method 1 t nil t t) 0) @
#x1023e4b02>

(method perform-plan (t))
plan (required) --> #<asdf/plan:sequential-plan @ #x102a67bb2>
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> (:verbose nil)
local-2 (local) --> #<asdf/plan:sequential-plan @ #x102a67bb2>
unknown (unknown) --> nil
unknown (unknown) --> nil

(flet (method perform-plan around (t)) continuation)
local-0 (local) --> #<Vector @ #x102c3d3a2>

(method perform-plan around (t))
plan (required) --> #<asdf/plan:sequential-plan @ #x102a67bb2>
ampersand-args (rest) --> (:verbose nil)
local-0 (local) --> (:verbose nil)
local-1 (local) -->
#<Closure (flet (method asdf/plan:perform-plan :around #)
excl::continuation)
@ #x102c3d3f2>
local-2 (local) --> 494
local-3 (local) --> #<Vector @ #x102c3d3d2>
local-4 (local) --> #<Vector @ #x102c3d3a2>
local-5 (local) -->
(excl::.functions-called. comp::.max-undefined-function-tally.)
local-6 (local) --> nil
local-7 (local) --> :bad-frame-var-value
local-8 (local) --> #<asdf/plan:sequential-plan @ #x102a67bb2>
local-9 (local) --> #<Function (method asdf/plan:perform-plan (t))>
local-10 (local) --> nil
local-11 (local) --> nil
local-12 (local) --> #
local-13 (local) -->
(excl::.with-compilation-unit. comp::.warnings.
excl::.functions-defined. excl::.functions-called.
comp::.max-undefined-function-tally.)
local-14 (local) -->
(excl::compiler-note . #)
local-15 (local) -->
((excl::compiler-note . #1=#)
(warning . #1#))
local-16 (local) --> #<asdf/system:system "clack">
local-17 (local) --> #<readtable @ #x100207f52>
unknown (unknown) --> nil

(internal (effective-method 1 t nil t t) 0)
metharg0 (required) --> #<asdf/plan:sequential-plan @ #x102a67bb2>
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> #<asdf/plan:sequential-plan @ #x102a67bb2>
local-2 (local) -->
#<Closure (:internal (:effective-method 1 t nil t t) 0) @
#x1023e4e82>

(method operate (operation component))
operation (required) --> #<asdf/lisp-action:load-op :verbose nil>
component (required) --> #<asdf/system:system "clack">
plan-class (keyword) --> :unsupplied
local-0 (local) --> #<asdf/lisp-action:load-op :verbose nil>
local-1 (local) --> (:verbose nil)
local-2 (local) --> :bad-frame-var-value
local-3 (local) --> #<asdf/system:system "clack">
local-4 (local) --> #<asdf/plan:sequential-plan @ #x102a67bb2>
unknown (unknown) --> nil

(internal (effective-method 2 t nil nil t) 0)
metharg0 (required) --> #<asdf/lisp-action:load-op :verbose nil>
metharg1 (required) --> #<asdf/system:system "clack">
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> #<asdf/lisp-action:load-op :verbose nil>
local-2 (local) --> #<asdf/system:system "clack">
local-3 (local) -->
#<Closure (:internal (:effective-method 2 t nil nil t) 0) @
#x1023c3d82>
local-4 (local) --> :external-format
local-5 (local) --> nil
local-6 (local) --> nil

(internal (method operate around (t t)) 0)
local-0 (local) --> #<Vector @ #x102a684f2>

(method operate around (t t))
operation (required) --> #<asdf/lisp-action:load-op :verbose nil>
component (required) --> #<asdf/system:system "clack">
ampersand-args (rest) --> (:verbose nil)
local-0 (local) --> (:verbose nil)
local-1 (local) --> (:verbose nil)
local-2 (local) --> ("clack")
local-3 (local) --> #<Vector @ #x102a684f2>
local-4 (local) --> #<asdf/lisp-action:load-op :verbose nil>
local-5 (local) --> #<Vector @ #x102a68612>
local-6 (local) --> #<equal hash-table with 2 entries @ #x102a68562>
local-7 (local) --> #<Vector @ #x102a685e2>
local-8 (local) --> #<Vector @ #x102a685c2>
local-9 (local) --> #<asdf/lisp-action:load-op :verbose nil>
local-10 (local) --> :bad-frame-var-value
local-11 (local) --> #<asdf/system:system "clack">
local-12 (local) -->
#<Closure (:internal (:effective-method 2 t nil nil t) 0) @
#x1023c3d82>
local-13 (local) --> nil
local-14 (local) --> #<asdf/lisp-action:load-op :verbose nil>
local-15 (local) --> 474
unknown (unknown) --> nil

(internal (effective-method 2 t nil t t) 0)
metharg0 (required) --> #<asdf/lisp-action:load-op :verbose nil>
metharg1 (required) --> #<asdf/system:system "clack">
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> #<asdf/lisp-action:load-op :verbose nil>
local-2 (local) --> #<asdf/system:system "clack">
local-3 (local) -->
#<Closure (:internal (:effective-method 2 t nil t t) 0) @
#x1023c3e12>

(internal (effective-method 2 t nil nil t) 0)
metharg0 (required) --> asdf/lisp-action:load-op
metharg1 (required) --> "clack"
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> asdf/lisp-action:load-op
local-2 (local) --> "clack"
local-3 (local) -->
#<Closure (:internal (:effective-method 2 t nil nil t) 0) @
#x1023ce3d2>
local-4 (local) --> #<Array of rank 9292 @ #xfeffab92>
local-5 (local) --> nil
local-6 (local) --> nil

(internal (method operate around (t t)) 0)
local-0 (local) --> #<Vector @ #x102a68862>

call-with-asdf-cache
thunk (required) --> #<Closure (:internal
(method
asdf/operate:operate
:around
#)
0)
@ #x102a68992>
override (keyword) --> :unsupplied
local-0 (local) --> #<Closure (:internal
(method
asdf/operate:operate
:around
#)
0)
@ #x102a68992>
local-1 (local) --> nil

call-with-system-definitions
thunk (required) --> #<Closure (:internal
(method
asdf/operate:operate
:around
#)
0)
@ #x102a68992>
local-0 (local) --> #<Closure (:internal
(method
asdf/operate:operate
:around
#)
0)
@ #x102a68992>

(method operate around (t t))
operation (required) --> asdf/lisp-action:load-op
component (required) --> "clack"
ampersand-args (rest) --> (:verbose nil)
local-0 (local) --> (:verbose nil)
local-1 (local) --> (:verbose nil)
local-2 (local) --> "clack"
local-3 (local) --> #<Vector @ #x102a68862>
local-4 (local) --> asdf/lisp-action:load-op
local-5 (local) --> #<Vector @ #x102a68b72>
local-6 (local) --> #<equal hash-table with 2 entries @ #x102a68562>
local-7 (local) --> #<Vector @ #x102a68b42>
local-8 (local) --> #<Vector @ #x102a68b22>
local-9 (local) --> asdf/lisp-action:load-op
local-10 (local) --> :bad-frame-var-value
local-11 (local) --> "clack"
local-12 (local) -->
#<Closure (:internal (:effective-method 2 t nil nil t) 0) @
#x1023ce3d2>
local-13 (local) --> nil
local-14 (local) --> asdf/lisp-action:load-op
local-15 (local) --> :bad-frame-var-value
unknown (unknown) --> nil

(internal (effective-method 2 t nil t t) 0)
metharg0 (required) --> asdf/lisp-action:load-op
metharg1 (required) --> "clack"
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> asdf/lisp-action:load-op
local-2 (local) --> "clack"
local-3 (local) -->
#<Closure (:internal (:effective-method 2 t nil t t) 0) @
#x1023ce4d2>

(method operate around (t t))
operation (required) --> asdf/lisp-action:load-op
component (required) --> "clack"
ampersand-args (rest) --> (:verbose nil)
local-0 (local) --> (:verbose nil)
local-1 (local) --> (:verbose nil)
local-2 (local) --> "clack"
local-3 (local) --> #<Vector @ #x102a68ea2>
local-4 (local) --> asdf/lisp-action:load-op
local-5 (local) --> #<Vector @ #x102a68e72>
local-6 (local) --> nil
local-7 (local) --> #<Vector @ #x102a68e42>
local-8 (local) --> #<Vector @ #x102a68e22>
local-9 (local) --> asdf/lisp-action:load-op
local-10 (local) --> :bad-frame-var-value
local-11 (local) --> "clack"
local-12 (local) -->
#<Closure (:internal (:effective-method 2 t nil nil t) 0) @
#x1023ce3d2>
local-13 (local) --> nil
local-14 (local) --> asdf/lisp-action:load-op
local-15 (local) --> asdf/operate:operate
unknown (unknown) --> nil

(internal (effective-method 2 t nil t t) 0)
metharg0 (required) --> asdf/lisp-action:load-op
metharg1 (required) --> "clack"
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> asdf/lisp-action:load-op
local-2 (local) --> "clack"
local-3 (local) -->
#<Closure (:internal (:effective-method 2 t nil t t) 0) @
#x1023ce4d2>

oos
operation (required) --> asdf/lisp-action:load-op
component (required) --> "clack"
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> asdf/lisp-action:load-op
local-2 (local) --> "clack"
local-3 (local) --> (:verbose nil)
unknown (unknown) --> nil
unknown (unknown) --> nil

(internal apply-load-strategy 0)
.lambda-lexical-env. (local) --> #<Closure (:internal
quicklisp::apply-load-strategy
0)
@
#x102a22382>
strategy (local) --> :unknown

call-with-macroexpand-progress
fun (required) --> #<Closure (:internal
quicklisp::apply-load-strategy
0)
@ #x102a22382>
fun (local) --> #<Closure (:internal quicklisp::apply-load-strategy
0)
@ #x102a22382>

apply-load-strategy
strategy (required) --> #<quicklisp::load-strategy
"clack" (0 asdf, 23 quicklisp)>
.lambda-lexical-env. (local) --> #<Closure (:internal
quicklisp::apply-load-strategy
0)
@
#x102a22382>
strategy (local) --> :unknown

autoload-system-and-dependencies
name (required) --> :clack
prompt (keyword) --> nil
internalv-g29365 (local) --> 27620998
strategy (local) --> #<quicklisp::load-strategy
"clack" (0 asdf, 23 quicklisp)>
nil (local) -->
#<Closure (:internal quicklisp::autoload-system-and-dependencies 0)
@ #xd2bb352>
nil (local) -->
#<Closure (:internal quicklisp::autoload-system-and-dependencies 1)
@ #xd2bb372>
nil (local) --> :bad-frame-var-value
g29359 (local) --> (#<restart abort @ #x102a163a2>)
g29366 (local) -->
((asdf/find-component:missing-dependency-of-version
. #<Function #>)
(asdf/find-component:missing-dependency
. #<Closure # @ #xd2bb392>))
internalv-g29377 (local) --> :unknown
tried-so-far (local) --> :unknown
internalv-g29363 (local) --> :unknown
g29354 (local) --> :unknown
prompt (local) --> :unknown
name (local) --> :unknown
unknown (unknown) --> nil

(flet (method quickload (t)) ql)
prompt (local) --> nil
thing (local) --> :clack

(method %call-with-quiet-compilation (t t))
%implementation (required) --> #<ql-impl:allegro @ #x1024600f2>
fun (required) --> #<Closure (flet
(method quicklisp:quickload #)
quicklisp::ql)
@ #x102a14752>
fun (local) --> #<Closure (flet (method quicklisp:quickload #)
quicklisp::ql)
@ #x102a14752>
g27531 (local) --> ((warning . #))

call-with-quiet-compilation
fun (required) --> #<Closure (flet
(method quicklisp:quickload #)
quicklisp::ql)
@ #x102a14752>
fun (local) --> #<Closure (flet (method quicklisp:quickload #)
quicklisp::ql)
@ #x102a14752>

(method quickload (t))
systems (required) --> :clack
prompt (keyword) --> :unsupplied
verbose (keyword) --> :unsupplied
systems (local) --> (:clack)
verbose (local) --> nil
.let-lexical-env. (local) --> #<Vector @ #x102a14832>
g29454 (local) --> (:clack)
.lambda-lexical-env. (local) --> #<Vector @ #x102a14852>
nil (local) --> 27621182
nil (local) --> :bad-frame-var-value
g29458 (local) --> "2013-08-13"
thing (local) --> :unknown
prompt (local) --> nil

(internal (method quickload around (t)) 0)
.lambda-lexical-env. (local) --> #<Vector @ #x102a14952>
ampersand-args (local) --> nil
systems (local) --> :clack
.next-methods. (local) --> nil
.next-method. (local) --> #<Function (method quicklisp:quickload (t))>

call-with-consistent-dists
fun (required) -->
#<Closure (:internal (method quicklisp:quickload :around #) 0) @
#x102a14982>
fun (local) -->
#<Closure (:internal (method quicklisp:quickload :around #) 0) @
#x102a14982>

(method quickload around (t))
systems (required) --> :clack
ampersand-args (rest) --> nil
ampersand-args (local) --> nil
.lambda-lexical-env. (local) --> #<Vector @ #x102a149d2>
.let-lexical-env. (local) --> #<Vector @ #x102a14952>
nil (local) --> :bad-frame-var-value
g29465 (local) --> nil
.next-methods. (local) --> :unknown
.next-method. (local) --> :unknown
ampersand-args (local) --> nil
systems (local) --> :clack

(internal (effective-method 1 t nil t t) 0)
metharg0 (required) --> :clack
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> :clack
local-2 (local) -->
#<Closure (:internal (:effective-method 1 t nil t t)
0) [#'quickload]
@ #x102a149a2>

eval
exp (required) --> (quicklisp:quickload :clack)
local-0 (local) --> (quicklisp:quickload :clack)

(method ide-proxy-task (read-eval-data))
struct-argument (required) -->
#S(ide.base::read-eval-data :start-pos 2476
:end-pos 2498
:string "(ql:quickload :clack)
")
local-0 (local) --> #<Vector @ #x102a14ac2>
local-1 (local) --> 0
local-2 (local) --> nil
local-3 (local) --> (#<Vector @ #x102a0aa72> #<Vector @ #x1021035d2>
#<Vector @ #x102080442> #<Vector @ #x1020a2b32>)
local-4 (local) --> 0
local-5 (local) --> 27621733
local-6 (local) --> 0
local-7 (local) --> t
local-8 (local) --> #
local-9 (local) --> #<1 values @ #x1033809b2>
local-10 (local) --> nil
local-11 (local) --> 27621790
local-12 (local) --> "(ql:quickload :clack)
"
local-13 (local) --> 27621790
local-14 (local) --> #<Function (:discriminator (:caching # nil))>
local-15 (local) --> 27621756
local-16 (local) --> :bad-frame-var-value
local-17 (local) --> excl::synchronizing-structure-locker
local-18 (local) -->
#S(ide.base::read-eval-data :start-pos 2476
:end-pos 2498
:string "(ql:quickload :clack)
")
local-19 (local) --> #<listener-window :listener-window-1 in IDE GUI
@ #x1015773e2>
local-20 (local) --> ((end-of-file . #<Closure # @ #x102a16442>))
local-21 (local) --> #<listener-pane :listener-pane in IDE GUI @
#x101577312>
local-22 (local) --> #\null
local-23 (local) --> 27621778
local-24 (local) --> t
local-25 (local) -->
#<standard-generic-function (setf ide.base::pre-read-object)>
local-26 (local) --> #<Closure defstruct-predicate [process-lock] @
#x1004a6432>
local-27 (local) --> 27621811

(method handle-proxy-tasks (eval-process-window))
eval-window (required) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
local-0 (local) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
local-1 (local) --> 0
local-2 (local) --> #<mp:process Listener 1(5) @ #x101565ed2>
local-3 (local) --> #<mp:process-lock IDE Process Lock @ #x1014910b2>
local-4 (local) -->
#<Function (method ide.base:handle-proxy-tasks
(ide.base:eval-process-window))>
local-5 (local) --> #<1 values @ #x1033809b2>
local-6 (local) --> nil
local-7 (local) -->
#S(ide.base::read-eval-data :start-pos 2476
:end-pos 2498
:string "(ql:quickload :clack)
")
local-8 (local) --> nil
local-9 (local) --> "IDE Process Lock"
local-10 (local) --> nil
local-11 (local) --> #<mp:process-lock IDE Process Lock @ #x1014910b2>
local-12 (local) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
local-13 (local) -->
#S(ide.base::read-eval-data :start-pos 2476
:end-pos 2498
:string "(ql:quickload :clack)
")
local-14 (local) --> #<1 values @ #x103381072>
local-15 (local) -->
#<standard-generic-function (setf ide.base::eval-process-tasks)>

(method window-procedure (basic-pane (eql proxy-task-message) t t))
window (required) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
msg (required) --> 33169
wparam (required) --> 0
lparam (required) --> 0

window-procedure-callback
stack-addr-10044 (required) --> :unknown
local-0 (local) --> 0
local-1 (local) --> t
local-2 (local) --> 1182008
local-3 (local) --> 33169
local-4 (local) --> 0
local-5 (local) --> 0
local-6 (local) --> 27622112
local-7 (local) --> :bad-frame-var-value
local-8 (local) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
local-9 (local) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
local-10 (local) --> 0
local-11 (local) --> :bad-frame-var-value

DispatchMessageWA
lpmsg_0 (required) --> #
local-0 (local) --> #
local-1 (local) --> #<Closure foreign-function @ #x1006e90c2>

dispatch-window-message
local-0 (local) --> #<screen @ #x101493bb2>
local-1 (local) --> 0
local-2 (local) --> 0
local-3 (local) --> 0

process-single-event
no-wait (optional) --> nil
local-0 (local) --> -4864
local-1 (local) --> 2304

simple-event-loop
window (required) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
exit-test (required) --> nil
local-0 (local) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
local-1 (local) --> nil
local-2 (local) --> :bad-frame-var-value
local-3 (local) --> #<mp:process Listener 1(5) @ #x101565ed2>
local-4 (local) --> nil

event-loop-2
window (required) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
exit-test (required) --> nil
local-0 (local) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
local-1 (local) --> nil

event-loop
window (keyword) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
exit-test (keyword) --> :unsupplied
local-0 (local) --> 0
local-1 (local) --> nil
local-2 (local) -->
#<eval-process-window ide.base:eval-process-window in Listener 1 @
#x10159d2f2>
local-3 (local) --> nil
local-4 (local) --> 27622454
local-5 (local) --> 38
local-6 (local) --> 541149876
local-7 (local) --> #<Closure (:internal event-loop 0) @ #xd2be152>
local-8 (local) --> #<Function (:internal event-loop 1)>
local-9 (local) --> (#<restart exit-event-loop @ #xd2be0f2>)

rep-one-command-event-loop
nil (extra-arg) --> nil
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> #<listener-pane :listener-pane in IDE GUI @
#x101577312>
local-2 (local) --> #<listener-window :listener-window-1 in IDE GUI @
#x1015773e2>
local-3 (local) --> #<Vector @ #x100447852>

ide-top-level-read-eval-print-loop-2
local-0 (local) --> 27622764
local-1 (local) -->
#<Closure (:internal ide.base::ide-top-level-read-eval-print-loop-2
0)
@ #xd2beb02>
local-2 (local) -->
#<Function (:internal
ide.base::ide-top-level-read-eval-print-loop-2 1)>
local-3 (local) --> (#<restart abort @ #xd2bea82>)

ide-top-level-read-eval-print-loop
args (rest) --> 0
local-0 (local) --> 0
local-1 (local) --> 27622833
local-2 (local) --> tpl::inside-read-eval-print
local-3 (local) --> 4
local-4 (local) -->
#<Closure (:internal ide.base::ide-top-level-read-eval-print-loop
0)
@ #xd2bed32>
local-5 (local) -->
#<Function (:internal ide.base::ide-top-level-read-eval-print-loop
1)>
local-6 (local) --> (#<restart ide.base::exit-listener @ #xd2becd2>)
unknown (unknown) --> nil

top-level-read-eval-print-loop
local-0 (local) -->
(/ // /// * ** *** + ++ +++ - tpl:prompt tpl::.digested-prompt.
...)
local-1 (local) -->
(nil nil nil nil nil nil nil nil nil nil "&
@[[Current process: a]%]~
@[[Current process focus: a]%]~
:[
:[
2_
;
[:_d:[;c~]:[;i~]] ~
]
;
[:~a] ~3
]
~a(~d): " (nil) ...)
local-2 (local) --> nil
local-3 (local) --> (/ . /)
local-4 (local) --> 214
local-5 (local) --> /
local-6 (local) --> (tpl::inside-read-eval-print)
local-7 (local) --> ide.base::ide-top-level-read-eval-print-loop

start-interactive-top-level
terminal-io (required) --> #<listener-pane :listener-pane in IDE GUI
@
#x101577312>
function (required) --> tpl:top-level-read-eval-print-loop
args (required) --> nil
initial-bindings (keyword) --> :unsupplied
local-0 (local) --> tpl:top-level-read-eval-print-loop
local-1 (local) --> nil
local-2 (local) -->
((inspect::inspector-hook . inspect::inspector-hook)
(scm::ed-hook . scm::ed-hook)
(print-pprint-dispatch
. #<excl::pprint-dispatch-struct @ #x1002a8522>)
(excl::break-on-warnings . excl::break-on-warnings)
(break-on-signals . break-on-signals)
(random-state make-random-state nil)
(package find-package :user) (print-simple-array-specialized)
(print-lines) (print-miser-width . 40) (print-right-margin)
(print-readably) ...)
local-3 (local) --> nil
local-4 (local) --> nil
local-5 (local) --> #<mp:process Listener 1(5) @ #x101565ed2>
local-6 (local) --> #<listener-pane :listener-pane in IDE GUI @
#x101577312>
local-7 (local) --> tpl::initial-listener
local-8 (local) --> #<Function (unnamed) @ #x100009962>
local-9 (local) -->
(tpl::initial-listener #<mp:process Listener 1(5) @ #x101565ed2>
ide.base::prompt-mark #<cg.text-edit-pane.mark:mark @ #x10157b522>
:margin-offset-top 0 :margin-offset-left 1 :has-caret-p t
:normal-exterior #<box 0 0 1536 920> ...)
local-10 (local) --> nil
local-11 (local) --> 214
local-12 (local) --> :bad-frame-var-value
local-13 (local) --> #<screen @ #x101493bb2>
local-14 (local) -->
#<standard-generic-function (setf excl::stream-property-list)>

ide-listener-process-top
initial-listener (keyword) --> t
local-0 (local) --> t
local-1 (local) --> #<listener-pane :listener-pane in IDE GUI @
#x101577312>
local-2 (local) --> t
local-3 (local) --> 0
local-4 (local) --> #\null
local-5 (local) --> 27623002
local-6 (local) --> #<mp:process Listener 1(5) @ #x101565ed2>
local-7 (local) --> #<1 values @ #x1035b1322>
local-8 (local) --> 6
local-9 (local) --> nil
local-10 (local) --> 536871053
local-11 (local) --> :kill-thread-when-listener-is-killed
local-12 (local) -->
#<standard-generic-function (setf mp:process-property-list)>
local-13 (local) --> #<standard-generic-function
(setf ide.base::listener-ready)>
unknown (unknown) --> nil

@fukamachi
Copy link
Owner

This looks a problem of CL-Syntax. I'll contact to its author to find out why. Thank you for reporting.

@ICanCAD
Copy link
Author

ICanCAD commented Sep 2, 2013

Let me know if I can help debug it... I would be pleased to help out...

@ICanCAD ICanCAD closed this as completed Sep 2, 2013
@ICanCAD
Copy link
Author

ICanCAD commented Sep 2, 2013

Sorry I do not know what I am doing - I did not mean to "close" it ....

@ICanCAD ICanCAD reopened this Sep 2, 2013
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
Projects
None yet
Development

No branches or pull requests

2 participants