projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Special case in make-array for strings
[jscl.git]
/
src
/
array.lisp
diff --git
a/src/array.lisp
b/src/array.lisp
index
e3e1f2e
..
44ad0cf
100644
(file)
--- a/
src/array.lisp
+++ b/
src/array.lisp
@@
-25,8
+25,10
@@
(array (make-storage-vector size)))
;; Upgrade type
(if (eq element-type 'character)
(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)
(setf element-type t))
;; Initialize array
(dotimes (i size)