From: David Vázquez <davazp@gmail.com>
Date: Fri, 24 May 2013 01:44:38 +0000 (+0100)
Subject: array-element-type special case for strings
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4ddbd517a72846b6b595ee12d1b1167a0199db9d;p=jscl.git

array-element-type special case for strings
---

diff --git a/src/array.lisp b/src/array.lisp
index 4f4b690..e3e1f2e 100644
--- 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)