From: Vladimir Sedach <vsedach@gmail.com>
Date: Tue, 30 Dec 2008 21:10:47 +0000 (-0700)
Subject: Added an implementation of 'elt' to ps-macro-lib.
X-Git-Url: http://git.hcoop.net/clinton/parenscript.git/commitdiff_plain/ce44c98c339f0956ea7fe0963e36d13bbbc00b8c?hp=550c36c80b1162677ca050263d09e49c1d1b17a6

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
--- 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
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -20,6 +20,7 @@
       #:array
       #:list
       #:aref
+      #:elt
       #:make-array
       #:[]