From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 22 Sep 2008 22:57:22 +0000 (+0000)
Subject: 1.0.20.23: get rid of IGNORE-ERRORS in SB-INTROSPECT
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2c06e3056fe6aa820817a927fa0e840eb7b8edb7;p=sbcl.git

1.0.20.23: get rid of IGNORE-ERRORS in SB-INTROSPECT

 * Pass ERRORP NIL to FIND-METHOD for *BREAK-ON-SIGNALS* friendliness.
---

diff --git a/contrib/sb-introspect/sb-introspect.lisp b/contrib/sb-introspect/sb-introspect.lisp
index 45b1784..488654d 100644
--- a/contrib/sb-introspect/sb-introspect.lisp
+++ b/contrib/sb-introspect/sb-introspect.lisp
@@ -224,11 +224,12 @@ If an unsupported TYPE is requested, the function will return NIL.
               (find-definition-source class)))))
        ((:method-combination)
         (let ((combination-fun
-               (ignore-errors (find-method #'sb-mop:find-method-combination
-                                           nil
-                                           (list (find-class 'generic-function)
-                                                 (list 'eql name)
-                                                 t)))))
+               (find-method #'sb-mop:find-method-combination
+                            nil
+                            (list (find-class 'generic-function)
+                                  (list 'eql name)
+                                  t)
+                            nil)))
           (when combination-fun
             (find-definition-source combination-fun))))
        ((:package)
diff --git a/version.lisp-expr b/version.lisp-expr
index fb9a782..a9c44f0 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.20.22"
+"1.0.20.23"