[Sbcl-commits] CVS: sbcl/tests print.impure.lisp,1.26,1.27

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

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/tests

Modified Files:
	print.impure.lisp 
Log Message:
0.8.16.40:
	Fix for "~VR" nil 5 problem (from PFD ansi-tests)


Index: print.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/print.impure.lisp,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- print.impure.lisp	15 Nov 2004 19:25:48 -0000	1.26
+++ print.impure.lisp	16 Nov 2004 16:40:32 -0000	1.27
@@ -309,5 +309,9 @@
                             (funcall (eval `(formatter ,format)) s arg))
                           result)))
 
+;;; NIL first parameter for ~R is equivalent to no parameter.
+(assert (string= (format nil "~VR" nil 5) "five"))
+(assert (string= (format nil (formatter "~VR") nil 6) "six"))
+
 ;;; success
 (quit :unix-status 104)