mirror of
https://github.com/pmai/Deflate.git
synced 2025-12-22 13:34:30 +01:00
Compare commits
3 Commits
release-1.
...
master
| Author | SHA1 | Date | |
|---|---|---|---|
| 3c6d7a783a | |||
| 3b030998ba | |||
| 7a3f243d49 |
@ -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))
|
||||
|
||||
@ -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)))
|
||||
|
||||
Reference in New Issue
Block a user