After bumping +MAXIMUM-DIMENSION+ this test appears to be working.
This commit is contained in:
parent
4773e918cf
commit
a8623228e1
@ -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)))))))))
|
||||||
|#
|
|
||||||
)))
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user