Skip to content
Snippets Groups Projects
Commit b0785989 authored by pfdietz's avatar pfdietz
Browse files

Change a type to avoid a gcl typep bug

parent bffedbea
No related branches found
No related tags found
No related merge requests found
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
(in-package :cl-test) (in-package :cl-test)
(defun bit-random-test-fn (bit-fn log-fn &key (reps 5000) (maxlen 100)) (defun bit-random-test-fn (bit-fn log-fn &key (reps 5000) (maxlen 100))
(assert (typep maxlen '(integer (0)))) (assert (typep maxlen '(integer 1)))
(assert (typep reps 'unsigned-byte)) (assert (typep reps 'unsigned-byte))
(loop for len = (random maxlen) (loop for len = (random maxlen)
for twos = (make-list len :initial-element 2) for twos = (make-list len :initial-element 2)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment