[movitz-cvs] CVS update: movitz/movitz.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Wed Apr 21 15:09:25 UTC 2004
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*)))
More information about the Movitz-cvs
mailing list