projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
defmacro expansion uses eval-when
[jscl.git]
/
src
/
array.lisp
diff --git
a/src/array.lisp
b/src/array.lisp
index
db7ad21
..
a15b4eb
100644
(file)
--- a/
src/array.lisp
+++ b/
src/array.lisp
@@
-13,6
+13,8
@@
;; You should have received a copy of the GNU General Public License
;; along with JSCL. If not, see <http://www.gnu.org/licenses/>.
;; You should have received a copy of the GNU General Public License
;; along with JSCL. If not, see <http://www.gnu.org/licenses/>.
+(/debug "loading array.lisp!")
+
(defun upgraded-array-element-type (typespec &optional environment)
(declare (ignore environment))
(if (eq typespec 'character)
(defun upgraded-array-element-type (typespec &optional environment)
(declare (ignore environment))
(if (eq typespec 'character)
@@
-90,12
+92,7
@@
(and (arrayp x) (null (cdr (array-dimensions x)))))
(defun vector (&rest objects)
(and (arrayp x) (null (cdr (array-dimensions x)))))
(defun vector (&rest objects)
- (let* ((length (length objects))
- (array (make-array length :element-type t))
- (i 0))
- (dolist (element objects array) ;; poor-man's :initial-contents
- (aset array i element)
- (incf i))))
+ (list-to-vector objects))
;;; FIXME: should take optional min-extension.
;;; FIXME: should use fill-pointer instead of the absolute end of array
;;; FIXME: should take optional min-extension.
;;; FIXME: should use fill-pointer instead of the absolute end of array