home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / evalmacros.data < prev    next >
Encoding:
Text File  |  1994-05-10  |  2.1 KB  |  8 lines
  1.        
  2. #(#! 
  3. (lisp::in-package (lisp::quote user::lisp))#! 
  4. (lisp::export (lisp::quote (lisp::defvar lisp::defparameter lisp::defconstant)))#! 
  5. (lisp::in-package (lisp::quote lisp::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::>= system::find-doc (system::%init . #((system::warn-version 0) (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))))
  7. )
  8.