From 4ddbd517a72846b6b595ee12d1b1167a0199db9d Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 24 May 2013 02:44:38 +0100 Subject: [PATCH] array-element-type special case for strings --- src/array.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 1.7.10.4