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

The initarg for :method-combination must use a class (no specialization is defined for find-method-combination with a first argument of type NULL)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-28 10:44:04 +02:00
parent 822a18386f
commit 5b79eae1ad
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/clos/kernel.lsp
View file

@ -138,7 +138,7 @@
:accessor generic-function-name)
(spec-list :initform nil :accessor generic-function-spec-list)
(method-combination
:initarg :method-combination :initform (find-method-combination nil 'standard nil)
:initarg :method-combination :initform (find-method-combination (class-prototype (find-class 'standard-generic-function)) 'standard nil)
:accessor generic-function-method-combination)
(lambda-list :initarg :lambda-list
:accessor generic-function-lambda-list)
@ -406,6 +406,10 @@
(defun sort-applicable-methods (gf applicable-list args)
(declare (optimize (safety 0) (speed 3)))
#+(or)
(unless applicable-list
(print (generic-function-name gf))
(print (mapcar #'type-of args)))
(let ((f (generic-function-a-p-o-function gf))
(args-specializers (mapcar #'class-of args)))
;; reorder args to match the precedence order