X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Farray.lisp;h=a15b4eb69b14369824285fbc449f03a6c2c62d37;hb=fc17cd58e6bd60aa129bb879e3cf7452a944384b;hp=150c70d79fe45bba79f6988b658ddd20ff1b26e5;hpb=2cb3364352641d3f4e6bd0a68907b915d69c0f6e;p=jscl.git

diff --git a/src/array.lisp b/src/array.lisp
index 150c70d..a15b4eb 100644
--- a/src/array.lisp
+++ b/src/array.lisp
@@ -13,6 +13,8 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
 
+(/debug "loading array.lisp!")
+
 (defun upgraded-array-element-type (typespec &optional environment)
   (declare (ignore environment))
   (if (eq typespec 'character)
@@ -73,12 +75,25 @@
     (error "~S is not an array." array))  
   (storage-vector-set array index value))
 
+(define-setf-expander aref (array index)
+  (let ((g!array (gensym))
+        (g!index (gensym))
+        (g!value (gensym)))
+    (values (list g!array g!index)
+            (list array index)
+            (list g!value)
+            `(aset ,g!array ,g!index ,g!value)
+            `(aref ,g!array ,g!index))))
+
 
 ;;; Vectors
 
 (defun vectorp (x)
   (and (arrayp x) (null (cdr (array-dimensions x)))))
 
+(defun vector (&rest objects)
+  (list-to-vector objects))
+
 ;;; FIXME: should take optional min-extension.
 ;;; FIXME: should use fill-pointer instead of the absolute end of array
 (defun vector-push-extend (new vector)