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

MAKE-METHOD-LAMBDA was invoked by pointer, not by symbol, making its redefinition as generic function completely irrelevant.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-12-02 23:36:47 +01:00
parent c3a1316270
commit 98bd4ac526
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/clos/method.lsp
View file

@ -42,6 +42,7 @@
(find-class 'standard-method)))
(defmacro defmethod (&whole whole name &rest args &environment env)
(declare (notinline make-method-lambda))
(let* ((*print-length* 3)
(*print-depth* 2)
(qualifiers (loop while (and args (not (listp (first args))))