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

Turn off ASH generation in cmucl, where it still causes too many errors. Make...

Turn off ASH generation in cmucl, where it still causes too many errors.  Make second form be uncompiled in gcl as well as clisp.
parent 3164c0c6
No related branches found
No related tags found
No related merge requests found
......@@ -39,7 +39,9 @@
(defvar *maximum-random-int-bits* 45)
(defvar *compile-unoptimized-form* #-clisp t #+clisp nil)
(defvar *compile-unoptimized-form*
#-(or gcl clisp) t
#+(or gcl clisp) nil)
(declaim (special *vars*))
......@@ -143,6 +145,7 @@
`(,op ,(make-random-integer-form (1- size)))))
(2 `(isqrt (abs ,(make-random-integer-form (- size 2)))))
#-cmu
(2
(destructuring-bind (s1 s2)
(random-partition (- size 2) 2)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment