Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv5811
Modified Files: storage-types.lisp Log Message: Changed printing of Movitz vectors.
Date: Mon Feb 2 08:09:26 2004 Author: ffjeld
Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.2 movitz/storage-types.lisp:1.3 --- movitz/storage-types.lisp:1.2 Mon Jan 19 06:23:41 2004 +++ movitz/storage-types.lisp Mon Feb 2 08:09:26 2004 @@ -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.2 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.3 2004/02/02 13:09:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -449,14 +449,15 @@ 8)))
(defmethod print-object ((obj movitz-vector) stream) - (case (movitz-vector-element-type obj) - (:character - (format stream "#&~S" (map 'string #'identity + (print-unreadable-movitz-object (obj stream :type nil :identity t) + (case (movitz-vector-element-type obj) + (:character + (format stream "~S" (map 'string #'identity (movitz-vector-symbolic-data obj)))) - (t (format stream "#&[[ET:~A,NE:~A]~A]" - (movitz-vector-element-type obj) - (movitz-vector-num-elements obj) - (movitz-vector-symbolic-data obj)))) + (t (format stream "[ET:~A,NE:~A] ~A" + (movitz-vector-element-type obj) + (movitz-vector-num-elements obj) + (movitz-vector-symbolic-data obj))))) obj)
(defmethod movitz-storage-alignment ((obj movitz-vector))