X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Farray.lisp;h=44ad0cf9aaf3a7543b2356afa0cbaa33f981d289;hb=7f3039a70ef9faf8666076af4af55dad942cc22f;hp=e3e1f2e6b7f348054d8ebd45df76298270bb2e42;hpb=4ddbd517a72846b6b595ee12d1b1167a0199db9d;p=jscl.git

diff --git a/src/array.lisp b/src/array.lisp
index e3e1f2e..44ad0cf 100644
--- a/src/array.lisp
+++ b/src/array.lisp
@@ -25,8 +25,10 @@
          (array (make-storage-vector size)))
     ;; Upgrade type
     (if (eq element-type 'character)
-        (setf element-type 'character
-              initial-element (or initial-element #\space))
+        (progn
+          (oset array "stringp" 1)
+          (setf element-type 'character
+                initial-element (or initial-element #\space)))
         (setf element-type t))
     ;; Initialize array
     (dotimes (i size)