#(#! (lisp::in-package "CONDITIONS") #(conditions::*unique-id-table* conditions::*unique-id-count* lisp::&rest "&REST keyword is ~:[missing~;misplaced~]." "KEYWORD" lisp::multiple-value-bind conditions::parse-keyword-pairs lisp::quote lisp::let lisp::getf conditions::*restart-clusters* lisp::*print-escape* "#<~S.~D>" conditions::restart conditions::restart- ((conditions::name lisp::nil lisp::t lisp::nil 0) (lisp::function lisp::nil lisp::t lisp::nil 1) (conditions::report-function lisp::nil lisp::t lisp::nil 2) (conditions::interactive-function lisp::nil lisp::t lisp::nil 3)) conditions::copy-restart conditions::restart-print (conditions::make-restart) conditions::restart-p conditions::*kcl-top-restarts* :name conditions::abort :function :report-function system::*quit-tag* system::*break-level* system::*quit-tags* :key (:not-found) :not-found "Return to ? level." "Return to top level." "Return to break level ~D." :interactive-function "~S" "~S" lisp::cons lisp::list conditions::make-restart "Restart ~S is not active." "Restart ~S is not active." (:report :interactive) :report :interactive lisp::block lisp::tagbody conditions::restart-bind lisp::function lisp::lambda (lisp::&rest conditions::temp) lisp::setq conditions::temp lisp::go lisp::return-from lisp::apply (lisp::stream) lisp::write-string lisp::stream conditions::restart-case lisp::progn (lisp::stream) lisp::format (lisp::values lisp::nil lisp::t) conditions::abort-failure conditions::continue conditions::muffle-warning conditions::store-value conditions::use-value system::*make-special conditions::error conditions::kcl-top-restarts conditions::unique-id conditions::restart-report system::define-structure conditions::make-kcl-top-restart conditions::find-kcl-top-restart conditions::find-restart conditions::invoke-restart lisp::cdr lisp::find (system::%init . #((system::mfsfun (lisp::quote #0=#:|progn 'compile1788|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile1788|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile1789|) 2 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile1789|) 3 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile1789|) 4 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile1790|) 5 0) (#5#) (system::putprop (lisp::quote conditions::unique-id) "Generates a unique integer ID for its argument." (lisp::quote system::function-documentation)) (system::mf (lisp::quote conditions::unique-id) 6) (system::mf (lisp::quote conditions::parse-keyword-pairs) 7) (system::putprop (lisp::quote conditions::with-keyword-pairs) (lisp::quote 1) #6=(lisp::quote system::pretty-print-format)) (system::mm (lisp::quote conditions::with-keyword-pairs) 8) (system::mfsfun (lisp::quote #7=#:|progn 'compile1799|) 9 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile1799|) 10 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile1800|) 11 0) (#9#) (system::mf (lisp::quote conditions::compute-restarts) 12) (system::mf (lisp::quote conditions::restart-print) 13) (system::mfsfun (lisp::quote #10=#:|progn 'compile1800|) 14 0) (#10#) (system::mf (lisp::quote conditions::make-restart) 15) (system::mfsfun (lisp::quote #11=#:|progn 'compile1800|) 16 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile1800|) 17 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile1800|) 18 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile1801|) 19 0) (#14#) (system::mf (lisp::quote conditions::make-kcl-top-restart) 20) (system::mf (lisp::quote conditions::find-kcl-top-restart) 21) (system::mf (lisp::quote conditions::kcl-top-restarts) 22) (system::mf (lisp::quote conditions::restart-report) 23) (system::putprop (lisp::quote conditions::restart-bind) (lisp::quote 1) #6#) (system::mm (lisp::quote conditions::restart-bind) 24) (system::mf (lisp::quote conditions::find-restart) 25) (system::mf (lisp::quote conditions::invoke-restart) 26) (system::mf (lisp::quote conditions::invoke-restart-interactively) 27) (system::putprop (lisp::quote conditions::restart-case) (lisp::quote 1) #6#) (system::mm (lisp::quote conditions::restart-case) 28) (system::putprop (lisp::quote conditions::with-simple-restart) (lisp::quote 1) #6#) (system::mm (lisp::quote conditions::with-simple-restart) 29) (system::mf (lisp::quote conditions::abort) 30) (system::mf (lisp::quote conditions::continue) 31) (system::mf (lisp::quote conditions::muffle-warning) 32) (system::mf (lisp::quote conditions::store-value) 33) (system::mf (lisp::quote conditions::use-value) 34)))) )