Skip to content

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

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

2 participants

@ICanCAD
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
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) --> #
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
. #))
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) -->
#
local-20 (local) --> #
local-21 (local) --> #
local-22 (local) --> #
local-23 (local) --> #
local-24 (local) -->
#
local-25 (local) --> #
local-26 (local) --> #
local-27 (local) --> # load
excl::find-source-from-fasl)
@ #xd2b6f22>
local-28 (local) --> :bad-frame-var-value
local-29 (local) -->
(#
#
#)
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) --> # asdf/lisp-action:perform-lisp-load-fasl
0)
@ #x1032ccde2>
conditions (required) -->
("Overwriting already existing readtable ~S."
#)
local-0 (local) --> # asdf/lisp-action:perform-lisp-load-fasl
0)
@ #x1032ccde2>
local-1 (local) --> ((t . #))

(internal (effective-method 2 nil nil nil nil) 0)
metharg0 (required) --> #
metharg1 (required) -->
#
local-0 (local) --> #
local-1 (local) -->
#
local-2 (local) -->
# #x102c42c02>
local-3 (local) --> #
local-4 (local) --> nil
local-5 (local) --> 541565992
local-6 (local) -->
# (asdf/operation:operation asdf/component:component))>
local-7 (local) -->
# (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) --> #
c (required) -->
#
local-0 (local) --> #
local-1 (local) -->
#
local-2 (local) --> # asdf-action:perform-with-restarts
(t t))>
local-3 (local) --> nil
local-4 (local) --> #
local-5 (local) --> 27619101
local-6 (local) --> 27619092
local-7 (local) -->
# 0)
@ #xd2b7822>
local-8 (local) -->
# 1)
@ #xd2b7842>
local-9 (local) --> (# #x1032d9d52>)

(method perform-with-restarts around (t t))
operation (required) --> #
component (required) -->
#
local-0 (local) --> #
local-1 (local) -->
#
local-2 (local) -->
# (asdf/lisp-action:load-op
asdf/lisp-action:cl-source-file))>
local-3 (local) --> (# asdf-action:perform-with-restarts
#)>)
local-4 (local) --> 27619185
local-5 (local) --> 27619176
local-6 (local) -->
#
local-7 (local) -->
# (method asdf-action:perform-with-restarts :around #) 0)
@ #xd2b7a82>
local-8 (local) -->
# (method asdf-action:perform-with-restarts :around #) 1)
@ #xd2b7aa2>
local-9 (local) -->
# (method asdf-action:perform-with-restarts :around #) 2)
@ #xd2b7ac2>
local-10 (local) -->
# (method asdf-action:perform-with-restarts :around #) 3)
@ #xd2b7ae2>
local-11 (local) -->
(#
#)

(internal (effective-method 2 nil nil t t) 0)
metharg0 (required) --> #
metharg1 (required) -->
#
local-0 (local) --> #
local-1 (local) -->
#
local-2 (local) -->
# #x102407482>
local-3 (local) -->
#

(method perform-plan (list))
steps (required) -->
((#1=#
. #)
(#1# . #)
(#1# . #4=#)
(#5=# . #4#)
(#7=# . #4#)
(#1# . #6=#)
(#5# . #6#) (#7# . #6#)
(#1# . #8=#)
(#5# . #8#) (#7# . #8#)
(#1# . #)
...)
force (keyword) --> :unsupplied
local-0 (local) -->
((#4=#
. #1=#)
(#6=# . #1#)
(#2=#
. #)
(#2# . #5=#)
(#4# . #5#) (#6# . #5#)
(#2# . #7=#)
(#4# . #7#) (#6# . #7#)
(#2# . #8=#)
(#4# . #8#) (#6# . #8#) ...)
local-1 (local) --> nil
local-2 (local) -->
#
local-3 (local) --> #
unknown (unknown) --> nil

(flet (method perform-plan around (t)) continuation)
local-0 (local) --> #

(method perform-plan around (t))
plan (required) -->
((#1=#
. #)
(#1# . #)
(#1# . #4=#)
(#5=# . #4#)
(#7=# . #4#)
(#1# . #6=#)
(#5# . #6#) (#7# . #6#)
(#1# . #8=#)
(#5# . #8#) (#7# . #8#)
(#1# . #)
...)
ampersand-args (rest) --> (:verbose nil)
local-0 (local) --> (:verbose nil)
local-1 (local) -->
# excl::continuation)
@ #x102c3d302>
local-2 (local) --> :bad-frame-var-value
local-3 (local) --> #
local-4 (local) --> #
local-5 (local) --> 12
local-6 (local) --> #
local-7 (local) --> :bad-frame-var-value
local-8 (local) -->
((#1=#
. #)
(#1# . #)
(#1# . #4=#)
(#5=# . #4#)
(#7=# . #4#)
(#1# . #6=#)
(#5# . #6#) (#7# . #6#)
(#1# . #8=#)
(#5# . #8#) (#7# . #8#)
(#1# . #)
...)
local-9 (local) --> #
local-10 (local) --> nil
local-11 (local) --> (#)
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) --> #
unknown (unknown) --> nil

(internal (effective-method 1 t nil t t) 0)
metharg0 (required) -->
((#1=#
. #)
(#1# . #)
(#1# . #4=#)
(#5=# . #4#)
(#7=# . #4#)
(#1# . #6=#)
(#5# . #6#) (#7# . #6#)
(#1# . #8=#)
(#5# . #8#) (#7# . #8#)
(#1# . #)
...)
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) -->
((#1=#
. #)
(#1# . #)
(#1# . #4=#)
(#5=# . #4#)
(#7=# . #4#)
(#1# . #6=#)
(#5# . #6#) (#7# . #6#)
(#1# . #8=#)
(#5# . #8#) (#7# . #8#)
(#1# . #)
...)
local-2 (local) -->
# #x1023e4b02>

(method perform-plan (t))
plan (required) --> #
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> (:verbose nil)
local-2 (local) --> #
unknown (unknown) --> nil
unknown (unknown) --> nil

(flet (method perform-plan around (t)) continuation)
local-0 (local) --> #

(method perform-plan around (t))
plan (required) --> #
ampersand-args (rest) --> (:verbose nil)
local-0 (local) --> (:verbose nil)
local-1 (local) -->
# excl::continuation)
@ #x102c3d3f2>
local-2 (local) --> 494
local-3 (local) --> #
local-4 (local) --> #
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) --> #
local-9 (local) --> #
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) --> #
local-17 (local) --> #
unknown (unknown) --> nil

(internal (effective-method 1 t nil t t) 0)
metharg0 (required) --> #
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> #
local-2 (local) -->
# #x1023e4e82>

(method operate (operation component))
operation (required) --> #
component (required) --> #
plan-class (keyword) --> :unsupplied
local-0 (local) --> #
local-1 (local) --> (:verbose nil)
local-2 (local) --> :bad-frame-var-value
local-3 (local) --> #
local-4 (local) --> #
unknown (unknown) --> nil

(internal (effective-method 2 t nil nil t) 0)
metharg0 (required) --> #
metharg1 (required) --> #
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> #
local-2 (local) --> #
local-3 (local) -->
# #x1023c3d82>
local-4 (local) --> :external-format
local-5 (local) --> nil
local-6 (local) --> nil

(internal (method operate around (t t)) 0)
local-0 (local) --> #

(method operate around (t t))
operation (required) --> #
component (required) --> #
ampersand-args (rest) --> (:verbose nil)
local-0 (local) --> (:verbose nil)
local-1 (local) --> (:verbose nil)
local-2 (local) --> ("clack")
local-3 (local) --> #
local-4 (local) --> #
local-5 (local) --> #
local-6 (local) --> #
local-7 (local) --> #
local-8 (local) --> #
local-9 (local) --> #
local-10 (local) --> :bad-frame-var-value
local-11 (local) --> #
local-12 (local) -->
# #x1023c3d82>
local-13 (local) --> nil
local-14 (local) --> #
local-15 (local) --> 474
unknown (unknown) --> nil

(internal (effective-method 2 t nil t t) 0)
metharg0 (required) --> #
metharg1 (required) --> #
nil (extra-arg) --> :verbose
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> #
local-2 (local) --> #
local-3 (local) -->
# #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) -->
# #x1023ce3d2>
local-4 (local) --> #
local-5 (local) --> nil
local-6 (local) --> nil

(internal (method operate around (t t)) 0)
local-0 (local) --> #

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

call-with-system-definitions
thunk (required) --> # (method
asdf/operate:operate
:around
#)
0)
@ #x102a68992>
local-0 (local) --> # (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) --> #
local-4 (local) --> asdf/lisp-action:load-op
local-5 (local) --> #
local-6 (local) --> #
local-7 (local) --> #
local-8 (local) --> #
local-9 (local) --> asdf/lisp-action:load-op
local-10 (local) --> :bad-frame-var-value
local-11 (local) --> "clack"
local-12 (local) -->
# #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) -->
# #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) --> #
local-4 (local) --> asdf/lisp-action:load-op
local-5 (local) --> #
local-6 (local) --> nil
local-7 (local) --> #
local-8 (local) --> #
local-9 (local) --> asdf/lisp-action:load-op
local-10 (local) --> :bad-frame-var-value
local-11 (local) --> "clack"
local-12 (local) -->
# #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) -->
# #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) --> # quicklisp::apply-load-strategy
0)
@
#x102a22382>
strategy (local) --> :unknown

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

apply-load-strategy
strategy (required) --> # "clack" (0 asdf, 23 quicklisp)>
.lambda-lexical-env. (local) --> # 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) --> # "clack" (0 asdf, 23 quicklisp)>
nil (local) -->
# @ #xd2bb352>
nil (local) -->
# @ #xd2bb372>
nil (local) --> :bad-frame-var-value
g29359 (local) --> (#)
g29366 (local) -->
((asdf/find-component:missing-dependency-of-version
. #)
(asdf/find-component:missing-dependency
. #))
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) --> #
fun (required) --> # (method quicklisp:quickload #)
quicklisp::ql)
@ #x102a14752>
fun (local) --> # quicklisp::ql)
@ #x102a14752>
g27531 (local) --> ((warning . #))

call-with-quiet-compilation
fun (required) --> # (method quicklisp:quickload #)
quicklisp::ql)
@ #x102a14752>
fun (local) --> # 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) --> #
g29454 (local) --> (:clack)
.lambda-lexical-env. (local) --> #
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) --> #
ampersand-args (local) --> nil
systems (local) --> :clack
.next-methods. (local) --> nil
.next-method. (local) --> #

call-with-consistent-dists
fun (required) -->
# #x102a14982>
fun (local) -->
# #x102a14982>

(method quickload around (t))
systems (required) --> :clack
ampersand-args (rest) --> nil
ampersand-args (local) --> nil
.lambda-lexical-env. (local) --> #
.let-lexical-env. (local) --> #
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) -->
# 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) --> #
local-1 (local) --> 0
local-2 (local) --> nil
local-3 (local) --> (# #
# #)
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) --> #
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) --> # @ #x1015773e2>
local-20 (local) --> ((end-of-file . #))
local-21 (local) --> # #x101577312>
local-22 (local) --> #\null
local-23 (local) --> 27621778
local-24 (local) --> t
local-25 (local) -->
#
local-26 (local) --> # #x1004a6432>
local-27 (local) --> 27621811

(method handle-proxy-tasks (eval-process-window))
eval-window (required) -->
# #x10159d2f2>
local-0 (local) -->
# #x10159d2f2>
local-1 (local) --> 0
local-2 (local) --> #
local-3 (local) --> #
local-4 (local) -->
# (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) --> #
local-12 (local) -->
# #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) -->
#

(method window-procedure (basic-pane (eql proxy-task-message) t t))
window (required) -->
# #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) -->
# #x10159d2f2>
local-9 (local) -->
# #x10159d2f2>
local-10 (local) --> 0
local-11 (local) --> :bad-frame-var-value

DispatchMessageWA
lpmsg_0 (required) --> #
local-0 (local) --> #
local-1 (local) --> #

dispatch-window-message
local-0 (local) --> #
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) -->
# #x10159d2f2>
exit-test (required) --> nil
local-0 (local) -->
# #x10159d2f2>
local-1 (local) --> nil
local-2 (local) --> :bad-frame-var-value
local-3 (local) --> #
local-4 (local) --> nil

event-loop-2
window (required) -->
# #x10159d2f2>
exit-test (required) --> nil
local-0 (local) -->
# #x10159d2f2>
local-1 (local) --> nil

event-loop
window (keyword) -->
# #x10159d2f2>
exit-test (keyword) --> :unsupplied
local-0 (local) --> 0
local-1 (local) --> nil
local-2 (local) -->
# #x10159d2f2>
local-3 (local) --> nil
local-4 (local) --> 27622454
local-5 (local) --> 38
local-6 (local) --> 541149876
local-7 (local) --> #
local-8 (local) --> #
local-9 (local) --> (#)

rep-one-command-event-loop
nil (extra-arg) --> nil
nil (extra-arg) --> nil
local-0 (local) --> :bad-frame-var-value
local-1 (local) --> # #x101577312>
local-2 (local) --> # #x1015773e2>
local-3 (local) --> #

ide-top-level-read-eval-print-loop-2
local-0 (local) --> 27622764
local-1 (local) -->
# 0)
@ #xd2beb02>
local-2 (local) -->
# ide.base::ide-top-level-read-eval-print-loop-2 1)>
local-3 (local) --> (#)

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) -->
# 0)
@ #xd2bed32>
local-5 (local) -->
# 1)>
local-6 (local) --> (#)
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) --> # @
#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::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) --> #
local-6 (local) --> # #x101577312>
local-7 (local) --> tpl::initial-listener
local-8 (local) --> #
local-9 (local) -->
(tpl::initial-listener #
ide.base::prompt-mark #
:margin-offset-top 0 :margin-offset-left 1 :has-caret-p t
:normal-exterior # ...)
local-10 (local) --> nil
local-11 (local) --> 214
local-12 (local) --> :bad-frame-var-value
local-13 (local) --> #
local-14 (local) -->
#

ide-listener-process-top
initial-listener (keyword) --> t
local-0 (local) --> t
local-1 (local) --> # #x101577312>
local-2 (local) --> t
local-3 (local) --> 0
local-4 (local) --> #\null
local-5 (local) --> 27623002
local-6 (local) --> #
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) -->
#
local-13 (local) --> # (setf ide.base::listener-ready)>
unknown (unknown) --> nil

@fukamachi
Owner

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

@ICanCAD
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 Sep 2, 2013
@ICanCAD
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
Something went wrong with that request. Please try again.