#(#! (lisp::in-package (lisp::quote user::lisp))#! (lisp::export (lisp::quote (lisp::find-all-symbols lisp::do-symbols lisp::do-external-symbols lisp::do-all-symbols lisp::with-package-iterator)))#! (lisp::export (lisp::quote (lisp::apropos lisp::apropos-list)))#! (lisp::in-package (lisp::quote lisp::system)) #(lisp::*package* lisp::let lisp::if lisp::packagep lisp::find-package lisp::string :internal :external system::coerce-to-package lisp::dolist lisp::cons lisp::package-use-list lisp::progn lisp::setq lisp::multiple-value-bind system::package-size lisp::declare lisp::fixnum lisp::not lisp::eq lisp::dotimes lisp::+ lisp::< system::package-internal system::package-external lisp::- lisp::when lisp::null lisp::go lisp::car lisp::or :inherited lisp::last lisp::multiple-value-list lisp::find-symbol lisp::symbol-name lisp::tagbody lisp::cdr system::.v (lisp::list-all-packages) lisp::do-symbols :start2 :end2 :test :key :too-few-arguments "Symbol type specifiers must be supplied" lisp::atom lisp::list lisp::flet lisp::eql lisp::incf lisp::return-from lisp::rplaca lisp::member lisp::rplacd lisp::multiple-value-setq lisp::and lisp::zerop lisp::values (lisp::quote lisp::t) system::find-declarations system::substringp lisp::delete-duplicates lisp::string< lisp::stable-sort lisp::apropos-list system::print-symbol-apropos lisp::specific-error (system::%init . #((lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (system::mm (lisp::quote system::coerce-to-package) 0) (system::mfsfun (lisp::quote lisp::find-all-symbols) 1 1) (system::mm (lisp::quote lisp::do-symbols) 2) (system::mm (lisp::quote lisp::do-external-symbols) 3) (system::mm (lisp::quote lisp::do-all-symbols) 4) (system::mfsfun (lisp::quote system::substringp) 5 2) (system::mfsfun (lisp::quote system::print-symbol-apropos) 6 1) (system::mfvfun (lisp::quote lisp::apropos-list) 7 513) (system::mf (lisp::quote lisp::apropos) 8) (system::mm (lisp::quote lisp::with-package-iterator) 9)))) )