Commit b0785989 authored by pfdietz's avatar pfdietz
Browse files

Change a type to avoid a gcl typep bug

parent bffedbea
......@@ -6,7 +6,7 @@
(in-package :cl-test)
(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))
(loop for len = (random maxlen)
for twos = (make-list len :initial-element 2)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment