[zip-cvs] CVS update: zip/gray.lisp

[David Lichteblau]

Update of /project/zip/cvsroot/zip
In directory common-lisp.net:/tmp/cvs-serv7241

Modified Files:
	gray.lisp 
Log Message:
missing lispworks fix

Date: Tue Apr  5 17:44:54 2005
Author: dlichteblau

Index: zip/gray.lisp
diff -u zip/gray.lisp:1.1 zip/gray.lisp:1.2
--- zip/gray.lisp:1.1	Tue Apr  5 17:04:33 2005
+++ zip/gray.lisp	Tue Apr  5 17:44:54 2005
@@ -5,7 +5,9 @@
      (pos :initform 0 :accessor pos)))
 
 (defmethod stream-write-sequence
-    ((stream buffer-output-stream) seq &optional (start 0) end)
+    #+sbcl ((stream buffer-output-stream) seq &optional (start 0) end)
+    #+lispworks ((stream buffer-output-stream) seq start end)
+    #-(or sbcl lispworks) ...
   (replace (buf stream)
 	   :start1 (pos stream)
 	   :start2 start