diff --git a/pcl/simple-streams/impl.lisp b/pcl/simple-streams/impl.lisp index 86cf555542b7c05306d299136b5ffa4a5068ff24..5c020c033176d616e1fcc8c6f48dd0bac875725b 100644 --- a/pcl/simple-streams/impl.lisp +++ b/pcl/simple-streams/impl.lisp @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/impl.lisp,v 1.12 2009/08/10 16:47:41 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/impl.lisp,v 1.13 2009/08/11 03:32:25 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -18,7 +18,7 @@ (defun %check (stream kind) (declare (type simple-stream stream) - (optimize (speed 3) (space 1) (debug 0) (safety 0))) + (optimize (speed 3) (space 1) #+(or)(debug 0) (safety 0))) (with-stream-class (simple-stream stream) (cond ((not (any-stream-instance-flags stream :simple)) (%uninitialized stream)) diff --git a/pcl/simple-streams/internal.lisp b/pcl/simple-streams/internal.lisp index 40649c19cf851daa7ec861ce537710458ca18c99..695239f34e650b6f12bfa44601f3803d245bdfe8 100644 --- a/pcl/simple-streams/internal.lisp +++ b/pcl/simple-streams/internal.lisp @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/internal.lisp,v 1.9 2009/08/10 16:47:41 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/internal.lisp,v 1.10 2009/08/11 03:32:25 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -78,7 +78,7 @@ (type (or null kernel:simple-stream-buffer) buffer) (type fixnum start) (type (or null fixnum) end) - (optimize (speed 3) (space 2) (safety 0) (debug 0))) + (optimize (speed 3) (space 2) (safety 0) #+(or)(debug 0))) (with-stream-class (simple-stream stream) (let ((fd (sm input-handle stream)) (end (or end (sm buf-len stream)))