From 2c06e3056fe6aa820817a927fa0e840eb7b8edb7 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Mon, 22 Sep 2008 22:57:22 +0000 Subject: [PATCH] 1.0.20.23: get rid of IGNORE-ERRORS in SB-INTROSPECT * Pass ERRORP NIL to FIND-METHOD for *BREAK-ON-SIGNALS* friendliness. --- contrib/sb-introspect/sb-introspect.lisp | 11 ++++++----- version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/contrib/sb-introspect/sb-introspect.lisp b/contrib/sb-introspect/sb-introspect.lisp index 45b17845a..488654d8e 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 fb9a7820d..a9c44f0c2 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" -- 2.11.4.GIT