This package defines several symbol-related features that were missing from Emacs Lisp.
These functions augment the standard Emacs Lisp functions get
and put
for operating on properties attached to symbols.
There are also functions for working with property lists as
first-class data structures not attached to particular symbols.
get
, except that if the property is
not found, the default argument provides the return value.
(The Emacs Lisp get
function always uses nil
as
the default; this package's get*
is equivalent to Common
Lisp's get
.)
The get*
function is setf
-able; when used in this
fashion, the default argument is allowed but ignored.
nil
if there was no such property.
(This function was probably omitted from Emacs originally because,
since get
did not allow a default, it was very difficult
to distinguish between a missing property and a property whose value
was nil
; thus, setting a property to nil
was close
enough to remprop
for most purposes.)
eq
to property, the following odd-numbered element is returned.
Otherwise, default is returned (or nil
if no default
is given).
In particular,
(get sym prop) == (getf (symbol-plist sym) prop)
It is legal to use getf
as a setf
place, in which case
its place argument must itself be a legal setf
place.
The default argument, if any, is ignored in this context.
The effect is to change (via setcar
) the value cell in the
list that corresponds to property, or to cons a new property-value
pair onto the list if the property is not yet present.
(put sym prop val) == (setf (getf (symbol-plist sym) prop) val)
The get
and get*
functions are also setf
-able.
The fact that default
is ignored can sometimes be useful:
(incf (get* 'foo 'usage-count 0))
Here, symbol foo
's usage-count
property is incremented
if it exists, or set to 1 (an incremented 0) otherwise.
When not used as a setf
form, getf
is just a regular
function and its place argument can actually be any Lisp
expression.
setf
-able
place expression. It returns true if the property was found. Note
that if property happens to be first on the list, this will
effectively do a (setf place (cddr place))
,
whereas if it occurs later, this simply uses setcdr
to splice
out the property and value cells.
@secno=2
These functions create unique symbols, typically for use as temporary variables.
make-symbol
)
with a unique name. (The name of an uninterned symbol is relevant
only if the symbol is printed.) By default, the name is generated
from an increasing sequence of numbers, `G1000', `G1001',
`G1002', etc. If the optional argument x is a string, that
string is used as a prefix instead of `G'. Uninterned symbols
are used in macro expansions for temporary variables, to ensure that
their names will not conflict with "real" variables in the user's
code.
gensym
names.
It is incremented after each use by gensym
. In Common Lisp
this is initialized with 0, but this package initializes it with a
random (time-dependent) value to avoid trouble when two files that
each used gensym
in their compilation are loaded together.
(Uninterned symbols become interned when the compiler writes them
out to a file and the Emacs loader loads them, so their names have to
be treated a bit more carefully than in Common Lisp where uninterned
symbols remain uninterned after loading.)
gensym
, except that it produces a new
interned symbol. If the symbol that is generated already
exists, the function keeps incrementing the counter and trying
again until a new symbol is generated.
The Quiroz `cl.el' package also defined a defkeyword
form for creating self-quoting keyword symbols. This package
automatically creates all keywords that are called for by
&key
argument specifiers, and discourages the use of
keywords as data unrelated to keyword arguments, so the
defkeyword
form has been discontinued.
@chapno=11
Go to the first, previous, next, last section, table of contents.