#(#! (lisp::in-package "CONDITIONS") #(conditions::*handler-clusters* "Ill-formed handler bindings." lisp::let lisp::cons lisp::list lisp::quote conditions::*break-on-signals* lisp::simple-condition conditions::signal "~A~%Break entered because of *BREAK-ON-SIGNALS*." "Ignore the additional arguments." lisp::simple-type-error :datum :expected-type lisp::null :format-string "You may not supply additional arguments ~ when giving ~S to ~S." :format-arguments (lisp::or lisp::symbol lisp::string) "Bad argument to ~S: ~S" conditions::simple-error conditions::error conditions::*restart-clusters* :name conditions::continue :function :report-function "~A" #:g2407 "Break" "Return from BREAK." #:g2459 lisp::simple-warning conditions::warn lisp::warning conditions::store-value "Supply a new value of ~S." lisp::condition :interactive-function "The value of ~S is ~S, ~ which is not ~A." "a warning condition" conditions::*condition-restarts* #:g2511 lisp::*break-on-warnings* "~A~%Break entered because of *BREAK-ON-WARNINGS*." conditions::muffle-warning "Skip warning." #:g2566 lisp::*error-output* "~&Warning:~%~A~%" :no-error "NORMAL-RETURN" "ERROR-RETURN" lisp::block lisp::multiple-value-call lisp::function lisp::lambda lisp::return-from conditions::handler-case lisp::tagbody conditions::handler-bind (conditions::temp) lisp::setq conditions::temp lisp::go lisp::progn (conditions::error (lisp::condition) (lisp::values lisp::nil lisp::condition)) system::*make-special lisp::nil lisp::every conditions::coerce-to-condition lisp::typep conditions::break conditions::conditionp conditions::cerror conditions::condition-class-p conditions::make-condition conditions::invoke-debugger conditions::make-restart conditions::read-evaluated-form conditions::find-restart lisp::remove (system::%init . #((system::setvv 68 (system::mc lisp::nil 15)) (system::mfsfun (lisp::quote #0=#:|progn 'compile2194|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2206|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2219|) 2 0) (#2#) (system::putprop (lisp::quote conditions::handler-bind) (lisp::quote 1) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote conditions::handler-bind) 3) (system::mfsfun (lisp::quote #3=#:|progn 'compile2257|) 4 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2269|) 5 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile2282|) 6 0) (#5#) (system::mfvfun (lisp::quote conditions::signal) 7 16385) (system::mf (lisp::quote conditions::coerce-to-condition) 8) (system::mf (lisp::quote conditions::error) 9) (system::mfvfun (lisp::quote conditions::cerror) 10 16386) (system::mfvfun (lisp::quote conditions::break) 11 16384) (system::mfvfun (lisp::quote conditions::warn) 12 16385) (system::mm (lisp::quote conditions::handler-case) 13) (system::mm (lisp::quote conditions::ignore-errors) 14) (system::debug (lisp::quote conditions::signal) (lisp::quote (conditions::*handler-clusters* conditions::handler))) (system::debug (lisp::quote conditions::coerce-to-condition) (lisp::quote (conditions::datum conditions::arguments conditions::default-type conditions::function-name))) (system::debug (lisp::quote conditions::error) (lisp::quote (conditions::datum conditions::arguments))) (system::debug (lisp::quote conditions::cerror) (lisp::quote (#:g2405 conditions::datum conditions::arguments))) (system::debug (lisp::quote conditions::break) (lisp::quote (#:g2457 conditions::format-arguments))) (system::debug (lisp::quote conditions::warn) (lisp::quote (#:g2509 conditions::arguments conditions::value)))))) )