[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv32636

Modified Files:
	arrays.lisp 
Log Message:
Stupid hack to make ansi-tests load. Will return nil for non-vector arrays.


--- /project/movitz/cvsroot/movitz/losp/muerte/arrays.lisp	2008/04/02 20:49:37	1.66
+++ /project/movitz/cvsroot/movitz/losp/muerte/arrays.lisp	2008/04/18 09:55:13	1.67
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sun Feb 11 23:14:04 2001
 ;;;;                
-;;;; $Id: arrays.lisp,v 1.66 2008/04/02 20:49:37 ffjeld Exp $
+;;;; $Id: arrays.lisp,v 1.67 2008/04/18 09:55:13 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1169,8 +1169,8 @@
                      dimensions)
                     ((and (consp dimensions) (null (cdr dimensions)))
                      (car dimensions))
-                    (t
-                     (error "Multi-dimensional arrays not supported.")))))
+                    (t (warn "Array of rank ~D not supported." (length dimensions))
+		       (return-from make-array nil))))) ; XXX
     (cond
      (displaced-to
       (make-indirect-vector displaced-to displaced-index-offset fill-pointer size))