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

Missing optional variable

Browse source
This commit is contained in:
jgarcia 2008-03-17 09:25:42 +00:00
parent f5b444d4ca
commit 55462dc1b7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/clos/combin.lsp
View file

@ -47,7 +47,7 @@
;;; 5) Ordinary forms are turned into lambda forms, much like
;;; what happens with the content of MAKE-METHOD.
;;;
(defun effective-method-function (form)
(defun effective-method-function (form &optional top-level)
(cond ((functionp form)
form)
((method-p form)
@ -275,7 +275,7 @@
"Method qualifiers ~S are not allowed in the method~
combination ~S." .method-qualifiers. ,name)))))
,@group-after
(effective-method-function ,@body))))
(effective-method-function ,@body t))))
)))
(defmacro define-method-combination (name &body body)