Commit 92118f21 authored by pfdietz's avatar pfdietz

Removed make-synonym-stream.2, which violated 21.1.4

parent ad65af3a
......@@ -26,6 +26,8 @@
#\a #\b #\c #\d #\e)
;;; This test was wrong (section 21.1.4)
#|
(deftest make-synonym-stream.2
(let ((ss (make-synonym-stream '*s*)))
(with-input-from-string
......@@ -40,6 +42,7 @@
(assert (stream-element-type ss))
(read-char ss)))
#\z)
|#
(deftest make-synonym-stream.3
(with-output-to-string
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment