From 92787d35d8dcbcada7ac4d526321c2775c8c3755 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 11 Aug 2009 03:32:25 +0000 Subject: [PATCH] Don't want debug 0. Makes debugging much harder. --- pcl/simple-streams/impl.lisp | 4 ++-- pcl/simple-streams/internal.lisp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/pcl/simple-streams/impl.lisp b/pcl/simple-streams/impl.lisp index 86cf55554..5c020c033 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 40649c19c..695239f34 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))) -- GitLab