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