array-element-type special case for strings

diff --git a/src/array.lisp b/src/array.lisp
index 4f4b690..e3e1f2e 100644 (file)
--- a/src/array.lisp
+++ b/src/array.lisp
@@ -48,7 +48,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)