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*)))