type: system variable location: built-in source file: xlsym.c Common LISP compatible: no supported on: all machines
*OBARRAY* is the system variable that contains the system symbol table. This symbol table is an XLISP array that is constructed out of lists.
(defun lookin (sym) ; create a function to (aref *obarray* ; look inside *OBARRAY* (hash sym (length *obarray*)))); and look for a specific ; symbol - returns a list ; (lookin "CAR") ; returns (TEST PEEK CAR) (lookin "car") ; returns NIL
NOTE: When looking into *OBARRAY* or INTERNing symbols, remember that "car" and "CAR" are two different symbols in *OBARRAY*. Remember also that normal symbols created by XLISP are upper case names. So, if you type in "car" as a normal symbol, it will be the symbol "CAR" after this normal upper-casing operation.