Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv16226/tests
Modified Files:
interface.pure.lisp
Log Message:
0.8.0.18:
Fix bug in APROPOS (reported by cliini on #lisp IRC 2003-05-29)
... it's the second value from FIND-SYMBOL that we want to
compare to :EXTERNAL, not the primary :)
... while we're at it, quieten WITH-PACKAGE-ITERATOR (and
incidentally LOOP FOR ... BEING EACH SYMBOL IN ...)
Index: interface.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/interface.pure.lisp,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- interface.pure.lisp 18 Feb 2003 17:22:07 -0000 1.21
+++ interface.pure.lisp 30 May 2003 09:39:23 -0000 1.22
@@ -27,6 +27,14 @@
(assert (< 0
(length (apropos-list "PRINT" :cl))
(length (apropos-list "PRINT"))))
+;;; Further, it should correctly deal with the external-only flag (bug
+;;; reported by cliini on #lisp IRC 2003-05-30, fixed in sbcl-0.8.0.1x
+;;; by CSR)
+(assert (= (length (apropos-list "" "CL"))
+ (length (apropos-list "" "CL" t))))
+(assert (< 0
+ (length (apropos-list "" "SB-VM" t))
+ (length (apropos-list "" "SB-VM"))))
;;; DESCRIBE shouldn't fail on rank-0 arrays (bug reported and fixed
;;; by Lutz Euler sbcl-devel 2002-12-03)
|