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