attempt to call `ub32ref/be' which is an undefined function #64

Open
ICanCAD opened this Issue Sep 2, 2013 · 1 comment

Comments

Projects
None yet
2 participants
@ICanCAD

ICanCAD commented Sep 2, 2013

I apologize if I am doing something spectacularly dumb here, but I am just trying to get through loading clack using (ql:quickload :clack). I continued past that last error (reported a few minutes ago - missing readtable) and now I find this error:
(truncated backtrace due to 65k limit - but I hope you can see enough)


Bug Report Sunday 1 Sep 2013 at 6:26:04 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: attempt to call `ub32ref/be' which is an undefined function.
[condition type: undefined-function]


Backtrace for process "Listener 1"

error
datum (required) -->
#<undefined-function @ #x105673352>
arguments (rest) --> nil
result (local) --> #<Vector @ #x105675062>
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #<Vector @ #x105674ed2>
g46806 (local) --> #<Vector @ #x105675062>
local-0 (local) --> nil
local-1 (local) -->
#<undefined-function @ #x105673352>
local-2 (local) -->
#<undefined-function @ #x105673352>
local-3 (local) --> 97
local-4 (local) --> excl::%structure-definition
local-5 (local) --> restart

let*
x (required) -->
(((#2=#:g46806 crypto::result) (#3=#:g46807 #) (#1=#:g46808 #))
(excl::.inv-s-aref #1# #2# #3#))
result (local) --> #<Vector @ #x105675062>
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #<Vector @ #x105674ed2>
g46806 (local) --> #<Vector @ #x105675062>
local-0 (local) --> 726
local-1 (local) --> #<Augmentable interpreter environment 1 1 1 1 1>
local-2 (local) --> 0
local-3 (local) --> ((excl::.inv-s-aref #:g46808 #:g46806 #:g46807))
local-4 (local) --> nil
local-5 (local) --> (#:g46808 #:g46807 #:g46806)
local-6 (local) --> nil
local-7 (local) --> nil
local-8 (local) --> ((#:g46808
(nibbles:ub32ref/be crypto::one-row-of-bytes
0)))
local-9 (local) --> 2
local-10 (local) --> #<Augmentable interpreter environment 1 1 1 1 1>
local-11 (local) -->
(((#2=#:g46806 crypto::result) (#3=#:g46807 #) (#1=#:g46808 #))
(excl::.inv-s-aref #1# #2# #3#))
local-12 (local) --> #<Function %eval>
local-13 (local) --> (385)
local-14 (local) --> 27622252
local-15 (local) --> 27616684
local-16 (local) --> 726
local-17 (local) --> nil
local-18 (local) --> 2
local-19 (local) --> nil

progn
x (required) -->
((loop crypto::for crypto::j crypto::below 8 do (setf # #))
(setf (aref crypto::result #)
(nibbles:ub32ref/be crypto::one-row-of-bytes 0))
(setf (aref crypto::result #)
(nibbles:ub32ref/be crypto::one-row-of-bytes 4)))
result (local) --> #<Vector @ #x105675062>
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #<Vector @ #x105674ed2>
g46806 (local) --> #<Vector @ #x105675062>
local-0 (local) -->
((setf (aref crypto::result #)
(nibbles:ub32ref/be crypto::one-row-of-bytes 0))
(setf (aref crypto::result #)
(nibbles:ub32ref/be crypto::one-row-of-bytes 4)))

let
x (required) -->
(((crypto::r 1))
(tagbody
excl::next-loop
(progn # # #)
(excl::loop-really-desetq crypto::r #)
(when # #)
(go excl::next-loop)
excl::end-loop
(return crypto::result)))
result (local) --> #<Vector @ #x105675062>
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #<Vector @ #x105674ed2>
g46806 (local) --> #<Vector @ #x105675062>
local-0 (local) --> 722
local-1 (local) --> #<Augmentable interpreter environment 1 1 1>
local-2 (local) --> 0
local-3 (local) -->
((tagbody
excl::next-loop
(progn # # #)
(excl::loop-really-desetq crypto::r #)
(when # #)
(go excl::next-loop)
excl::end-loop
(return crypto::result)))
local-4 (local) --> nil
local-5 (local) --> nil
local-6 (local) --> ((crypto::r . 1))
local-7 (local) --> nil
local-8 (local) --> nil
local-9 (local) --> nil
local-10 (local) --> nil
local-11 (local) -->
(((crypto::r 1))
(tagbody
excl::next-loop
(progn # # #)
(excl::loop-really-desetq crypto::r #)
(when # #)
(go excl::next-loop)
excl::end-loop
(return crypto::result)))
local-12 (local) --> :lexical
local-13 (local) --> (#<Vector @ #x105674ed2>)
local-14 (local) --> crypto::r
local-15 (local) --> nil
local-16 (local) --> nil
local-17 (local) --> #<Augmentable interpreter environment 1 1>
local-18 (local) --> t
local-19 (local) --> nil
local-20 (local) --> crypto::r
local-21 (local) --> 1
local-22 (local) --> #

let
x (required) -->
(((crypto::one-row-of-bytes #))
(let (#) (tagbody excl::next-loop # # # # excl::end-loop #)))
result (local) --> #<Vector @ #x105675062>
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #<Vector @ #x105674ed2>
g46806 (local) --> #<Vector @ #x105675062>
local-0 (local) --> 720
local-1 (local) --> #<Augmentable interpreter environment 1 1>
local-2 (local) --> 0
local-3 (local) --> ((let (#)
(tagbody
excl::next-loop
#
#
#
#
excl::end-loop
#)))
local-4 (local) --> nil
local-5 (local) --> nil
local-6 (local) --> ((crypto::one-row-of-bytes
. #<Vector @ #x105674ed2>))
local-7 (local) --> nil
local-8 (local) --> nil
local-9 (local) --> nil
local-10 (local) --> nil
local-11 (local) -->
(((crypto::one-row-of-bytes #))
(let (#) (tagbody excl::next-loop # # # # excl::end-loop #)))
local-12 (local) --> :lexical
local-13 (local) --> (#<Vector @ #x105675062>)
local-14 (local) --> crypto::one-row-of-bytes
local-15 (local) --> nil
local-16 (local) --> nil
local-17 (local) --> #<Augmentable interpreter environment 1>
local-18 (local) --> t
local-19 (local) --> nil
local-20 (local) --> crypto::one-row-of-bytes
local-21 (local) --> #<Vector @ #x105674ed2>
local-22 (local) --> #

let
x (required) --> (((crypto::result #)) (let (#) (let # #)))
result (local) --> #<Vector @ #x105675062>
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #<Vector @ #x105674ed2>
g46806 (local) --> #<Vector @ #x105675062>
local-0 (local) --> 718
local-1 (local) --> #<Augmentable interpreter environment 1>
local-2 (local) --> 0
local-3 (local) --> ((let (#) (let # #)))
local-4 (local) --> nil
local-5 (local) --> nil
local-6 (local) --> ((crypto::result . #<Vector @ #x105675062>))
local-7 (local) --> nil
local-8 (local) --> nil
local-9 (local) --> nil
local-10 (local) --> nil
local-11 (local) --> (((crypto::result #)) (let (#) (let # #)))
local-12 (local) --> (1)
local-13 (local) --> #<forwarded ha$h-table[2]>
local-14 (local) --> crypto::result
local-15 (local) --> nil
local-16 (local) --> nil
local-17 (local) -->
#<Augmentable Environment Base 31399 (var: 5 fcn: 0 decl: 0) @
#x1056750e2>
local-18 (local) --> t
local-19 (local) --> nil
local-20 (local) --> crypto::result
local-21 (local) --> #<Vector @ #x105675062>
local-22 (local) --> #<empty ha$h-table[6]>

eval
exp (required) -->
(loop crypto::with crypto::result =
(make-array 22
:element-type '(unsigned-byte 32)
:initial-element 0)
crypto::with crypto::one-row-of-bytes =
(make-array 8 :element-type '(unsigned-byte 8)) crypto::for
crypto::r crypto::from ...)
result (local) --> #<Vector @ #x105675062>
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #<Vector @ #x105674ed2>
g46806 (local) --> #<Vector @ #x105675062>
local-0 (local) -->
(loop crypto::with crypto::result =
(make-array 22
:element-type '(unsigned-byte 32)
:initial-element 0)
crypto::with crypto::one-row-of-bytes =
(make-array 8 :element-type '(unsigned-byte 8)) crypto::for
crypto::r crypto::from ...)

(flet compile-file continuation)
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((excl::advance-warning . #) (error . #)) ((t . #)) ((t . #))
((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) --> 27617689
local-1 (local) --> 27617671
local-2 (local) --> :case-sensitive-lower
local-3 (local) --> :local
local-4 (local) --> 0
local-5 (local) --> 0
local-6 (local) --> (nil)
local-7 (local) --> nil
local-8 (local) --> t
local-9 (local) --> 27617671
local-10 (local) --> (declaim (type (simple-array # #) crypto::+rc+))
local-11 (local) --> 27617798
local-12 (local) -->
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp"
local-13 (local) -->
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp"
local-14 (local) --> nil
local-15 (local) --> nil
local-16 (local) --> nil
local-17 (local) --> nil
local-18 (local) --> #
local-19 (local) --> nil
local-20 (local) --> 0
local-21 (local) --> #<buffer-output-simple-stream @ #x105676672>
local-22 (local) --> nil
local-23 (local) --> :bad-frame-var-value
local-24 (local) --> :local
local-25 (local) --> nil
local-26 (local) --> :probe
local-27 (local) --> :direction
local-28 (local) -->
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp"
local-29 (local) --> :filename
local-30 (local) --> #<readtable @ #x102a90882>
local-31 (local) --> nil
local-32 (local) --> 4683
local-33 (local) --> t
local-34 (local) --> 0
local-35 (local) --> #<external-format :void @ #x100252782>
local-36 (local) --> #\null
local-37 (local) --> 4683
local-38 (local) --> :bad-frame-var-value
local-39 (local) --> 27617782
local-40 (local) -->
#<Closure (:internal (flet compile-file excl::continuation) 0) @
#xd2b4aa2>
local-41 (local) -->
#<Function (:internal (flet compile-file excl::continuation) 1)>
local-42 (local) -->
#<Closure (:internal (flet compile-file excl::continuation) 3) @
#xd2b4ac2>
local-43 (local) -->
#<Closure (:internal (flet compile-file excl::continuation) 4) @
#xd2b4ae2>
local-44 (local) -->
#<Closure (:internal (flet compile-file excl::continuation) 5) @
#xd2b4b02>
local-45 (local) --> t
local-46 (local) --> nil
local-47 (local) --> nil
local-48 (local) --> nil
local-49 (local) --> nil
local-50 (local) --> nil
local-51 (local) --> nil
local-52 (local) -->
#<probe-simple-stream
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp"
@ #x105676642>
local-53 (local) -->
#<Function (method shared-initialize :after (simple-stream t))>
local-54 (local) --> :bad-frame-var-value
local-55 (local) --> 27617734
local-56 (local) --> #
local-57 (local) -->
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp"
local-58 (local) -->
#<Closure Template Function (:internal
(:effective-method 2 t nil nil nil)
0)>
local-59 (local) --> 27617756
local-60 (local) --> #<1 values @ #x105673c92>
local-61 (local) --> :bad-frame-var-value
local-62 (local) --> 0
local-63 (local) -->
((excl::advance-warning . #)
(error . #))
local-64 (local) --> (#<restart nil @ #xd2b4952>)
local-65 (local) --> 2
local-66 (local) --> 1
local-67 (local) --> #<buffer-output-simple-stream @ #x105676672>
local-68 (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil nil) 0) @
#x1032e9d42>
local-69 (local) --> #<1 values @ #x105673c92>
local-70 (local) -->
(#<restart nil @ #x1056b0d52>)
local-71 (local) -->
(#<restart nil @ #xd2b48a2>)
local-72 (local) --> #\null
local-73 (local) --> "whirlpool"
local-74 (local) -->
#<Function (method (setf stream-external-format) :after
(t single-channel-simple-stream))>
local-75 (local) -->
#S(comp::faslobj :class comp::casemode
:lap 0
:package nil
:function-group nil)
local-76 (local) -->
(setq source-pathname
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp")
local-77 (local) -->
#<file-simple-stream
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp" for input pos 5336
@ #x105675412>
local-78 (local) --> (nil)
local-79 (local) --> #<buffer-output-simple-stream @ #x105676672>
local-80 (local) --> #<Closure (:internal excl::add-writer-method 0)
@ #x103322dc2>
local-81 (local) --> #<external-format :void @ #x100252782>
local-82 (local) --> nil
local-83 (local) --> 570
local-84 (local) -->
#<Closure Template Function (:internal
(:effective-method 2 nil nil nil nil)
0)>
local-85 (local) --> (excl::access excl::buffer)
local-86 (local) --> #<1 values @ #x1056766a2>
local-87 (local) -->
#<composing-stream encapsulated by file-simple-stream pos 5336 @
#x105675282>
local-88 (local) --> #<external-format :void @ #x100252782>
local-89 (local) --> #<buffer-output-simple-stream @ #x105676672>
local-90 (local) --> nil
local-91 (local) --> :follow-symlinks
local-92 (local) --> :probe
local-93 (local) -->
(:compile
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool-ASDF-TMP.fasl"
(crypto::+whirlpool-rounds+ :variable (nil))
(crypto::whirlpoolregs-digest :operator
(crypto::whirlpoolregs-digest :operator))
(crypto::+pristine-whirlpool-registers+ :variable
(crypto::+pristine-whirlpool-registers+ crypto::defconst))
(crypto::whirlpool-regs :type (nil))
(crypto::initial-whirlpool-regs :operator (nil))
(crypto::+whirlpool-regs-hash-offset+ :variable (nil))
(crypto::+whirlpool-regs-k-offset+ :variable (nil))
(crypto::+whirlpool-regs-state-offset+ :variable (nil))
(crypto::+whirlpool-regs-l-offset+ :variable (nil)))
local-94 (local) --> #
local-95 (local) --> :filename

compile-file
input-filename (required) -->
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp"
load-after-compile (keyword) --> :unsupplied
((output-file compile-file-output)) (keyword) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool-ASDF-TMP.fasl"
((xref record-xref-info)) (keyword) --> :unsupplied
((verbose compile-verbose)) (keyword) --> :unsupplied
((print compile-print)) (keyword) --> :unsupplied
if-newer (keyword) --> :unsupplied
((fasl-circle fasl-circle)) (keyword) --> :unsupplied
external-format (keyword) --> :default
((ics-modes ics-modes)) (keyword) --> :unsupplied
script (keyword) --> :unsupplied
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((t . #)) ((t . #)) ((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) --> 27617916
local-1 (local) --> #<Closure (flet compile-file excl::continuation)
@ #xd2b53d2>
local-2 (local) --> :bad-frame-var-value
local-3 (local) --> :bad-frame-var-value
local-4 (local) --> t
local-5 (local) --> :bad-frame-var-value
local-6 (local) --> #
local-7 (local) --> 1
local-8 (local) --> :bad-frame-var-value
local-9 (local) --> nil

(internal (internal compile-file* 0) 0)
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((t . #)) ((t . #)) ((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))

call-with-muffled-conditions
thunk (required) --> #<Closure (:internal
(:internal
asdf/lisp-build:compile-file*
0)
0)
@ #x105676c22>
conditions (required) --> nil
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((t . #)) ((t . #)) ((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) --> #<Closure (:internal
(:internal
asdf/lisp-build:compile-file*
0)
0)
@ #x105676c22>
local-1 (local) --> ((t . #<Closure # @ #xd2b5762>))

call-with-saved-deferred-warnings
thunk (required) --> #<Closure (:internal
asdf/lisp-build:compile-file*
0)
@ #x105676d52>
warnings-file (required) --> nil
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((t . #)) ((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) --> nil
local-1 (local) --> #<Vector @ #x105676d82>
local-2 (local) --> #<Closure (:internal
asdf/lisp-build:compile-file*
0)
@ #x105676d52>
local-3 (local) --> "whirlpool-ASDF-TMP"
local-4 (local) -->
(:absolute "Users" "Martin" "AppData" "Local" "common-lisp" "cache"
"acl-9.0ms-win-x64" "C" "Users" "Martin" "quicklisp" ...)
local-5 (local) --> "fasl"
local-6 (local) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.fasl"
local-7 (local) --> t
local-8 (local) --> nil
local-9 (local) --> nil
local-10 (local) --> nil
local-11 (local) --> nil
local-12 (local) --> #\null

compile-file*
input-file (required) -->
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp"
keys (rest) -->
(:output-file
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.fasl"
:external-format :default :warnings-file nil)
compile-check (keyword) --> :unsupplied
output-file (keyword) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.fasl"
warnings-file (keyword) --> nil
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((t . #)) ((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) -->
(:output-file
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.fasl"
:external-format :default :warnings-file nil)
local-1 (local) --> #<Vector @ #x105676e72>
local-2 (local) --> nil
local-3 (local) --> #<Vector @ #x105676d82>
local-4 (local) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.fasl"
local-5 (local) --> 27618074
local-6 (local) --> 568
local-7 (local) --> stringp
local-8 (local) --> nil
local-9 (local) --> 27618115
local-10 (local) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.fasl"
local-11 (local) --> :bad-frame-var-value
local-12 (local) -->
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp"
unknown (unknown) --> nil
unknown (unknown) --> nil

(internal (internal perform-lisp-compilation 0) 0)
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((t . #)) ((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) -->
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp"
local-1 (local) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.fasl"
local-2 (local) --> :default
local-3 (local) --> nil
local-4 (local) --> #<Vector @ #x105677002>
local-5 (local) --> nil

call-with-muffled-conditions
thunk (required) -->
#<Closure (:internal
(:internal asdf/lisp-action:perform-lisp-compilation 0)
0)
@ #x1056770e2>
conditions (required) --> nil
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((t . #)) ((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) -->
#<Closure (:internal
(:internal asdf/lisp-action:perform-lisp-compilation 0)
0)
@ #x1056770e2>
local-1 (local) --> ((t . #<Closure # @ #xd2b5d12>))

funcall
fcn (required) --> #<Closure (:internal
asdf/lisp-action:perform-lisp-compilation
0)
@ #x105677232>
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))

call-function
function-spec (required) --> funcall
nil (extra-arg) --> #<Closure (:internal
asdf/lisp-action:perform-lisp-compilation
0)
@ #x105677232>
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) --> :bad-frame-var-value

perform-lisp-compilation
o (required) --> #<asdf/lisp-action:compile-op >
c (required) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) --> #<Vector @ #x1056776a2>
local-1 (local) --> #<Vector @ #x105677662>
local-2 (local) -->
(#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.fasl")
local-3 (local) --> #<Vector @ #x105677632>
local-4 (local) --> #<asdf/lisp-action:compile-op >
local-5 (local) -->
#P"C:\Users\Martin\AppData\Local\common-lisp\cache\acl-9.0ms-win-x64\C\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.fasl"
local-6 (local) --> nil
local-7 (local) --> 564
local-8 (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
local-9 (local) -->
#P"C:\Users\Martin\quicklisp\dists\quicklisp\software\ironclad_0.32.1\src\digests\whirlpool.lisp"
local-10 (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">

(internal (effective-method 2 nil nil nil t) 0)
metharg0 (required) --> #<asdf/lisp-action:compile-op >
metharg1 (required) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) -->
(#<Function (method asdf-action:perform #)>
#<Function (method asdf-action:perform #)>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) --> #<asdf/lisp-action:compile-op >
local-1 (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
local-2 (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
local-3 (local) -->
#<Augmentable Environment Base 31368 (var: 15 fcn: 2 decl: 0) @
#x1056778e2>
local-4 (local) --> nil
local-5 (local) --> 27618390
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:compile-op
asdf/lisp-action:cl-source-file))>
local-8 (local) -->
#<Augmentable interpreter environment 2 1 1 1 1 1 1 1 2 1>

funcall
fcn (required) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
nil (extra-arg) --> #<asdf/lisp-action:compile-op >
nil (extra-arg) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) --> nil
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))

let
x (required) -->
(((excl::next-methods excl::.next-methods.))
(funcall excl::.next-method. #:op #:c))
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) --> nil
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) --> 558
local-1 (local) -->
#<Augmentable interpreter environment 1 1 1 1 1 1 1 2 1>
local-2 (local) --> 0
local-3 (local) --> ((funcall excl::.next-method. #:op #:c))
local-4 (local) --> nil
local-5 (local) --> nil
local-6 (local) --> ((excl::next-methods))
local-7 (local) --> nil
local-8 (local) --> nil
local-9 (local) --> nil
local-10 (local) --> nil
local-11 (local) -->
(((excl::next-methods excl::.next-methods.))
(funcall excl::.next-method. #:op #:c))
local-12 (local) --> :bad-frame-var-value
local-13 (local) --> 27618472
local-14 (local) --> excl::next-methods
local-15 (local) --> nil
local-16 (local) --> nil
local-17 (local) --> nil
local-18 (local) --> 29
local-19 (local) --> nil
local-20 (local) --> excl::next-methods
local-21 (local) --> nil
local-22 (local) --> nil

let
x (required) -->
(nil
(if excl::.next-method.
(let # #)
(excl::no-next-method-error '#:g29692 #:op #:c)))
features (local) -->
(:ironclad-gray-streams :cl-fad :bordeaux-threads :cl-ppcre
:named-readtables :split-sequence :thread-support :quicklisp
:asdf3 :asdf2 :asdf :os-windows ...)
print-case (local) --> :upcase
g29690 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
op (local) --> #<asdf/lisp-action:compile-op >
op (local) --> #<asdf/lisp-action:compile-op >
.next-methods. (local) --> nil
.next-method. (local) -->
#<Closure (:internal (:effective-method 2 nil nil nil t) 0) @
#x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
c (local) -->
#<ironclad-system::ironclad-source-file
"ironclad" "src" "digests" "whirlpool">
readtable (local) --> #<readtable @ #x102a90882>
next-methods (local) --> (#<Closure (:internal # 0) @ #x1039a3bb2>)
print-base (local) --> 10
g29689 (local) --> ((style-warning . #))
handler-clusters (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-0 (local) --> 556
local-1 (local) -->
#<Augmentable interpreter environment 1 1 1 1 1 1 1 2 1>
local-2 (local) --> 0
local-3 (local) -->
((if excl::.next-method.
(let # #)
(excl::no-next-method-error '#:g29692 #:op #:c)))
local-4 (local) --> nil
local-5 (local) --> nil
local-6 (local) --> nil
local-7 (local) --> t
local-8 (local) --> nil
local-9 (local) --> nil
local-10 (local) --> nil
local-11 (local) -->
(nil
(if excl::.next-method.
(let # #)
(excl::no-next-method-error '#:g29692 #:op #:c)))
local-12 (local) --> t
local-13 (local) --> 27618524
local-14 (local) --> :bad-frame-var-value
local-15 (local) --> t
local-16 (local) --> excl::handler-clusters
local-17 (local) -->
(((style-warning . #2=#))
((excl::compiler-note . #1=#) (warning . #1#))
((asdf/find-component:missing-dependency-of-version . #)
(asdf/find-component:missing-dependency . #))
((warning . #2#)) ((end-of-file . #)))
local-18 (local) --> 29
local-19 (local) --> nil
local-20 (local) --> nil
local-21 (local) --> #<special operator let @ #x100058282>
local-22 (local) --> nil

@riskpeep

This comment has been minimized.

Show comment Hide comment
@riskpeep

riskpeep Aug 11, 2014

This error comes from the Nibbles package. I had the exact same issue when trying to use Ironclad not that long ago.

For me the issue was that I was using AllegroCL and the way that Nibbles generates these procedures didn't work with Allegro's case-sensitive lower mode.

The author of Nibbles has recently updated the lib to correctly name the methods based on local symbol names and thus it works with Allegro (and should work with other lisps as well.)

Updating Nibbles in your Quicklisp distro should get you working.

This error comes from the Nibbles package. I had the exact same issue when trying to use Ironclad not that long ago.

For me the issue was that I was using AllegroCL and the way that Nibbles generates these procedures didn't work with Allegro's case-sensitive lower mode.

The author of Nibbles has recently updated the lib to correctly name the methods based on local symbol names and thus it works with Allegro (and should work with other lisps as well.)

Updating Nibbles in your Quicklisp distro should get you working.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment