From: Christophe R. <cr...@us...> - 2006-03-27 08:22:24
|
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 |