1 |
|
|
2 |
|
#(#! |
3 |
|
(lisp::in-package "LISP")#! |
4 |
|
(lisp::export (lisp::quote (lisp::defvar lisp::defparameter lisp::defconstant)))#! |
5 |
|
(lisp::in-package "SYSTEM") |
6 |
|
#(lisp::progn system::*make-special lisp::quote system::putprop (lisp::quote system::variable-documentation) lisp::or lisp::boundp lisp::setq (lisp::quote system::variable-documentation) system::*make-constant (lisp::quote system::variable-documentation) lisp::if lisp::let lisp::block lisp::tagbody lisp::go system::define-macro system::defmacro* lisp::setf lisp::get (lisp::quote system::function-documentation) lisp::symbol-function lisp::function lisp::lambda lisp::let* lisp::not lisp::declare lisp::multiple-value-call (lisp::quote lisp::list) lisp::multiple-value-list lisp::nth lisp::return lisp::psetq lisp::otherwise lisp::member lisp::eql lisp::return-from lisp::do* lisp::cdr lisp::car lisp::endp lisp::1+ lisp::>= lisp::eval-when (lisp::compile lisp::eval lisp::load) lisp::proclaim system::find-doc (system::%init . #((system::mm (lisp::quote lisp::defvar) 0) (system::mm (lisp::quote lisp::defparameter) 1) (system::mm (lisp::quote lisp::defconstant) 2) (system::mm (lisp::quote lisp::and) 3) (system::mm (lisp::quote lisp::or) 4) (system::mm (lisp::quote lisp::locally) 5) (system::mm (lisp::quote lisp::loop) 6) (system::mm (lisp::quote lisp::defmacro) 7) (system::mm (lisp::quote lisp::defun) 8) (system::mm (lisp::quote lisp::psetq) 9) (system::mm (lisp::quote lisp::cond) 10) (system::mm (lisp::quote lisp::when) 11) (system::mm (lisp::quote lisp::unless) 12) (system::mm (lisp::quote lisp::prog) 13) (system::mm (lisp::quote lisp::prog*) 14) (system::mm (lisp::quote lisp::prog1) 15) (system::mm (lisp::quote lisp::prog2) 16) (system::mm (lisp::quote lisp::multiple-value-list) 17) (system::mm (lisp::quote lisp::multiple-value-setq) 18) (system::mm (lisp::quote lisp::multiple-value-bind) 19) (system::mm (lisp::quote lisp::do) 20) (system::mm (lisp::quote lisp::do*) 21) (system::mm (lisp::quote lisp::case) 22) (system::mm (lisp::quote lisp::return) 23) (system::mm (lisp::quote lisp::dolist) 24) (system::mm (lisp::quote lisp::dotimes) 25) (system::mm (lisp::quote lisp::declaim) 26) (system::mm (lisp::quote lisp::lambda) 27)))) |
7 |
|
) |