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
/
pcl
/
combin.lisp
diff --git
a/src/pcl/combin.lisp
b/src/pcl/combin.lisp
index
6ab148a
..
3429ad7
100644
(file)
--- a/
src/pcl/combin.lisp
+++ b/
src/pcl/combin.lisp
@@
-95,7
+95,7
@@
(defun make-effective-method-function-simple
(generic-function form &optional no-fmf-p)
(defun make-effective-method-function-simple
(generic-function form &optional no-fmf-p)
- ;; The effective method is just a call to call-method. This opens up
+ ;; The effective method is just a call to CALL-METHOD. This opens up
;; the possibility of just using the method function of the method as
;; the effective method function.
;;
;; the possibility of just using the method function of the method as
;; the effective method function.
;;
@@
-179,8
+179,8
@@
;; args are not used giving a compiler warning.
(error-p (eq (first effective-method) 'error)))
`(lambda ,ll
;; args are not used giving a compiler warning.
(error-p (eq (first effective-method) 'error)))
`(lambda ,ll
- (declare (ignore ,@(if error-p ll '(.pv-cell. .next-method-call.))))
- ,effective-method))))
+ (declare (ignore ,@(if error-p ll '(.pv-cell. .next-method-call.))))
+ ,effective-method))))
(defun expand-emf-call-method (gf form metatypes applyp env)
(declare (ignore gf metatypes applyp env))
(defun expand-emf-call-method (gf form metatypes applyp env)
(declare (ignore gf metatypes applyp env))