diff options
author | Felix Lange <fjl@twurst.com> | 2022-01-21 11:29:31 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-01-21 10:29:31 +0000 |
commit | bf4a2366518b0fcaa3476b10e5d2d8ab33131355 (patch) | |
tree | 6e80a305c27f741891ddbcfc12ce417ec3739cb8 /testing | |
parent | 6ad3a482105e1a46b461b1e65bafa769113abf7c (diff) |
Support DIGEST-SEQUENCE of non-simple arrays on all implementations (#49)
This changes makes DIGEST-SEQUENCE work with non-simple argument vectors
on all implementations by using a temporary buffer in the slow case.
Diffstat (limited to 'testing')
-rw-r--r-- | testing/testfuns.lisp | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/testing/testfuns.lisp b/testing/testfuns.lisp index 981fd8b..5fbabd0 100644 --- a/testing/testfuns.lisp +++ b/testing/testfuns.lisp @@ -224,7 +224,6 @@ (when (mismatch result expected-digest) (error "incremental ~A digest of ~S failed" digest-name input))))) -#+(or sbcl cmucl) (defun digest-test/fill-pointer (digest-name octets expected-digest) (let* ((input (let ((x (make-array (* 2 (length octets)) :fill-pointer 0 @@ -284,7 +283,6 @@ (cons :digest-bit-test 'ignore-test) (cons :xof-digest-test 'ignore-test))) -#+(or sbcl cmucl) (defparameter *digest-fill-pointer-tests* (list (cons :digest-test 'digest-test/fill-pointer) (cons :digest-bit-test 'ignore-test) |