VRTC-BAR appears to be fixed by the +MAXIMAL-DIMENSION+ bump.
This commit is contained in:
parent
edefe1d661
commit
2f7b5d9128
@ -160,6 +160,7 @@
|
|||||||
(cat:? cf 6 (cat:abar 3 (cat:crpr 0 (cat:d 7) 0 (cat:d 7)) 3
|
(cat:? cf 6 (cat:abar 3 (cat:crpr 0 (cat:d 7) 0 (cat:d 7)) 3
|
||||||
(cat:crpr 0 (cat:d 56) 0 (cat:d 56)))))))
|
(cat:crpr 0 (cat:d 56) 0 (cat:d 56)))))))
|
||||||
|
|
||||||
|
|
||||||
(test hmtp-vrtc-bar-intr
|
(test hmtp-vrtc-bar-intr
|
||||||
(progn
|
(progn
|
||||||
(cat:cat-init)
|
(cat:cat-init)
|
||||||
@ -197,7 +198,7 @@
|
|||||||
(aleat-bc)
|
(aleat-bc)
|
||||||
(check-rdct))
|
(check-rdct))
|
||||||
|
|
||||||
#|
|
|
||||||
(test vrtc-bar
|
(test vrtc-bar
|
||||||
(progn
|
(progn
|
||||||
(cat:cat-init)
|
(cat:cat-init)
|
||||||
@ -249,8 +250,9 @@
|
|||||||
(cat:pre-check-rdct bar)
|
(cat:pre-check-rdct bar)
|
||||||
(aleat-tc)
|
(aleat-tc)
|
||||||
(aleat-bc)
|
(aleat-bc)
|
||||||
(loop (c))))) ;; degrees >= 15 is possible => error.
|
;;(loop (c))
|
||||||
|#
|
(dotimes (i 10) (c))))) ;; degrees >= 15 is possible => error.
|
||||||
|
|
||||||
|
|
||||||
(test homology
|
(test homology
|
||||||
(progn
|
(progn
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user