[movitz-cvs] CVS update: movitz/storage-types.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv21356

Modified Files:
	storage-types.lisp 
Log Message:
Fix make-movitz-vector for lengths over (expt 2 14).

Date: Sun Feb 27 03:31:36 2005
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.49 movitz/storage-types.lisp:1.50
--- movitz/storage-types.lisp:1.49	Mon Jan 17 11:54:21 2005
+++ movitz/storage-types.lisp	Sun Feb 27 03:31:34 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: storage-types.lisp,v 1.49 2005/01/17 10:54:21 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.50 2005/02/27 02:31:34 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -514,9 +514,12 @@
 		       (:any-t
 			(map 'vector #'movitz-read initial-contents))
 		       (t initial-contents))
-      :fill-pointer (if (integerp fill-pointer)
-			fill-pointer
-		      size))))
+      :fill-pointer (cond
+		     ((not (typep size '(unsigned-byte 14)))
+		      0)
+		     ((integerp fill-pointer)
+		      fill-pointer)
+		     (t size)))))
 
 (defun make-movitz-string (string)
   (make-movitz-vector (length string)