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

diff --git a/src/array.lisp b/src/array.lisp
index 5f6d50e..150c70d 100644
--- a/src/array.lisp
+++ b/src/array.lisp
@@ -25,15 +25,17 @@
          (array (make-storage-vector size)))
     ;; Upgrade type
     (if (eq element-type 'character)
-        (setf element-type 'character
-              initial-element (or initial-element #\space))
+        (progn
+          (oset 1 array "stringp")
+          (setf element-type 'character
+                initial-element (or initial-element #\space)))
         (setf element-type t))
     ;; Initialize array
     (dotimes (i size)
       (storage-vector-set array i initial-element))
     ;; Record and return the object
-    (oset array "type" element-type)
-    (oset array "dimensions" dimensions)
+    (oset element-type array "type")
+    (oset dimensions array "dimensions")
     array))
 
 
@@ -48,7 +50,9 @@
 (defun array-element-type (array)
   (unless (arrayp array)
     (error "~S is not an array." array))
-  (oget array "type"))
+  (if (eq (oget array "stringp") 1)
+      'character
+      (oget array "type")))
 
 (defun array-dimensions (array)
   (unless (arrayp array)
@@ -78,8 +82,8 @@
 ;;; FIXME: should take optional min-extension.
 ;;; FIXME: should use fill-pointer instead of the absolute end of array
 (defun vector-push-extend (new vector)
-  (unless (vectorp array)
-    (error "~S is not a vector." array))  
+  (unless (vectorp vector)
+    (error "~S is not a vector." vector))  
   (let ((size (storage-vector-size vector)))
     (resize-storage-vector vector (1+ size))
     (aset vector size new)