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

[Frode Vatvedt Fjeld]

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

Modified Files:
	movitz.lisp 
Log Message:
Added syntax #{...} for arrays specialized to (unsigned-byte 8).

Date: Wed Apr 21 11:09:25 2004
Author: ffjeld

Index: movitz/movitz.lisp
diff -u movitz/movitz.lisp:1.6 movitz/movitz.lisp:1.7
--- movitz/movitz.lisp:1.6	Wed Apr 14 08:37:23 2004
+++ movitz/movitz.lisp	Wed Apr 21 11:09:25 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Mon Oct  9 20:52:58 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: movitz.lisp,v 1.6 2004/04/14 12:37:23 ffjeld Exp $
+;;;; $Id: movitz.lisp,v 1.7 2004/04/21 15:09:25 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -61,6 +61,13 @@
 				     (declare (ignore subchar arg))
 				     (list 'muerte.common-lisp::function
 					   (read stream t nil t))))
+     (set-dispatch-macro-character #\# #\{
+				   (lambda (stream subchar arg)
+				     (declare (ignore subchar arg))
+				     (let ((data (read-delimited-list #\} stream)))
+				       (make-movitz-vector (length data)
+							   :element-type 'movitz-unboxed-integer-u8
+							   :initial-contents data))))
      (set-macro-character #\` (lambda (stream char)
 				(declare (ignore char))
 				(let ((*bq-level* (1+ *bq-level*)))