Steel Bank Common Lisp

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

Modified Files:
	print.impure.lisp 
Log Message:
0.9.11.3:
	FORMAT ~:C and printing characters.  (PFD ansi-tests)


Index: print.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/print.impure.lisp,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- print.impure.lisp	16 Mar 2006 03:24:21 -0000	1.36
+++ print.impure.lisp	27 Mar 2006 08:22:21 -0000	1.37
@@ -410,4 +410,6 @@
 (with-test (:name (:print-readable :character :iso-8859-1))
   (test-readable-character (code-char #xfffe) :iso-8859-1))
 
+(assert (string= (eval '(format nil "~:C" #\a)) "a"))
+(assert (string= (format nil (formatter "~:C") #\a) "a"))
 ;;; success