add SB-EXT:*SUPPRESS-PRINT-ERRORS* modelled after *BREAK-ON-SIGNALS*
[sbcl.git] / tests / stream.impure.lisp
index fd3f8df..a4922cc 100644 (file)
            (setf fifo nil))))
      sb-impl::*external-formats*)))
 
-(with-test (:name :bug-657183)
+(with-test (:name :bug-657183 :skipped-on '(not :sb-unicode))
+  #+sb-unicode
   (let ((name (merge-pathnames "stream-impure.temp-test"))
         (text '(#\GREEK_SMALL_LETTER_LAMDA
                 #\JAPANESE_BANK_SYMBOL