From 5b79eae1ad3b3a75cc4f89e5e409d020fd667b5f Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 28 Apr 2012 10:44:04 +0200 Subject: [PATCH] The initarg for :method-combination must use a class (no specialization is defined for find-method-combination with a first argument of type NULL) --- src/clos/kernel.lsp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/clos/kernel.lsp b/src/clos/kernel.lsp index 337b19035..b609fd9c0 100644 --- a/src/clos/kernel.lsp +++ b/src/clos/kernel.lsp @@ -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