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) ... #-(or sbcl allegro cmu clisp openmcl lispworks ecl clasp abcl mocl genera mezzano) ...
#:fundamental-binary-input-stream #:fundamental-binary-output-stream #:fundamental-binary-input-stream #:fundamental-binary-output-stream
#:stream-read-byte #:stream-write-byte) #:stream-read-byte #:stream-write-byte)
#+ecl
(:shadowing-import-from :gray #:stream-element-type)
(:export (:export
#:perform-all-tests #:perform-all-tests
#:perform-deflate-tests #:perform-deflate-tests
@ -68,7 +70,7 @@
;;; ;;;
(defclass octet-input-stream (fundamental-binary-input-stream) (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))) (position :initform 0)))
(defmethod stream-element-type ((stream octet-input-stream)) (defmethod stream-element-type ((stream octet-input-stream))

View File

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