From: Juho S. <js...@us...> - 2005-12-11 04:23:15
|
Update of /cvsroot/sbcl/sbcl/contrib/sb-introspect In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2123/contrib/sb-introspect Modified Files: sb-introspect.lisp Log Message: 0.9.7.25: Miscellanea. * Don't return structures from FIND-DEFINITION-SOURCE-BY-NAME when asking for classes * Fix typo in error message for --eval '1 2' (reported by ignas on #lisp) * Add a couple of comments * Add myself to the initials glossary Index: sb-introspect.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/sb-introspect/sb-introspect.lisp,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- sb-introspect.lisp 1 Dec 2005 00:27:27 -0000 1.13 +++ sb-introspect.lisp 11 Dec 2005 04:23:04 -0000 1.14 @@ -201,7 +201,8 @@ (sb-int:info :source-location :typed-structure name)))))) ((:condition :class) (let ((class (find-class name nil))) - (when class + (when (and class + (not (typep class 'sb-pcl::structure-class))) (when (eq (not (typep class 'sb-pcl::condition-class)) (not (eq type :condition))) (find-definition-source class))))) |