[Openmcl-cvs-notifications] r8527 - /trunk/source/level-1/l1-typesys.lisp

[gz at clozure.com]

Author: gz
Date: Wed Feb 20 21:48:19 2008
New Revision: 8527

Log:
one more case

Modified:
    trunk/source/level-1/l1-typesys.lisp

Modified: trunk/source/level-1/l1-typesys.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-typesys.lisp (original)
+++ trunk/source/level-1/l1-typesys.lisp Wed Feb 20 21:48:19 2008
@@ -3644,10 +3644,11 @@
 				(got (%svref object dim) (%svref object dim)))
 			       ((eql i rank) t)
 			    (unless (or (eq (car want) '*)
-					(eql (car want) (the fixnum got)))
+					(eql (%car want) (the fixnum got)))
 			      (return nil)))))
 		   (and (null (cdr ctype-dimensions))
-			(eql (car ctype-dimensions) (array-total-size object))))))
+			(or (eq (%car ctype-dimensions) '*)
+			    (eql (%car ctype-dimensions) (array-total-size object)))))))
 	 (or (eq (array-ctype-element-type type) *wild-type*)
 	     (eql (array-ctype-typecode type)
 		  (if (> typecode target::subtag-vectorH)