After bumping +MAXIMUM-DIMENSION+ this test appears to be working.

This commit is contained in:
Gerd Heber 2015-07-10 20:36:02 -05:00
parent 4773e918cf
commit a8623228e1

View File

@ -14,7 +14,6 @@
2 '(4 5))
abar-degr abar)))
(dotimes (i 5) (print (random-abar 8 4)))
#|
(cat:? c (+ 5 abar-degr) gnrt)
(cat:? c (cat:? c (+ 5 abar-degr) gnrt))
(dotimes (i 10)
@ -51,6 +50,4 @@
abar-degr abar))
(unless (>= abar-degr 11)
(print (cat:? c (+ 4 abar-degr) gnrt))
(print (cat:? c (cat:? c (+ 4 abar-degr) gnrt))))))
|#
)))
(print (cat:? c (cat:? c (+ 4 abar-degr) gnrt)))))))))