zl:1 - FTP

zl:array 28
I
hand, (array *) is the set of all arrays whatsoever, including for example
arrays that can hold only characters. (array character) is not a subset of
(array t); the two sets are in fact disjoint because (array character) is not
the set of all arrays that can hold characters, but rather the set of arrays
that are specialized to hold precisely characters and no other objects. To
test whether an array foo can hold a character, one should not use
but rather
Examples:
(typep faa '(array character»
(subtypep 'character (array-element-type faa»
(setq example-array (make-array '(3) :fill-pointer 2»
=> #
(typep example-array 'array) => T
(typep example-array 'simple-array) => NIL
; simple arrays do not have fill-pointers.
(zl :typep #*191) => :ARRAY
(subtypep 'array t) => T and T
(array-has-fill-pointer-p example-array) => T
(arrayp example-array) => T
(sys:type-arglist 'array)
=> (&OPTIONAL (ELEMENT-TYPE '*) (DIMENSIONS '*» and T
See the section "Data Types and Type Specifiers" in Symbolics Common
Lisp: Language Concepts.
See the section "Arrays" in Symbolics Common Lisp: Language Concepts.
zl:array x type &rest dimlist Macro
This creates an sys:art-q type array in sys:default-cons-area with the
given dimensions. (That is, dimlists is given to zl:make-array as its first
argument.) type is ignored. If x is nil, the array is returned; otherwise,
the array is put in the function cell of symbol, and symbol is returned.
This exists for Maclisp compatibility.
We suggest using make-array in new programs.
zl:*array x type &rest dimlist Function
This is just like zl:array, except that all of the arguments are evaluated.
It exists for Maclisp compatibility.