diff --git a/code/stream.lisp b/code/stream.lisp index fdfa984c9e2155d51b339b7b4835b10a59ee1ac5..c0761d24ee75de7ed9c148e0ca6e1453312e05ac 100644 --- a/code/stream.lisp +++ b/code/stream.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.10 1991/02/14 18:47:57 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.11 1991/04/23 12:58:28 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.10 1991/02/14 18:47:57 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.11 1991/04/23 12:58:28 ram Exp $ ;;; ;;; Stream functions for Spice Lisp. ;;; Written by Skef Wholey and Rob MacLachlan. @@ -496,6 +496,7 @@ ;;; (macrolet ((out-fun (name slot &rest args) `(defun ,name (stream ,@args) + (declare (optimize (safety 1))) (let ((syn (symbol-value (synonym-stream-symbol stream)))) (funcall (,slot syn) syn ,@args))))) (out-fun synonym-out stream-out ch) @@ -514,6 +515,7 @@ ;;; (macrolet ((in-fun (name fun &rest args) `(defun ,name (stream ,@args) + (declare (optimize (safety 1))) (let ((*previous-stream* stream)) (,fun (symbol-value (synonym-stream-symbol stream)) ,@args))))) (in-fun synonym-in read-char eof-errorp eof-value) @@ -527,6 +529,7 @@ ;;; the in-buffer. ;;; (defun synonym-misc (stream operation &optional arg1 arg2) + (declare (optimize (safety 1))) (let ((syn (symbol-value (synonym-stream-symbol stream))) (*previous-stream* stream)) (case operation