From: William H. N. <wn...@us...> - 2007-10-26 12:48:27
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5103/tests Modified Files: condition.impure.lisp Log Message: 1.0.11.3: belatedly recognizing STREAM-ERROR and PARSE-ERROR printing is OK * (In my 1.0.9.60 patch, I fixed a READER-ERROR printing bug and wrote that parallel PARSE-ERROR and STREAM-ERROR printing bugs remained and that I would fix them. Now finally returning to fix them, I find that they were fixed already, the tests work with with no additional fixes needed.) * so I just un-#+NILed-out the tests * also made a few trivial rearrangements in src/code/condition.lisp, moving things around without changing meaning Index: condition.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/condition.impure.lisp,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- condition.impure.lisp 16 Sep 2007 12:05:17 -0000 1.8 +++ condition.impure.lisp 26 Oct 2007 12:48:14 -0000 1.9 @@ -102,13 +102,9 @@ :stream *standard-input*))) ;; should be printable (dolist (c (list - ;; but not yet, o lord (should be fixed soon by WHN, in - ;; one or more commits ca. 1.0.9.55+, #+NILed out 'til - ;; then) - #+nil my-stream-error-1-0-9 - #+nil parse-foo-error-1-0-9 - ;; fixed, hallelujah + my-stream-error-1-0-9 + parse-foo-error-1-0-9 read-foo-error-1-0-9)) - ;; escaped or not + ;; whether escaped or not (dolist (*print-escape* '(nil t)) (write c :stream (make-string-output-stream))))) |