home *** CD-ROM | disk | FTP | other *** search
-
- #(
- #!
- (lisp::in-package 'user::lisp)
- #!
- (lisp::export '(lisp::find-all-symbols lisp::do-symbols lisp::do-external-symbols lisp::do-all-symbols))
- #!
- (lisp::export '(lisp::apropos lisp::apropos-list))
- #!
- (lisp::in-package 'lisp::system)
- (lisp::optimize (lisp::safety 2) (lisp::space 3))
- lisp::*package*
- lisp::let
- lisp::if
- lisp::packagep
- lisp::find-package
- lisp::string
- :internal
- :external
- system::coerce-to-package
- lisp::dotimes
- 1024
- lisp::progn
- lisp::setq
- lisp::<
- 512
- system::package-internal
- system::package-external
- lisp::-
- lisp::when
- lisp::null
- lisp::go
- lisp::car
- lisp::cdr
- lisp::do
- (lisp::list-all-packages)
- (0 0)
- lisp::>=
- lisp::1+
- 0
- :start2
- :end2
- lisp::proclaim
- lisp::find-all-symbols
- lisp::do-symbols
- lisp::do-external-symbols
- lisp::do-all-symbols
- system::substringp
- system::print-symbol-apropos
- lisp::apropos
- lisp::apropos-list
- system::find-declarations
- )
-