#(#! (lisp::in-package (lisp::quote user::lisp))#! (lisp::export (lisp::quote (lisp::&whole lisp::&environment lisp::&body)))#! (lisp::in-package (lisp::quote lisp::system)) #(lisp::&environment system::*dl* system::*key-check* system::*arg-check* lisp::&rest "The defmacro-lambda-list ~s is not a list." lisp::&whole lisp::&aux lisp::unless lisp::getf :allow-other-keys lisp::do system::vl (lisp::cddr system::vl) ((lisp::endp system::vl)) lisp::member (lisp::car system::vl) lisp::quote (system::dm-key-not-allowed (lisp::car system::vl)) lisp::endp (system::dm-too-many-arguments) lisp::declare lisp::ignore lisp::lambda-block lisp::&optional lisp::&body lisp::&key lisp::&allow-other-keys lisp::keyword (lisp::quote system::failed) lisp::if lisp::eq (lisp::quote system::failed) lisp::not (lisp::quote system::failed) lisp::null (system::dm-too-few-arguments) lisp::cddddr 0 lisp::car 1 lisp::cadr 2 lisp::caddr 3 lisp::cadddr lisp::cdr lisp::cddr lisp::cdddr "Defmacro-lambda-list contains illegal use of ~s." "Too few arguments are supplied to defmacro-lambda-list." "Too many arguments are supplied to defmacro-lambda-list." "The key ~s is not allowed." system::find-doc system::get-&environment system::dm-vl system::dm-nth-cdr system::dm-bad-key system::dm-v system::dm-nth system::find-declarations (system::%init . #((lisp::mapc (lisp::quote system::*make-special) (lisp::quote (system::*dl* system::*key-check* system::*arg-check*))) (system::mf (lisp::quote system::get-&environment) 0) (system::mfsfun (lisp::quote system::defmacro*) 1 3) (system::mfsfun (lisp::quote system::dm-vl) 2 3) (system::mfsfun (lisp::quote system::dm-v) 3 2) (system::mfsfun (lisp::quote system::dm-nth) 4 2) (system::mfsfun (lisp::quote system::dm-nth-cdr) 5 2) (system::mfsfun (lisp::quote system::dm-bad-key) 6 1) (system::mfsfun (lisp::quote system::dm-too-few-arguments) 7 0) (system::mfsfun (lisp::quote system::dm-too-many-arguments) 8 0) (system::mfsfun (lisp::quote system::dm-key-not-allowed) 9 1) (system::mf (lisp::quote system::find-doc) 10) (system::mf (lisp::quote system::find-declarations) 11)))) )