Below is the lispinit file used by the LISP Interpreter program. This text file contains the definitions of various LISP functions that are part of GOVOL LISP, but which are provided by just “reading” them from this file and establishing them by executing the SETQ expressions given herein rather than hard-coding them into the LISP Interpreter.
/filename: ∼/lisp/lispinit revision date: October 15, 1988
(SETQ APPEND (LAMBDA (X Y) (COND ((EQ X NIL) Y)
((ATOM X) (CONS X Y))
(T (CONS (CAR X) (APPEND (CDR X) Y)) )) ))
(SETQ ...