From d6475a09744e6b17e55854dfb38cec30fb1c047e Mon Sep 17 00:00:00 2001 From: jgarcia Date: Tue, 29 Apr 2008 09:26:22 +0000 Subject: [PATCH] Undo last change --- src/clos/combin.lsp | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/src/clos/combin.lsp b/src/clos/combin.lsp index 35b1b74bd..6fb4202ce 100644 --- a/src/clos/combin.lsp +++ b/src/clos/combin.lsp @@ -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))