Remove erroneous optimization.
authorJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Tue, 26 Feb 2013 10:54:05 +0000 (05:54 -0500)
committerJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Tue, 26 Feb 2013 10:54:05 +0000 (05:54 -0500)
src/clos/combin.lsp

index c865121..cd0842e 100644 (file)
 ;;; is the equivalent of (CALL-METHOD method rest-methods)
 ;;;
 (defun combine-method-functions (method rest-methods)
-  (if rest-methods ;; JCB
-      #'(lambda (args no-next-methods)
-         (declare (ignorable no-next-methods))
-         (let ((.combined-method-args. args))
-           (declare (special .combined-method-args.)) ;; JCB
-           (funcall method args rest-methods)))
-    method ;; since there is nothing to combine. JCB
-    )
+  #'(lambda (args no-next-methods)
+      (declare (ignorable no-next-methods))
+      (let ((.combined-method-args. args))
+        (declare (special .combined-method-args.)) ;; JCB
+        (funcall method args rest-methods)))
   )
 
 (defmacro call-method (method &optional rest-methods)