projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.5.29:
[sbcl.git]
/
src
/
pcl
/
std-class.lisp
diff --git
a/src/pcl/std-class.lisp
b/src/pcl/std-class.lisp
index
7b64b5a
..
5e0249a
100644
(file)
--- a/
src/pcl/std-class.lisp
+++ b/
src/pcl/std-class.lisp
@@
-797,7
+797,10
@@
(defun fix-slot-accessors (class dslotds add/remove)
(flet ((fix (gfspec name r/w)
(defun fix-slot-accessors (class dslotds add/remove)
(flet ((fix (gfspec name r/w)
- (let ((gf (ensure-generic-function gfspec)))
+ (let* ((ll (case r/w (r '(object)) (w '(new-value object))))
+ (gf (if (fboundp gfspec)
+ (ensure-generic-function gfspec)
+ (ensure-generic-function gfspec :lambda-list ll))))
(case r/w
(r (if (eq add/remove 'add)
(add-reader-method class gf name)
(case r/w
(r (if (eq add/remove 'add)
(add-reader-method class gf name)