chiark
/
gitweb
/
~mdw
/
sod
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
89ef400
)
src/class-output.lisp (find-class-initializer): Use correct keyword.
author
Mark Wooding
<mdw@distorted.org.uk>
Thu, 26 May 2016 08:26:09 +0000
(09:26 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sat, 22 Jul 2017 17:12:57 +0000
(18:12 +0100)
This is a silly typo which persisted because the class-initializer
machinery hasn't been tested much yet.
src/class-output.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/class-output.lisp
b/src/class-output.lisp
index a59bda0956a8fbd2f7bd1adbc97ec5bad0f9457c..2d1c222635d945b94911f39b5a69e68c718a3d5f 100644
(file)
--- a/
src/class-output.lisp
+++ b/
src/class-output.lisp
@@
-659,7
+659,7
@@
(defgeneric find-class-initializer (slot class)
(let ((dslot (effective-slot-direct-slot slot)))
(or (some (lambda (super)
(find dslot (sod-class-class-initializers super)
- :
test
#'sod-initializer-slot))
+ :
key
#'sod-initializer-slot))
(sod-class-precedence-list class))
(effective-slot-initializer slot)))))