zl:1 - FTP

337
make-symbol
; :element-type is ami tted, and : initial-element
; is a fat character. String is fat.
(string-fat-p (make-string 3 :initial-element #\hyper-super-a)) => T
I
; :initial-element is am it ted and
; :element-type is a subtype of character. Stri ng is tn, n.
(string-fat-p (make-string 4 :element-type 'string-char)) => NIL
; :initial-element is am it ted and
; :element-type is of type character. Stri ng is fat.
(string-fat-p (make-string 4 :element-type 'character)) => T
(make-array 5 :element-type 'string-char) =>
;returns a simple, thin string
(make-array 3 :element-type 'character :initial-element #\hyper-super-q)
=> "" ;returns a fat, simple string
(make-string 4 :area working-storage-area) => " .... "
For a table of related items: See the section "String Construction" in Symbolics
Common Lisp: Language Concepts.
make-symbol pname &optional permanent-p Function
Creates a new uninterned symbol whose print-name is the string pname.
The value and function bindings are unbound and the property list is
empty. If permanent-p is specified, it is assumed that the symbol is going
to be interned and probably kept around forever; in this case it and its
pname are put in the proper areas. If permanent-p is nil (the default), the
symbol goes in the default area and pname is not copied. permanent-p is
mostly for the use of intern itself.
Examples:
(make-symbol "FDD") => FDD
(make-symbol "Faa") => IFool
Note that the symbol is not interned; it is simply created and returned.
If a symbol has lowercase characters in its print-name, the printer quotes
the name using slashes or vertical bars. The vertical bars inhibit the Lisp
reader's normal action, which is to convert a symbol to uppercase upon
reading it. See the section "What the Printer Produces" in Reference
Guide to Streams, Files, and I/O.