diff --git a/code/stream.lisp b/code/stream.lisp index 1248e63da32c430e8c36aa99d6eb87e63085f4dd..84832a2baf949ec2328bfb8cd7a94d82379588e9 100644 --- a/code/stream.lisp +++ b/code/stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.24 1994/11/01 17:57:46 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.25 1994/12/05 00:02:45 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -580,6 +580,7 @@ (dolist (stream streams (if (> (length res) 1) `(and ,@res) res)) (pushnew (funcall (stream-misc stream) stream :element-type) res :test #'equal)))) + (:close) (t (let ((res nil)) (dolist (stream streams res)