37 lines
616 B
Common Lisp
37 lines
616 B
Common Lisp
;; Test comment
|
|
((NIL . NIL)
|
|
(T . T)
|
|
;; many functions return 'F on fail, but to make this mean fail I'm binding
|
|
;; it to NIL
|
|
(F . NIL)
|
|
;; Binding all system functions to NIL so that you can see on the OBLIST that
|
|
;; they exist.
|
|
(ADD1 . NIL)
|
|
(AND . NIL)
|
|
(APPEND . NIL)
|
|
(APPLY . NIL)
|
|
(ATOM . NIL)
|
|
(CAR . NIL)
|
|
(CDR . NIL)
|
|
(CONS . NIL)
|
|
(DEFINE . NIL)
|
|
(DIFFERENCE . NIL)
|
|
(EQ . NIL)
|
|
(EQUAL . NIL)
|
|
(EVAL)
|
|
(FIXP . NIL)
|
|
(INTEROP . NIL)
|
|
(NUMBERP . NIL)
|
|
(OBLIST . NIL)
|
|
(PLUS . NIL)
|
|
(PRETTY . NIL)
|
|
(QUOTIENT . NIL)
|
|
(READ . NIL)
|
|
(REMAINDER)
|
|
(RPLACA . NIL)
|
|
(RPLACD . NIL)
|
|
(SET . NIL)
|
|
(SYSIN . NIL)
|
|
(SYSOUT . NIL)
|
|
(TIMES . NIL)
|
|
) |