[zip-cvs] CVS zip

[dlichteblau]

Update of /project/zip/cvsroot/zip
In directory clnet:/tmp/cvs-serv14610

Modified Files:
	acl.lisp 
Log Message:
allegro 8.0 compatibility (thanks to Edi Weitz)


--- /project/zip/cvsroot/zip/acl.lisp	2005/04/05 15:04:33	1.3
+++ /project/zip/cvsroot/zip/acl.lisp	2006/03/14 21:48:43	1.4
@@ -20,9 +20,9 @@
   (make-array length :element-type '(unsigned-byte 8) :initial-element 0)) 
 
 (defmethod excl:device-open ((stream truncating-stream)
-                             #+allegro-v7.0 slots
+                             #+(version>= 7 0) slots
                              options)
-  (declare (ignore options #+allegro-v7.0 slots))
+  (declare (ignore options #+(version>= 7 0) slots))
   (excl:with-stream-class (truncating-stream stream)
     (setf (slot-value stream 'excl::buffer)
           (make-octets (excl:device-buffer-length stream)))