From: Christophe Rhodes <csr21@cantab.net>
Date: Sat, 10 Nov 2007 23:57:52 +0000 (+0000)
Subject: 1.0.11.21: Give NO-PRIMARY-METHOD a reference.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9d9b3ca52e33f8b2d77e73d0f54788dc3b5a5e46;p=sbcl.git

1.0.11.21: Give NO-PRIMARY-METHOD a reference.
	Motivated by _deepfire's question on #lisp
---

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 2e0f11a..e4bcd4b 100644
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -711,11 +711,18 @@
 ;;; :BEFORE method, it would seem that going through
 ;;; NO-APPLICABLE-METHOD is prohibited, as in fact there is an
 ;;; applicable method.  -- CSR, 2002-11-15
+(define-condition no-primary-method (reference-condition error)
+  ((generic-function :initarg :generic-function :reader no-primary-method-generic-function)
+   (args :initarg :args :reader no-primary-method-args))
+  (:report
+   (lambda (c s)
+     (format s "~@<There is no primary method for the generic function ~2I~_~S~
+                ~I~_when called with arguments ~2I~_~S.~:>"
+             (no-primary-method-generic-function c)
+             (no-primary-method-args c))))
+  (:default-initargs :references (list '(:ansi-cl :section (7 6 6 2)))))
 (defmethod no-primary-method (generic-function &rest args)
-  (error "~@<There is no primary method for the generic function ~2I~_~S~
-          ~I~_when called with arguments ~2I~_~S.~:>"
-         generic-function
-         args))
+  (error 'no-primary-method :generic-function generic-function :args args))
 
 (defmethod invalid-qualifiers ((gf generic-function)
                                combin
diff --git a/version.lisp-expr b/version.lisp-expr
index 3ca6149..7e3b86f 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.11.20"
+"1.0.11.21"