numcl-reader.lisp

(defun |#(-reader| (stream character number)
  (declare (ignore character number))
  `(load-time-value (numcl:asarray ',(read-delimited-list #\) stream t))))

(defun |#A-reader| (stream character number)
  (declare (ignore character))
  `(load-time-value (let ((array (numcl:asarray ',(read stream t t t))))
                      (assert (= (array-rank array) ,number))
                      array)))

(named-readtables:defreadtable numcl::numcl-reader
  (:merge :standard)
  (:dispatch-macro-char #\# #\( '|#(-reader|)
  (:dispatch-macro-char #\# #\A '|#A-reader|))

(named-readtables:in-readtable numcl::numcl-reader)