From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 3 Nov 2008 14:19:33 +0000 (+0000)
Subject: 1.0.22.9: SB-INTROSPECT regression from 1.0.22.8
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ab93f40187b6b7c2ca047503fdd4dfac0fc356eb;p=sbcl.git

1.0.22.9: SB-INTROSPECT regression from 1.0.22.8

 * Don't signal an error if no TYPE exists when FIND-DEFINITION-SOURCES-BY-NAME
   is called with :TYPE as the second argument.
---

diff --git a/contrib/sb-introspect/sb-introspect.lisp b/contrib/sb-introspect/sb-introspect.lisp
index 9b21d61..b163ba6 100644
--- a/contrib/sb-introspect/sb-introspect.lisp
+++ b/contrib/sb-introspect/sb-introspect.lisp
@@ -192,7 +192,8 @@ If an unsupported TYPE is requested, the function will return NIL.
           (if loc
               (translate-source-location loc)
               (let ((expander-fun (sb-int:info :type :expander name)))
-                (find-definition-source expander-fun)))))
+                (when expander-fun
+                  (find-definition-source expander-fun))))))
        ((:method)
         (when (fboundp name)
           (let ((fun (real-fdefinition name)))
diff --git a/contrib/sb-introspect/test-driver.lisp b/contrib/sb-introspect/test-driver.lisp
index e5d7cd1..9ae4e63 100644
--- a/contrib/sb-introspect/test-driver.lisp
+++ b/contrib/sb-introspect/test-driver.lisp
@@ -119,6 +119,8 @@
   'kroolz)
 (assert (equal (function-arglist #'kroolz) '(r1 r2 &optional opt)))
 
+;;;; Test finding a type that isn't one
+(assert (not (find-definition-sources-by-name 'fboundp :type)))
 
 ;;;; Test the xref facility
 
diff --git a/version.lisp-expr b/version.lisp-expr
index c6a1483..795d615 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.22.8"
+"1.0.22.9"