Parent Directory | Revision Log | Patch
revision 1.2 by camm, Fri May 17 22:36:31 2002 UTC | revision 1.3 by camm, Wed May 22 20:14:51 2002 UTC | |
---|---|---|
# | Line 64 | Line 64 |
64 | (return v)))) | (return v)))) |
65 | t)))) | t)))) |
66 | ||
67 | (defun array-displacement (array) | ;(defun array-displacement (array) |
68 | (let ((x (si:array-displacement1 array))) | ; (let ((x (si:array-displacement1 array))) |
69 | (values (car x) (cdr x))) | ; (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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |