projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.1.18:
[sbcl.git]
/
src
/
code
/
early-setf.lisp
diff --git
a/src/code/early-setf.lisp
b/src/code/early-setf.lisp
index
709ba8e
..
4ee0528
100644
(file)
--- a/
src/code/early-setf.lisp
+++ b/
src/code/early-setf.lisp
@@
-47,7
+47,7
@@
;; Local functions inhibit global SETF methods.
((and environment
(let ((name (car form)))
;; Local functions inhibit global SETF methods.
((and environment
(let ((name (car form)))
- (dolist (x (sb!c::lexenv-functions environment))
+ (dolist (x (sb!c::lexenv-funs environment))
(when (and (eq (car x) name)
(not (sb!c::defined-fun-p (cdr x))))
(return t)))))
(when (and (eq (car x) name)
(not (sb!c::defined-fun-p (cdr x))))
(return t)))))