[cl-plus-ssl-cvs] CVS trivial-gray-streams

[dlichteblau]

Update of /project/cl-plus-ssl/cvsroot/trivial-gray-streams
In directory cl-net:/tmp/cvs-serv9217

Modified Files:
	mixin.lisp 
Log Message:
Fix the recently added ABCL code to avoid a reader error in SBCL


--- /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2011/03/29 10:34:57	1.13
+++ /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2011/03/29 19:25:09	1.14
@@ -42,8 +42,11 @@
   (defmethod gray-streams:stream-write-string 
       ((stream xp::xp-structure) string &optional (start 0) (end (length string)))
     (xp::write-string+ string stream start end))
-  
-  #+#.(cl:if (cl:find-symbol "STREAM-FILE-POSITION" :gray-streams) '(cl:and) '(cl:or))
+
+  #+#.(cl:if (cl:and (cl:find-package :gray-streams)
+		     (cl:find-symbol "STREAM-FILE-POSITION" :gray-streams))
+	     '(:and)
+	     '(:or))
   (defmethod gray-streams:stream-file-position
       ((s trivial-gray-stream-mixin) &optional position)
     (if position