The RSLTS slot of a morphism instancet be of type SIMPLE-VECTOR.

It was initialized with NIL under strategy :cmbn. This also fixes issue #21.
This commit is contained in:
Gerd Heber 2015-07-02 13:01:22 -05:00
parent c1b81d4321
commit e9bd143f71

View File

@ -219,7 +219,7 @@
:adjustable t :adjustable t
:fill-pointer 0)) :fill-pointer 0))
(make-list +maximal-dimension+))) (make-list +maximal-dimension+)))
(:cmbn nil))) (:cmbn (make-array 0))))
(push mrph *mrph-list*) (push mrph *mrph-list*)
mrph)))) mrph))))