Added matrix type.

tpapp · Jan 30, 2013 · 7fe3261 · 7fe3261
1 parent 074cc57
commit 7fe3261
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/general.lisp b/src/general.lisp
@@ -4,6 +4,10 @@
 
 ;;; shorthand functions
 
+(deftype matrix (&optional element-type nrow ncol)
+  "Matrix type (shorthand for a rank 2 array)."
+  `(array ,element-type (,nrow ,ncol)))
+
 (declaim (inline size rank dim dims nrow ncol))
 
 (defun size (array)

diff --git a/src/package.lisp b/src/package.lisp
@@ -8,6 +8,7 @@
    #:walk-subscripts
    #:walk-subscripts-list)
   (:export ; general
+   #:matrix
    #:size
    #:rank
    #:dim