From: Nikodemus S. <de...@us...> - 2009-08-01 07:57:51
|
Update of /cvsroot/sbcl/sbcl/tests In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv28251/tests Modified Files: walk.impure.lisp Log Message: 1.0.30.27: pretty-printing improvements * Improved pretty-printing of simple LOOP forms, IF, and MULTIPLE-VALUE-CALL. Patches by Tobias Rittweiler. * Improved pretty-printing of general macro calls by inspecting location of &BODY in the lambda-list. Patch by Tobias Rittweiler. * Make tests in walker.impure.lisp ignore newlines as well. Index: walk.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/walk.impure.lisp,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- walk.impure.lisp 8 Feb 2008 14:16:11 -0000 1.8 +++ walk.impure.lisp 1 Aug 2009 07:57:36 -0000 1.9 @@ -32,7 +32,8 @@ (defun string-modulo-tabspace (s) (remove-if (lambda (c) (or (char= c #\space) - (char= c #\tab))) + (char= c #\tab) + (char= c #\newline))) s)) (defun string=-modulo-tabspace (x y) (string= (string-modulo-tabspace x) |