X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flisp-stream.lisp;h=deeba9b1e4af91c59632eaf1cf901a21d850a4cd;hb=f392742d2781f42b3bb15b637e5008e10fbbe092;hp=f6dac1605e177001c60b240bcf0bc0be8b19f535;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/lisp-stream.lisp b/src/code/lisp-stream.lisp
index f6dac16..deeba9b 100644
--- a/src/code/lisp-stream.lisp
+++ b/src/code/lisp-stream.lisp
@@ -11,11 +11,14 @@
 
 (in-package "SB!IMPL")
 
-(file-comment
-  "$Header$")
-
+;;; the size of a stream in-buffer
+;;;
+;;; KLUDGE: The EVAL-WHEN wrapper isn't needed except when using CMU
+;;; CL as a cross-compilation host. cmucl-2.4.19 issues full WARNINGs
+;;; (not just STYLE-WARNINGs!) when processing this file, and when
+;;; processing other files which use LISP-STREAM. -- WHN 2000-12-13
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defconstant in-buffer-length 512 "the size of a stream in-buffer"))
+  (defconstant in-buffer-length 512))
 
 (deftype in-buffer-type ()
   `(simple-array (unsigned-byte 8) (,in-buffer-length)))