From 5fe45891364de9b2f22499bb6d765c979e6f3ced Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 23 Apr 1991 12:58:28 +0000 Subject: [PATCH] Made the synonym stream methods safe so that we will get unbound errors even in safe code. --- code/stream.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/code/stream.lisp b/code/stream.lisp index fdfa984c9..c0761d24e 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 -- GitLab