3 Commits

2 changed files with 4 additions and 2 deletions

View File

@ -37,6 +37,8 @@
#-(or sbcl allegro cmu clisp openmcl lispworks ecl clasp abcl mocl genera mezzano) ...
#:fundamental-binary-input-stream #:fundamental-binary-output-stream
#:stream-read-byte #:stream-write-byte)
#+ecl
(:shadowing-import-from :gray #:stream-element-type)
(:export
#:perform-all-tests
#:perform-deflate-tests
@ -68,7 +70,7 @@
;;;
(defclass octet-input-stream (fundamental-binary-input-stream)
((data :initarg :data :type (simple-array (*) (unsigned-byte 8)))
((data :initarg :data :type (simple-array (unsigned-byte 8) (*)))
(position :initform 0)))
(defmethod stream-element-type ((stream octet-input-stream))

View File

@ -40,6 +40,6 @@
:in-order-to ((test-op (test-op "deflate/test"))))
(defsystem "deflate/test"
:depends-on ("deflate")
:depends-on ("deflate" #+abcl (:require :gray-streams))
:components ((:file "deflate-test"))
:perform (test-op (o c) (symbol-call '#:deflate-test '#:perform-all-tests)))