zl:1 - FTP

263 g-I-p
Of course, globalize cannot cause two distinct symbols to become eq. Its
conflict resolution techniques are useful only for symbols that are used as
names for things like functions and variables, not for symbols that are used
for their own sake. You can sometimes get the desired effect by using one
of the conflicting symbols as the first argument to globalize, rather than
using a string.
For example, suppose a program in the color package deals with colors by
symbolic names, perhaps using zl:selectq to test for such symbols as red,
green, and yellow. Suppose there is also a function named red in the
math package and someone decides that this function is generally useful
and should be made global. Doing (globalize 'color:red) ensures that the
exported symbol is the one that the color program is looking for; this
means that every package except the math package sees the right symbol
to use if it wants to call the color program. Programs that call the red
function do not care which of the two symbols they use as the name of the
function, since both symbols have the same definition. Usually the situation
described in this example would not arise, because standard programming
style dictates that the color program should have been using
keywords for this application.
globalize returns two values. The first is the chosen symbol and the
second is a (possibly empty) list of all the symbols whose value, function,
and property cells were forwarded to the cells of the chosen symbol.
To disable the messages printed by globalize, bind zl:error-output to a
null stream (one that throws away all output). For example:
(let «zl : error-output 'si:null-stream»
(globalize 'rumpelstiltskin»
g-l-p array Function
If array has a fill pointer, g-l-p returns a list that stops at the fill pointer,
if you never modify the fill-pointer except with zl:array-push, zl:array-pop
and so on. array must be a general (sys:art-q-list) array. Example:
(setq a (zl :make-array 4 :type 'art-q-list»
(aref a 8) => nil
(setq b (g-l-p a» => (nil nil nil nil)
(setf (car b) t)
b => (t nil nil nil)
(aref a 8) => t
(setf (aref a 2) 38)
b => (t nil 38 nil)