From 41c4586f65f69298f133b3ad4f8fba2beaf47d64 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 1 Nov 2009 02:37:38 +0100 Subject: [PATCH] NO-APPLICABLE-METHOD now shows the types of the arguments when signalling an error. --- src/clos/fixup.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/clos/fixup.lsp b/src/clos/fixup.lsp index 7e2e42dce..fbcfd2f51 100644 --- a/src/clos/fixup.lsp +++ b/src/clos/fixup.lsp @@ -215,10 +215,10 @@ their lambda lists ~A and ~A are not congruent." ;;; ---------------------------------------------------------------------- ;;; Error messages -(defmethod no-applicable-method (gf &rest args) - (declare (ignore args)) - (error "No applicable method for ~S" - (generic-function-name gf))) +(defmethod no-applicable-method (gf args) + (error "No applicable method for ~S with arguments of types~{~& ~A~}" + (generic-function-name gf) + (mapcar #'type-of args))) (defmethod no-next-method (gf method &rest args) (declare (ignore gf args))