cl-portable-aserve (1.2.42+cvs.2010.02.08-dfsg-1.1) acl-compat/packages.lisp

Summary

 acl-compat/packages.lisp |   49 +++++++++++++++++++++++------------------------
 1 file changed, 25 insertions(+), 24 deletions(-)

    
download this patch

Patch contents

--- cl-portable-aserve-1.2.42+cvs.2010.02.08-dfsg.orig/acl-compat/packages.lisp
+++ cl-portable-aserve-1.2.42+cvs.2010.02.08-dfsg/acl-compat/packages.lisp
@@ -153,30 +153,31 @@
 
 ; these are not all in the ccl package which causes an error
 #+(and mcl (not openmcl))
-(shadowing-import '(
-                    fundamental-binary-input-stream
-                    fundamental-binary-output-stream
-                    fundamental-character-input-stream
-                    fundamental-character-output-stream
-                    stream-element-type
-                    stream-listen
-                    stream-read-byte
-                    stream-read-char
-                    stream-peek-char
-                    stream-write-byte
-                    stream-write-char
-                    stream-read-char-no-hang
-                    stream-force-output
-                    stream-finish-output
-                    stream-clear-input
-                    stream-clear-output
-                    stream-line-column
-                    stream-read-sequence
-                    stream-unread-char
-                    stream-read-line
-                    stream-write-sequence
-                    stream-write-string)
-                  :ccl)
+(eval-when (compile load eval)
+  (shadowing-import '(
+		      fundamental-binary-input-stream
+		      fundamental-binary-output-stream
+		      fundamental-character-input-stream
+		      fundamental-character-output-stream
+		      stream-element-type
+		      stream-listen
+		      stream-read-byte
+		      stream-read-char
+		      stream-peek-char
+		      stream-write-byte
+		      stream-write-char
+		      stream-read-char-no-hang
+		      stream-force-output
+		      stream-finish-output
+		      stream-clear-input
+		      stream-clear-output
+		      stream-line-column
+		      stream-read-sequence
+		      stream-unread-char
+		      stream-read-line
+		      stream-write-sequence
+		      stream-write-string)
+		    :ccl))
 
 #-cormanlisp
 (defpackage :gray-stream