mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 23:50:56 -08:00
Code Issues Projects Releases Packages Wiki Activity

Undo last change

Browse source
This commit is contained in:
jgarcia 2008-04-29 09:26:22 +00:00
parent a204c9c0a1
commit d6475a0974
1 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/clos/combin.lsp
View file

@ -89,7 +89,7 @@
(defmacro call-method (method rest-methods)
`(funcall ,(effective-method-function method)
(locally (declare special) .combined-method-args.)
.combined-method-args.
',(mapcar #'effective-method-function rest-methods)))
(defun call-next-method (&rest args)
@ -105,16 +105,12 @@
(define-compiler-macro call-next-method (&rest args)
`(if *next-methods*
(funcall (car *next-methods*)
,(if args
`(list ,@args)
'(locally (declare (special .combined-method-args.))
.combined-method-args.))
,(if args `(list ,@args) '.combined-method-args.)
(rest *next-methods*))
(error "No next method.")))
(define-compiler-macro next-method-p ()
'(locally (declare (special clos::*next-methods*))
clos::*next-methods*))
'clos::*next-methods*)
(defun error-qualifier (m qualifier)
(declare (si::c-local))