Commit 31097618 authored by pfdietz's avatar pfdietz

Work around sbcl/cmucl bug with zero length byte specifiers.

parent 64ca6225
......@@ -206,7 +206,7 @@
(defun make-random-byte-spec-form (size vars)
(declare (ignore size vars))
(let* ((pform (random 33))
(sform (random 33)))
(sform (1+ (random 33))))
`(byte ,sform ,pform)))
(defun random-partition (n p)
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