[Sbcl-commits] CVS: sbcl/contrib/sb-introspect sb-introspect.lisp, 1.29, 1.30 test-driver.lisp, 1.11, 1.12

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-introspect
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv4940/contrib/sb-introspect

Modified Files:
	sb-introspect.lisp test-driver.lisp 
Log Message:
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.


Index: sb-introspect.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-introspect/sb-introspect.lisp,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- sb-introspect.lisp	3 Nov 2008 13:34:32 -0000	1.29
+++ sb-introspect.lisp	3 Nov 2008 14:19:34 -0000	1.30
@@ -192,7 +192,8 @@
           (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)))

Index: test-driver.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-introspect/test-driver.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- test-driver.lisp	17 Mar 2008 17:13:40 -0000	1.11
+++ test-driver.lisp	3 Nov 2008 14:19:34 -0000	1.12
@@ -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