[Sbcl-commits] CVS: sbcl/tests interface.pure.lisp,1.21,1.22

[Christophe R. <cr...@us...>]

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)