X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcondition.impure.lisp;h=f7ea61a2b917ca40d7fb735834c95ca804798a41;hb=960a9fbd48e695e5b970a01315aa687ab59dc3fe;hp=e21854c65e4162cfcb81e01a6a329cb3e0138f29;hpb=42702bd5e2af3e0042c9f27372c6f5d92335df12;p=sbcl.git

diff --git a/tests/condition.impure.lisp b/tests/condition.impure.lisp
index e21854c..f7ea61a 100644
--- a/tests/condition.impure.lisp
+++ b/tests/condition.impure.lisp
@@ -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)))))