projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.61:
[sbcl.git]
/
src
/
pcl
/
methods.lisp
diff --git
a/src/pcl/methods.lisp
b/src/pcl/methods.lisp
index
9ba3364
..
34e166a
100644
(file)
--- a/
src/pcl/methods.lisp
+++ b/
src/pcl/methods.lisp
@@
-205,7
+205,7
@@
lambda-list lambda-list-p))
(when namep
lambda-list lambda-list-p))
(when namep
- (set-function-name generic-function name))
+ (set-fun-name generic-function name))
(flet ((initarg-error (initarg value string)
(error "when initializing the generic function ~S:~%~
(flet ((initarg-error (initarg value string)
(error "when initializing the generic function ~S:~%~
@@
-1289,8
+1289,7
@@
(if function-p
function
(make-fast-method-call
(if function-p
function
(make-fast-method-call
- :function (set-function-name function
- `(sdfun-method ,name))
+ :function (set-fun-name function `(sdfun-method ,name))
:arg-info fmc-arg-info))))))))))
(defvar *show-make-unordered-methods-emf-calls* nil)
:arg-info fmc-arg-info))))))))))
(defvar *show-make-unordered-methods-emf-calls* nil)