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)