You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
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
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_;[
:_;c~]d:[:[;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
The text was updated successfully, but these errors were encountered: