30 |
array-dimensions |
array-dimensions |
31 |
array-in-bounds-p array-row-major-index |
array-in-bounds-p array-row-major-index |
32 |
adjustable-array-p |
adjustable-array-p |
33 |
bit sbit |
bit sbit |
34 |
bit-and bit-ior bit-xor bit-eqv bit-nand bit-nor |
bit-and bit-ior bit-xor bit-eqv bit-nand bit-nor |
35 |
bit-andc1 bit-andc2 bit-orc1 bit-orc2 bit-not |
bit-andc1 bit-andc2 bit-orc1 bit-orc2 bit-not |
36 |
array-has-fill-pointer-p fill-pointer |
array-has-fill-pointer-p fill-pointer |
37 |
vector-push vector-push-extend vector-pop |
vector-push vector-push-extend vector-pop |
38 |
adjust-array)) |
adjust-array upgraded-array-element-type)) |
|
|
|
39 |
|
|
40 |
(in-package 'system) |
(in-package 'system) |
41 |
|
|
63 |
(return v)))) |
(return v)))) |
64 |
t)))) |
t)))) |
65 |
|
|
66 |
|
(defun upgraded-array-element-type (type &optional environment) |
67 |
|
(declare (ignore environment)) |
68 |
|
(best-array-element-type type)) |
69 |
|
|
70 |
;(defun array-displacement (array) |
;(defun array-displacement (array) |
71 |
; (let ((x (si:array-displacement1 array))) |
; (let ((x (si:array-displacement1 array))) |
72 |
; (values (car x) (cdr x))) |
; (values (car x) (cdr x))) |