Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Loading…

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

Open
ICanCAD opened this Issue · 1 comment

2 participants

@ICanCAD

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
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) -->
#
arguments (rest) --> nil
result (local) --> #
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #
g46806 (local) --> #
local-0 (local) --> nil
local-1 (local) -->
#
local-2 (local) -->
#
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) --> #
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #
g46806 (local) --> #
local-0 (local) --> 726
local-1 (local) --> #
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) --> #
local-11 (local) -->
(((#2=#:g46806 crypto::result) (#3=#:g46807 #) (#1=#:g46808 #))
(excl::.inv-s-aref #1# #2# #3#))
local-12 (local) --> #
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) --> #
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #
g46806 (local) --> #
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) --> #
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #
g46806 (local) --> #
local-0 (local) --> 722
local-1 (local) --> #
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) --> (#)
local-14 (local) --> crypto::r
local-15 (local) --> nil
local-16 (local) --> nil
local-17 (local) --> #
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) --> #
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #
g46806 (local) --> #
local-0 (local) --> 720
local-1 (local) --> #
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
. #))
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) --> (#)
local-14 (local) --> crypto::one-row-of-bytes
local-15 (local) --> nil
local-16 (local) --> nil
local-17 (local) --> #
local-18 (local) --> t
local-19 (local) --> nil
local-20 (local) --> crypto::one-row-of-bytes
local-21 (local) --> #
local-22 (local) --> #

let
x (required) --> (((crypto::result #)) (let (#) (let # #)))
result (local) --> #
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #
g46806 (local) --> #
local-0 (local) --> 718
local-1 (local) --> #
local-2 (local) --> 0
local-3 (local) --> ((let (#) (let # #)))
local-4 (local) --> nil
local-5 (local) --> nil
local-6 (local) --> ((crypto::result . #))
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) --> #
local-14 (local) --> crypto::result
local-15 (local) --> nil
local-16 (local) --> nil
local-17 (local) -->
# #x1056750e2>
local-18 (local) --> t
local-19 (local) --> nil
local-20 (local) --> crypto::result
local-21 (local) --> #
local-22 (local) --> #

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) --> #
r (local) --> 1
g46807 (local) --> 2
one-row-of-bytes (local) --> #
g46806 (local) --> #
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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> #
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) --> #
local-31 (local) --> nil
local-32 (local) --> 4683
local-33 (local) --> t
local-34 (local) --> 0
local-35 (local) --> #
local-36 (local) --> #\null
local-37 (local) --> 4683
local-38 (local) --> :bad-frame-var-value
local-39 (local) --> 27617782
local-40 (local) -->
# #xd2b4aa2>
local-41 (local) -->
#
local-42 (local) -->
# #xd2b4ac2>
local-43 (local) -->
# #xd2b4ae2>
local-44 (local) -->
# #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) -->
# #P"C:\\Users\\Martin\\quicklisp\\dists\\quicklisp\\software\\ironclad_0.32.1\\src\\digests\\whirlpool.lisp"
@ #x105676642>
local-53 (local) -->
#
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) -->
# (: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) --> (#)
local-65 (local) --> 2
local-66 (local) --> 1
local-67 (local) --> #
local-68 (local) -->
# #x1032e9d42>
local-69 (local) --> #<1 values @ #x105673c92>
local-70 (local) -->
(#)
local-71 (local) -->
(#)
local-72 (local) --> #\null
local-73 (local) --> "whirlpool"
local-74 (local) -->
# (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) -->
# #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) --> #
local-80 (local) --> # @ #x103322dc2>
local-81 (local) --> #
local-82 (local) --> nil
local-83 (local) --> 570
local-84 (local) -->
# (:effective-method 2 nil nil nil nil)
0)>
local-85 (local) --> (excl::access excl::buffer)
local-86 (local) --> #<1 values @ #x1056766a2>
local-87 (local) -->
# #x105675282>
local-88 (local) --> #
local-89 (local) --> #
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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> # @ #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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> # (: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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> # (:internal
asdf/lisp-build:compile-file*
0)
0)
@ #x105676c22>
local-1 (local) --> ((t . #))

call-with-saved-deferred-warnings
thunk (required) --> # 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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> #
local-2 (local) --> # 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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> #
local-2 (local) --> nil
local-3 (local) --> #
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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> #
local-5 (local) --> nil

call-with-muffled-conditions
thunk (required) -->
# (: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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) -->
# (:internal asdf/lisp-action:perform-lisp-compilation 0)
0)
@ #x1056770e2>
local-1 (local) --> ((t . #))

funcall
fcn (required) --> # 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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> # 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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> #
c (required) -->
# "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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> #
local-1 (local) --> #
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) --> #
local-4 (local) --> #
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" "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" "src" "digests" "whirlpool">

(internal (effective-method 2 nil nil nil t) 0)
metharg0 (required) --> #
metharg1 (required) -->
# "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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) -->
(#
#)
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) --> #
local-1 (local) -->
# "ironclad" "src" "digests" "whirlpool">
local-2 (local) -->
# #x1039a3bb2>
local-3 (local) -->
# #x1056778e2>
local-4 (local) --> nil
local-5 (local) --> 27618390
local-6 (local) -->
# (asdf/operation:operation asdf/component:component))>
local-7 (local) -->
# (asdf/lisp-action:compile-op
asdf/lisp-action:cl-source-file))>
local-8 (local) -->
#

funcall
fcn (required) -->
# #x1039a3bb2>
nil (extra-arg) --> #
nil (extra-arg) -->
# "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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
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) -->
#
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) --> #
op (local) --> #
.next-methods. (local) --> nil
.next-method. (local) -->
# #x1039a3bb2>
g29691 (local) --> (style-warning . #)
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
c (local) -->
# "ironclad" "src" "digests" "whirlpool">
readtable (local) --> #
next-methods (local) --> (#)
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) -->
#
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) --> #
local-22 (local) --> nil

@riskpeep

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
Something went wrong with that request. Please try again.