25 |
(in-package 'lisp) |
(in-package 'lisp) |
26 |
|
|
27 |
|
|
28 |
(export '(make-array vector |
(export '(make-array array-displacement vector |
29 |
array-element-type array-rank array-dimension |
array-element-type array-rank array-dimension |
30 |
array-dimensions |
array-dimensions |
31 |
array-in-bounds-p array-row-major-index |
array-in-bounds-p array-row-major-index |
64 |
(return v)))) |
(return v)))) |
65 |
t)))) |
t)))) |
66 |
|
|
67 |
|
;(defun array-displacement (array) |
68 |
|
; (let ((x (si:array-displacement1 array))) |
69 |
|
; (values (car x) (cdr x))) |
70 |
|
; ) |
71 |
|
|
72 |
(defun make-array (dimensions |
(defun make-array (dimensions |
73 |
&key (element-type t) |
&key (element-type t) |