Added an implementation of 'elt' to ps-macro-lib.

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index 17ec73d..dc53065 100644 (file)
--- a/src/lib/ps-macro-lib.lisp
+++ b/src/lib/ps-macro-lib.lisp
@@ -92,3 +92,5 @@
 (defpsmacro concat-string (&rest things)
   (cons '+ things))
 
+(defpsmacro elt (array index)
+  `(aref ,array ,index))

diff --git a/src/package.lisp b/src/package.lisp
index 126fd5a..7ae55ce 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -20,6 +20,7 @@
       #:array
       #:list
       #:aref
+      #:elt
       #:make-array
       #:[]