Commit 47bd86f5 authored by Marco Antoniotti's avatar Marco Antoniotti 💬
Browse files

Minor cleanup.

parent 41ca2e07
......@@ -66,12 +66,14 @@ This is a synonym of IS-REDIRECT-CONTEXT."
;;; Constructors.
(defmethod initialize-instance :before ((x redirect-output-context) &key (stream *standard-output*))
(defmethod initialize-instance :before ((x redirect-output-context)
&key (stream *standard-output*))
(assert (streamp stream))
(assert (output-stream-p stream)))
(defmethod initialize-instance :before ((x redirect-input-context) &key (stream *standard-input*))
(defmethod initialize-instance :before ((x redirect-input-context)
&key (stream *standard-input*))
(assert (streamp stream))
(assert (input-stream-p stream)))
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