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)))