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