#(#! (lisp::in-package "CONDITIONS") #(:clos-conditions lisp::*features* :defstruct-conditions (conditions::simple-condition-format-string conditions::simple-condition-format-arguments conditions::type-error-datum conditions::type-error-expected-type conditions::case-failure-name conditions::case-failure-possibilities conditions::stream-error-stream conditions::file-error-pathname conditions::package-error-package conditions::cell-error-name conditions::arithmetic-error-operation conditions::internal-error-function-name) lisp::warning lisp::standard-class (lisp::condition) (lisp::warning (lisp::condition)) conditions::*condition-class-list* system::s-data lisp::serious-condition (lisp::condition) (lisp::serious-condition (lisp::condition)) conditions::error (lisp::serious-condition) (conditions::error (lisp::serious-condition)) lisp::simple-condition (lisp::condition) :name conditions::format-string :readers (conditions::simple-condition-format-string) :writers :initargs (:format-string) (:type lisp::string) :initfunction conditions::format-arguments (conditions::simple-condition-format-arguments) (:format-arguments) (:initform (lisp::quote lisp::nil)) (lisp::simple-condition (lisp::condition) (:format-string . lisp::string) (:format-arguments . lisp::t)) pcl::print-object ((conditions::x lisp::simple-condition) lisp::stream) lisp::*print-escape* pcl::fast-method-call lisp::nil pcl::std-instance pcl::*funcallable-instance-marker* pcl::method-call conditions::case-failure conditions::etypecase :datum :expected-type (lisp::or . #0=(pcl::method-call lisp::function)) :possibilities #0# lisp::nil (lisp::or . #1=(pcl::method-call lisp::function)) #1# ((pcl::print-object lisp::nil (lisp::simple-condition lisp::t))) lisp::standard-method (lisp::simple-condition lisp::t) (conditions::x lisp::stream) :fast-function (:plist (:arg-info (2))) lisp::simple-warning (lisp::simple-condition lisp::warning) (lisp::simple-warning (lisp::simple-condition lisp::warning)) conditions::simple-error (lisp::simple-condition conditions::error) (conditions::simple-error (lisp::simple-condition conditions::error)) lisp::storage-condition (lisp::serious-condition) (lisp::storage-condition (lisp::serious-condition)) conditions::stack-overflow (lisp::storage-condition) (conditions::stack-overflow (lisp::storage-condition)) conditions::storage-exhausted (lisp::storage-condition) (conditions::storage-exhausted (lisp::storage-condition)) lisp::type-error (conditions::error) conditions::datum (conditions::type-error-datum) (:datum) conditions::expected-type (conditions::type-error-expected-type) (:expected-type) (lisp::type-error (conditions::error) (:datum . lisp::t) (:expected-type . lisp::t)) ((conditions::x lisp::type-error) lisp::stream) "~S is not of type ~S." lisp::nil (lisp::or . #2=(pcl::method-call lisp::function)) #2# lisp::nil (lisp::or . #3=(pcl::method-call lisp::function)) #3# ((pcl::print-object lisp::nil (lisp::type-error lisp::t))) (lisp::type-error lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) lisp::simple-type-error (lisp::simple-condition lisp::type-error) (lisp::simple-type-error (lisp::simple-condition lisp::type-error)) (lisp::type-error) conditions::name (conditions::case-failure-name) (:name) conditions::possibilities (conditions::case-failure-possibilities) (:possibilities) (conditions::case-failure (lisp::type-error) (:name . lisp::t) (:possibilities . lisp::t)) ((conditions::x conditions::case-failure) lisp::stream) "~S fell through ~S expression.~%Wanted one of ~:S." lisp::nil (lisp::or . #4=(pcl::method-call lisp::function)) #4# lisp::nil (lisp::or . #5=(pcl::method-call lisp::function)) #5# ((pcl::print-object lisp::nil (conditions::case-failure lisp::t))) (conditions::case-failure lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) lisp::program-error (conditions::error) (lisp::program-error (conditions::error)) lisp::control-error (conditions::error) (lisp::control-error (conditions::error)) lisp::parse-error (conditions::error) (lisp::parse-error (conditions::error)) lisp::stream-error (conditions::error) lisp::stream (conditions::stream-error-stream) (:stream) (lisp::stream-error (conditions::error) (:stream . lisp::t)) lisp::end-of-file (lisp::stream-error) (lisp::end-of-file (lisp::stream-error)) ((conditions::x lisp::end-of-file) lisp::stream) "Unexpected end of file on ~S." lisp::nil (lisp::or . #6=(pcl::method-call lisp::function)) #6# lisp::nil (lisp::or . #7=(pcl::method-call lisp::function)) #7# ((pcl::print-object lisp::nil (lisp::end-of-file lisp::t))) (lisp::end-of-file lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) lisp::file-error (conditions::error) lisp::pathname (conditions::file-error-pathname) (:pathname) (lisp::file-error (conditions::error) (:pathname . lisp::t)) lisp::package-error (conditions::error) lisp::package (conditions::package-error-package) (:package) conditions::message (conditions::package-error-message) (:message) (lisp::package-error (conditions::error) (:package . lisp::t) (:message . lisp::t)) ((conditions::x lisp::package-error) lisp::stream) "A package error occurred on ~S: ~S." lisp::nil (lisp::or . #8=(pcl::method-call lisp::function)) #8# lisp::nil (lisp::or . #9=(pcl::method-call lisp::function)) #9# ((pcl::print-object lisp::nil (lisp::package-error lisp::t))) (lisp::package-error lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) lisp::cell-error (conditions::error) (conditions::cell-error-name) (:name) (lisp::cell-error (conditions::error) (:name . lisp::t)) lisp::unbound-variable (lisp::cell-error) (lisp::unbound-variable (lisp::cell-error)) ((conditions::x lisp::unbound-variable) lisp::stream) "The variable ~S is unbound." lisp::nil (lisp::or . #10=(pcl::method-call lisp::function)) #10# lisp::nil (lisp::or . #11=(pcl::method-call lisp::function)) #11# ((pcl::print-object lisp::nil (lisp::unbound-variable lisp::t))) (lisp::unbound-variable lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) lisp::undefined-function (lisp::cell-error) (lisp::undefined-function (lisp::cell-error)) ((conditions::x lisp::undefined-function) lisp::stream) "The function ~S is undefined." lisp::nil (lisp::or . #12=(pcl::method-call lisp::function)) #12# lisp::nil (lisp::or . #13=(pcl::method-call lisp::function)) #13# ((pcl::print-object lisp::nil (lisp::undefined-function lisp::t))) (lisp::undefined-function lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) lisp::arithmetic-error (conditions::error) conditions::operation (conditions::arithmetic-error-operation) (:operation) (lisp::arithmetic-error (conditions::error) (:operation . lisp::t)) lisp::division-by-zero (lisp::arithmetic-error) (lisp::division-by-zero (lisp::arithmetic-error)) lisp::floating-point-overflow (lisp::arithmetic-error) (lisp::floating-point-overflow (lisp::arithmetic-error)) lisp::floating-point-underflow (lisp::arithmetic-error) (lisp::floating-point-underflow (lisp::arithmetic-error)) conditions::abort-failure (lisp::control-error) (conditions::abort-failure (lisp::control-error)) ((conditions::x conditions::abort-failure) lisp::stream) "Abort failed." lisp::nil (lisp::or . #14=(pcl::method-call lisp::function)) #14# lisp::nil (lisp::or . #15=(pcl::method-call lisp::function)) #15# ((pcl::print-object lisp::nil (conditions::abort-failure lisp::t))) (conditions::abort-failure lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) conditions::internal-warning (lisp::warning) conditions::function-name (conditions::internal-error-function-name) (:function-name) (:initform (lisp::quote lisp::nil)) (conditions::internal-warning (lisp::warning) (:function-name . lisp::t)) ((conditions::x conditions::internal-warning) lisp::stream) "Warning in ~S [or a callee]: " lisp::nil (lisp::or . #16=(pcl::method-call lisp::function)) #16# lisp::nil (lisp::or . #17=(pcl::method-call lisp::function)) #17# ((pcl::print-object lisp::nil (conditions::internal-warning lisp::t))) (conditions::internal-warning lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) conditions::internal-error (conditions::error) (conditions::internal-error-function-name) (:function-name) (:initform (lisp::quote lisp::nil)) (conditions::internal-error (conditions::error) (:function-name . lisp::t)) ((conditions::x conditions::internal-error) lisp::stream) "Error in ~S [or a callee]: " lisp::nil (lisp::or . #18=(pcl::method-call lisp::function)) #18# lisp::nil (lisp::or . #19=(pcl::method-call lisp::function)) #19# ((pcl::print-object lisp::nil (conditions::internal-error lisp::t))) (conditions::internal-error lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) "Error in ~S [or a callee]: " "Warning in ~S [or a callee]: " conditions::internal-simple-error (conditions::internal-error lisp::simple-condition) (conditions::internal-simple-error (conditions::internal-error lisp::simple-condition)) ((conditions::x conditions::internal-simple-error) lisp::stream) lisp::nil (lisp::or . #20=(pcl::method-call lisp::function)) #20# lisp::nil (lisp::or . #21=(pcl::method-call lisp::function)) #21# ((pcl::print-object lisp::nil (conditions::internal-simple-error lisp::t))) (conditions::internal-simple-error lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) conditions::internal-simple-warning (conditions::internal-warning lisp::simple-condition) (conditions::internal-simple-warning (conditions::internal-warning lisp::simple-condition)) ((conditions::x conditions::internal-simple-warning) lisp::stream) lisp::nil (lisp::or . #22=(pcl::method-call lisp::function)) #22# lisp::nil (lisp::or . #23=(pcl::method-call lisp::function)) #23# ((pcl::print-object lisp::nil (conditions::internal-simple-warning lisp::t))) (conditions::internal-simple-warning lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2))) conditions::internal-type-error (conditions::internal-error lisp::type-error) (conditions::internal-type-error (conditions::internal-error lisp::type-error)) conditions::internal-package-error (conditions::internal-error lisp::package-error) (conditions::internal-package-error (conditions::internal-error lisp::package-error)) conditions::internal-simple-program-error (conditions::internal-simple-error lisp::program-error) (conditions::internal-simple-program-error (conditions::internal-simple-error lisp::program-error)) conditions::internal-simple-parse-error (conditions::internal-simple-error lisp::parse-error) (conditions::internal-simple-parse-error (conditions::internal-simple-error lisp::parse-error)) conditions::internal-simple-control-error (conditions::internal-simple-error lisp::control-error) (conditions::internal-simple-control-error (conditions::internal-simple-error lisp::control-error)) conditions::internal-unbound-variable (conditions::internal-error lisp::unbound-variable) (conditions::internal-unbound-variable (conditions::internal-error lisp::unbound-variable)) conditions::internal-undefined-function (conditions::internal-error lisp::undefined-function) (conditions::internal-undefined-function (conditions::internal-error lisp::undefined-function)) conditions::internal-end-of-file (conditions::internal-error lisp::end-of-file) (conditions::internal-end-of-file (conditions::internal-error lisp::end-of-file)) conditions::internal-simple-file-error (conditions::internal-simple-error lisp::file-error) (conditions::internal-simple-file-error (conditions::internal-simple-error lisp::file-error)) conditions::internal-simple-stream-error (conditions::internal-simple-error lisp::stream-error) (conditions::internal-simple-stream-error (conditions::internal-simple-error lisp::stream-error)) conditions::*simple-condition-class* lisp::remove pcl::load-defclass #24=#:|Defclass WARNING2261| #25=#:|Defclass SERIOUS-CONDITION2350| #26=#:|Defclass ERROR2439| conditions::simple-condition-format-string conditions::simple-condition-format-arguments pcl::false #27=#:|Defclass SIMPLE-CONDITION2536| pcl::proclaim-defgeneric conditions::simple-condition-printer conditions::|(PCL::FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T))| pcl::load-defmethod #28=#:|Defclass SIMPLE-WARNING2978| #29=#:|Defclass SIMPLE-ERROR3067| #30=#:|Defclass STORAGE-CONDITION3156| #31=#:|Defclass STACK-OVERFLOW3245| #32=#:|Defclass STORAGE-EXHAUSTED3334| #33=#:|Defclass TYPE-ERROR3423| conditions::type-error-datum conditions::type-error-expected-type conditions::|(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T))| #34=#:|Defclass SIMPLE-TYPE-ERROR3873| #35=#:|Defclass CASE-FAILURE3962| conditions::case-failure-name conditions::case-failure-possibilities conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))| #36=#:|Defclass PROGRAM-ERROR4412| #37=#:|Defclass CONTROL-ERROR4501| #38=#:|Defclass PARSE-ERROR4590| #39=#:|Defclass STREAM-ERROR4679| #40=#:|Defclass END-OF-FILE4769| conditions::stream-error-stream conditions::|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))| #41=#:|Defclass FILE-ERROR5217| #42=#:|Defclass PACKAGE-ERROR5307| conditions::package-error-package conditions::package-error-message conditions::|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))| #43=#:|Defclass CELL-ERROR5757| #44=#:|Defclass UNBOUND-VARIABLE5847| conditions::cell-error-name conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))| #45=#:|Defclass UNDEFINED-FUNCTION6295| conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))| #46=#:|Defclass ARITHMETIC-ERROR6743| #47=#:|Defclass DIVISION-BY-ZERO6833| #48=#:|Defclass FLOATING-POINT-OVERFLOW6922| #49=#:|Defclass FLOATING-POINT-UNDERFLOW7011| #50=#:|Defclass ABORT-FAILURE7100| conditions::|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))| #51=#:|Defclass INTERNAL-WARNING7556| conditions::internal-error-function-name conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-WARNING T))| #52=#:|Defclass INTERNAL-ERROR8013| conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))| #53=#:|Defclass INTERNAL-SIMPLE-ERROR8494| conditions::internal-simple-error-printer conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))| #54=#:|Defclass INTERNAL-SIMPLE-WARNING8934| conditions::internal-simple-warning-printer conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-WARNING T))| #55=#:|Defclass INTERNAL-TYPE-ERROR9374| #56=#:|Defclass INTERNAL-PACKAGE-ERROR9463| #57=#:|Defclass INTERNAL-SIMPLE-PROGRAM-ERROR9552| #58=#:|Defclass INTERNAL-SIMPLE-PARSE-ERROR9641| #59=#:|Defclass INTERNAL-SIMPLE-CONTROL-ERROR9730| #60=#:|Defclass INTERNAL-UNBOUND-VARIABLE9819| #61=#:|Defclass INTERNAL-UNDEFINED-FUNCTION9908| #62=#:|Defclass INTERNAL-END-OF-FILE9997| #63=#:|Defclass INTERNAL-SIMPLE-FILE-ERROR10086| #64=#:|Defclass INTERNAL-SIMPLE-STREAM-ERROR10175| system::*make-special pcl::find-class lisp::typep pcl::class-precedence-list system::structure-subtype-p pcl::cclosure-env-nthcdr pcl::call-no-next-method (system::%init . #((system::mfsfun (lisp::quote #65=#:|progn 'compile2195|) 0 0) (#65#) (system::mfsfun (lisp::quote #66=#:|progn 'compile2215|) 1 0) (#66#) (system::mf (lisp::quote #24#) 2) (system::mfsfun (lisp::quote #67=#:|progn 'compile2277|) 3 0) (#67#) (system::mfsfun (lisp::quote #68=#:|progn 'compile2294|) 4 0) (#68#) (system::mfsfun (lisp::quote #69=#:|progn 'compile2318|) 5 0) (#69#) (system::mfsfun (lisp::quote #70=#:|progn 'compile2330|) 6 0) (#70#) (system::mf (lisp::quote #25#) 7) (system::mfsfun (lisp::quote #71=#:|progn 'compile2366|) 8 0) (#71#) (system::mfsfun (lisp::quote #72=#:|progn 'compile2383|) 9 0) (#72#) (system::mfsfun (lisp::quote #73=#:|progn 'compile2407|) 10 0) (#73#) (system::mfsfun (lisp::quote #74=#:|progn 'compile2419|) 11 0) (#74#) (system::mf (lisp::quote #26#) 12) (system::mfsfun (lisp::quote #75=#:|progn 'compile2455|) 13 0) (#75#) (system::mfsfun (lisp::quote #76=#:|progn 'compile2472|) 14 0) (#76#) (system::mfsfun (lisp::quote #77=#:|progn 'compile2496|) 15 0) (#77#) (system::mfsfun (lisp::quote #78=#:|progn 'compile2508|) 16 0) (#78#) (system::mfsfun (lisp::quote conditions::simple-condition-printer) 17 2) (system::mf (lisp::quote #27#) 18) (system::mfsfun (lisp::quote #79=#:|progn 'compile2554|) 19 0) (#79#) (system::mfsfun (lisp::quote #80=#:|progn 'compile2571|) 20 0) (#80#) (system::mfsfun (lisp::quote #81=#:|progn 'compile2595|) 21 0) (#81#) (system::mfsfun (lisp::quote #82=#:|progn 'compile2611|) 22 0) (#82#) (system::setvv 36 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 47 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T))|) 23) (system::mfsfun (lisp::quote #83=#:|progn 'compile2950|) 24 0) (#83#) (system::mfsfun (lisp::quote #84=#:|progn 'compile2958|) 25 0) (#84#) (system::mf (lisp::quote #28#) 26) (system::mfsfun (lisp::quote #85=#:|progn 'compile2994|) 27 0) (#85#) (system::mfsfun (lisp::quote #86=#:|progn 'compile3011|) 28 0) (#86#) (system::mfsfun (lisp::quote #87=#:|progn 'compile3035|) 29 0) (#87#) (system::mfsfun (lisp::quote #88=#:|progn 'compile3047|) 30 0) (#88#) (system::mf (lisp::quote #29#) 31) (system::mfsfun (lisp::quote #89=#:|progn 'compile3083|) 32 0) (#89#) (system::mfsfun (lisp::quote #90=#:|progn 'compile3100|) 33 0) (#90#) (system::mfsfun (lisp::quote #91=#:|progn 'compile3124|) 34 0) (#91#) (system::mfsfun (lisp::quote #92=#:|progn 'compile3136|) 35 0) (#92#) (system::mf (lisp::quote #30#) 36) (system::mfsfun (lisp::quote #93=#:|progn 'compile3172|) 37 0) (#93#) (system::mfsfun (lisp::quote #94=#:|progn 'compile3189|) 38 0) (#94#) (system::mfsfun (lisp::quote #95=#:|progn 'compile3213|) 39 0) (#95#) (system::mfsfun (lisp::quote #96=#:|progn 'compile3225|) 40 0) (#96#) (system::mf (lisp::quote #31#) 41) (system::mfsfun (lisp::quote #97=#:|progn 'compile3261|) 42 0) (#97#) (system::mfsfun (lisp::quote #98=#:|progn 'compile3278|) 43 0) (#98#) (system::mfsfun (lisp::quote #99=#:|progn 'compile3302|) 44 0) (#99#) (system::mfsfun (lisp::quote #100=#:|progn 'compile3314|) 45 0) (#100#) (system::mf (lisp::quote #32#) 46) (system::mfsfun (lisp::quote #101=#:|progn 'compile3350|) 47 0) (#101#) (system::mfsfun (lisp::quote #102=#:|progn 'compile3367|) 48 0) (#102#) (system::mfsfun (lisp::quote #103=#:|progn 'compile3391|) 49 0) (#103#) (system::mfsfun (lisp::quote #104=#:|progn 'compile3403|) 50 0) (#104#) (system::mf (lisp::quote #33#) 51) (system::mfsfun (lisp::quote #105=#:|progn 'compile3441|) 52 0) (#105#) (system::mfsfun (lisp::quote #106=#:|progn 'compile3458|) 53 0) (#106#) (system::mfsfun (lisp::quote #107=#:|progn 'compile3482|) 54 0) (#107#) (system::mfsfun (lisp::quote #108=#:|progn 'compile3498|) 55 0) (#108#) (system::setvv 82 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 85 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T))|) 56) (system::mfsfun (lisp::quote #109=#:|progn 'compile3845|) 57 0) (#109#) (system::mfsfun (lisp::quote #110=#:|progn 'compile3853|) 58 0) (#110#) (system::mf (lisp::quote #34#) 59) (system::mfsfun (lisp::quote #111=#:|progn 'compile3889|) 60 0) (#111#) (system::mfsfun (lisp::quote #112=#:|progn 'compile3906|) 61 0) (#112#) (system::mfsfun (lisp::quote #113=#:|progn 'compile3930|) 62 0) (#113#) (system::mfsfun (lisp::quote #114=#:|progn 'compile3942|) 63 0) (#114#) (system::mf (lisp::quote #35#) 64) (system::mfsfun (lisp::quote #115=#:|progn 'compile3980|) 65 0) (#115#) (system::mfsfun (lisp::quote #116=#:|progn 'compile3997|) 66 0) (#116#) (system::mfsfun (lisp::quote #117=#:|progn 'compile4021|) 67 0) (#117#) (system::mfsfun (lisp::quote #118=#:|progn 'compile4037|) 68 0) (#118#) (system::setvv 105 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 108 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))|) 69) (system::mfsfun (lisp::quote #119=#:|progn 'compile4384|) 70 0) (#119#) (system::mfsfun (lisp::quote #120=#:|progn 'compile4392|) 71 0) (#120#) (system::mf (lisp::quote #36#) 72) (system::mfsfun (lisp::quote #121=#:|progn 'compile4428|) 73 0) (#121#) (system::mfsfun (lisp::quote #122=#:|progn 'compile4445|) 74 0) (#122#) (system::mfsfun (lisp::quote #123=#:|progn 'compile4469|) 75 0) (#123#) (system::mfsfun (lisp::quote #124=#:|progn 'compile4481|) 76 0) (#124#) (system::mf (lisp::quote #37#) 77) (system::mfsfun (lisp::quote #125=#:|progn 'compile4517|) 78 0) (#125#) (system::mfsfun (lisp::quote #126=#:|progn 'compile4534|) 79 0) (#126#) (system::mfsfun (lisp::quote #127=#:|progn 'compile4558|) 80 0) (#127#) (system::mfsfun (lisp::quote #128=#:|progn 'compile4570|) 81 0) (#128#) (system::mf (lisp::quote #38#) 82) (system::mfsfun (lisp::quote #129=#:|progn 'compile4606|) 83 0) (#129#) (system::mfsfun (lisp::quote #130=#:|progn 'compile4623|) 84 0) (#130#) (system::mfsfun (lisp::quote #131=#:|progn 'compile4647|) 85 0) (#131#) (system::mfsfun (lisp::quote #132=#:|progn 'compile4659|) 86 0) (#132#) (system::mf (lisp::quote #39#) 87) (system::mfsfun (lisp::quote #133=#:|progn 'compile4696|) 88 0) (#133#) (system::mfsfun (lisp::quote #134=#:|progn 'compile4713|) 89 0) (#134#) (system::mfsfun (lisp::quote #135=#:|progn 'compile4737|) 90 0) (#135#) (system::mfsfun (lisp::quote #136=#:|progn 'compile4749|) 91 0) (#136#) (system::mf (lisp::quote #40#) 92) (system::mfsfun (lisp::quote #137=#:|progn 'compile4785|) 93 0) (#137#) (system::mfsfun (lisp::quote #138=#:|progn 'compile4802|) 94 0) (#138#) (system::mfsfun (lisp::quote #139=#:|progn 'compile4826|) 95 0) (#139#) (system::mfsfun (lisp::quote #140=#:|progn 'compile4842|) 96 0) (#140#) (system::setvv 135 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 138 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))|) 97) (system::mfsfun (lisp::quote #141=#:|progn 'compile5189|) 98 0) (#141#) (system::mfsfun (lisp::quote #142=#:|progn 'compile5197|) 99 0) (#142#) (system::mf (lisp::quote #41#) 100) (system::mfsfun (lisp::quote #143=#:|progn 'compile5234|) 101 0) (#143#) (system::mfsfun (lisp::quote #144=#:|progn 'compile5251|) 102 0) (#144#) (system::mfsfun (lisp::quote #145=#:|progn 'compile5275|) 103 0) (#145#) (system::mfsfun (lisp::quote #146=#:|progn 'compile5287|) 104 0) (#146#) (system::mf (lisp::quote #42#) 105) (system::mfsfun (lisp::quote #147=#:|progn 'compile5325|) 106 0) (#147#) (system::mfsfun (lisp::quote #148=#:|progn 'compile5342|) 107 0) (#148#) (system::mfsfun (lisp::quote #149=#:|progn 'compile5366|) 108 0) (#149#) (system::mfsfun (lisp::quote #150=#:|progn 'compile5382|) 109 0) (#150#) (system::setvv 162 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 165 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))|) 110) (system::mfsfun (lisp::quote #151=#:|progn 'compile5729|) 111 0) (#151#) (system::mfsfun (lisp::quote #152=#:|progn 'compile5737|) 112 0) (#152#) (system::mf (lisp::quote #43#) 113) (system::mfsfun (lisp::quote #153=#:|progn 'compile5774|) 114 0) (#153#) (system::mfsfun (lisp::quote #154=#:|progn 'compile5791|) 115 0) (#154#) (system::mfsfun (lisp::quote #155=#:|progn 'compile5815|) 116 0) (#155#) (system::mfsfun (lisp::quote #156=#:|progn 'compile5827|) 117 0) (#156#) (system::mf (lisp::quote #44#) 118) (system::mfsfun (lisp::quote #157=#:|progn 'compile5863|) 119 0) (#157#) (system::mfsfun (lisp::quote #158=#:|progn 'compile5880|) 120 0) (#158#) (system::mfsfun (lisp::quote #159=#:|progn 'compile5904|) 121 0) (#159#) (system::mfsfun (lisp::quote #160=#:|progn 'compile5920|) 122 0) (#160#) (system::setvv 182 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 185 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))|) 123) (system::mfsfun (lisp::quote #161=#:|progn 'compile6267|) 124 0) (#161#) (system::mfsfun (lisp::quote #162=#:|progn 'compile6275|) 125 0) (#162#) (system::mf (lisp::quote #45#) 126) (system::mfsfun (lisp::quote #163=#:|progn 'compile6311|) 127 0) (#163#) (system::mfsfun (lisp::quote #164=#:|progn 'compile6328|) 128 0) (#164#) (system::mfsfun (lisp::quote #165=#:|progn 'compile6352|) 129 0) (#165#) (system::mfsfun (lisp::quote #166=#:|progn 'compile6368|) 130 0) (#166#) (system::setvv 197 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 200 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))|) 131) (system::mfsfun (lisp::quote #167=#:|progn 'compile6715|) 132 0) (#167#) (system::mfsfun (lisp::quote #168=#:|progn 'compile6723|) 133 0) (#168#) (system::mf (lisp::quote #46#) 134) (system::mfsfun (lisp::quote #169=#:|progn 'compile6760|) 135 0) (#169#) (system::mfsfun (lisp::quote #170=#:|progn 'compile6777|) 136 0) (#170#) (system::mfsfun (lisp::quote #171=#:|progn 'compile6801|) 137 0) (#171#) (system::mfsfun (lisp::quote #172=#:|progn 'compile6813|) 138 0) (#172#) (system::mf (lisp::quote #47#) 139) (system::mfsfun (lisp::quote #173=#:|progn 'compile6849|) 140 0) (#173#) (system::mfsfun (lisp::quote #174=#:|progn 'compile6866|) 141 0) (#174#) (system::mfsfun (lisp::quote #175=#:|progn 'compile6890|) 142 0) (#175#) (system::mfsfun (lisp::quote #176=#:|progn 'compile6902|) 143 0) (#176#) (system::mf (lisp::quote #48#) 144) (system::mfsfun (lisp::quote #177=#:|progn 'compile6938|) 145 0) (#177#) (system::mfsfun (lisp::quote #178=#:|progn 'compile6955|) 146 0) (#178#) (system::mfsfun (lisp::quote #179=#:|progn 'compile6979|) 147 0) (#179#) (system::mfsfun (lisp::quote #180=#:|progn 'compile6991|) 148 0) (#180#) (system::mf (lisp::quote #49#) 149) (system::mfsfun (lisp::quote #181=#:|progn 'compile7027|) 150 0) (#181#) (system::mfsfun (lisp::quote #182=#:|progn 'compile7044|) 151 0) (#182#) (system::mfsfun (lisp::quote #183=#:|progn 'compile7068|) 152 0) (#183#) (system::mfsfun (lisp::quote #184=#:|progn 'compile7080|) 153 0) (#184#) (system::mf (lisp::quote #50#) 154) (system::mfsfun (lisp::quote #185=#:|progn 'compile7116|) 155 0) (#185#) (system::mfsfun (lisp::quote #186=#:|progn 'compile7133|) 156 0) (#186#) (system::mfsfun (lisp::quote #187=#:|progn 'compile7157|) 157 0) (#187#) (system::mfsfun (lisp::quote #188=#:|progn 'compile7173|) 158 0) (#188#) (system::setvv 227 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 230 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))|) 159) (system::mfsfun (lisp::quote #189=#:|progn 'compile7528|) 160 0) (#189#) (system::mfsfun (lisp::quote #190=#:|progn 'compile7536|) 161 0) (#190#) (system::mf (lisp::quote #51#) 162) (system::mfsfun (lisp::quote #191=#:|progn 'compile7573|) 163 0) (#191#) (system::mfsfun (lisp::quote #192=#:|progn 'compile7590|) 164 0) (#192#) (system::mfsfun (lisp::quote #193=#:|progn 'compile7614|) 165 0) (#193#) (system::mfsfun (lisp::quote #194=#:|progn 'compile7630|) 166 0) (#194#) (system::setvv 246 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 249 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-WARNING T))|) 167) (system::mfsfun (lisp::quote #195=#:|progn 'compile7985|) 168 0) (#195#) (system::mfsfun (lisp::quote #196=#:|progn 'compile7993|) 169 0) (#196#) (system::mf (lisp::quote #52#) 170) (system::mfsfun (lisp::quote #197=#:|progn 'compile8030|) 171 0) (#197#) (system::mfsfun (lisp::quote #198=#:|progn 'compile8047|) 172 0) (#198#) (system::mfsfun (lisp::quote #199=#:|progn 'compile8071|) 173 0) (#199#) (system::mfsfun (lisp::quote #200=#:|progn 'compile8087|) 174 0) (#200#) (system::setvv 264 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 267 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))|) 175) (system::mfsfun (lisp::quote #201=#:|progn 'compile8442|) 176 0) (#201#) (system::mfsfun (lisp::quote #202=#:|progn 'compile8450|) 177 0) (#202#) (system::mfsfun (lisp::quote conditions::internal-simple-error-printer) 178 2) (system::mf (lisp::quote conditions::internal-simple-warning-printer) 179) (system::mf (lisp::quote #53#) 180) (system::mfsfun (lisp::quote #203=#:|progn 'compile8510|) 181 0) (#203#) (system::mfsfun (lisp::quote #204=#:|progn 'compile8527|) 182 0) (#204#) (system::mfsfun (lisp::quote #205=#:|progn 'compile8551|) 183 0) (#205#) (system::mfsfun (lisp::quote #206=#:|progn 'compile8567|) 184 0) (#206#) (system::setvv 280 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 283 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))|) 185) (system::mfsfun (lisp::quote #207=#:|progn 'compile8906|) 186 0) (#207#) (system::mfsfun (lisp::quote #208=#:|progn 'compile8914|) 187 0) (#208#) (system::mf (lisp::quote #54#) 188) (system::mfsfun (lisp::quote #209=#:|progn 'compile8950|) 189 0) (#209#) (system::mfsfun (lisp::quote #210=#:|progn 'compile8967|) 190 0) (#210#) (system::mfsfun (lisp::quote #211=#:|progn 'compile8991|) 191 0) (#211#) (system::mfsfun (lisp::quote #212=#:|progn 'compile9007|) 192 0) (#212#) (system::setvv 294 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 297 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-WARNING T))|) 193) (system::mfsfun (lisp::quote #213=#:|progn 'compile9346|) 194 0) (#213#) (system::mfsfun (lisp::quote #214=#:|progn 'compile9354|) 195 0) (#214#) (system::mf (lisp::quote #55#) 196) (system::mfsfun (lisp::quote #215=#:|progn 'compile9390|) 197 0) (#215#) (system::mfsfun (lisp::quote #216=#:|progn 'compile9407|) 198 0) (#216#) (system::mfsfun (lisp::quote #217=#:|progn 'compile9431|) 199 0) (#217#) (system::mfsfun (lisp::quote #218=#:|progn 'compile9443|) 200 0) (#218#) (system::mf (lisp::quote #56#) 201) (system::mfsfun (lisp::quote #219=#:|progn 'compile9479|) 202 0) (#219#) (system::mfsfun (lisp::quote #220=#:|progn 'compile9496|) 203 0) (#220#) (system::mfsfun (lisp::quote #221=#:|progn 'compile9520|) 204 0) (#221#) (system::mfsfun (lisp::quote #222=#:|progn 'compile9532|) 205 0) (#222#) (system::mf (lisp::quote #57#) 206) (system::mfsfun (lisp::quote #223=#:|progn 'compile9568|) 207 0) (#223#) (system::mfsfun (lisp::quote #224=#:|progn 'compile9585|) 208 0) (#224#) (system::mfsfun (lisp::quote #225=#:|progn 'compile9609|) 209 0) (#225#) (system::mfsfun (lisp::quote #226=#:|progn 'compile9621|) 210 0) (#226#) (system::mf (lisp::quote #58#) 211) (system::mfsfun (lisp::quote #227=#:|progn 'compile9657|) 212 0) (#227#) (system::mfsfun (lisp::quote #228=#:|progn 'compile9674|) 213 0) (#228#) (system::mfsfun (lisp::quote #229=#:|progn 'compile9698|) 214 0) (#229#) (system::mfsfun (lisp::quote #230=#:|progn 'compile9710|) 215 0) (#230#) (system::mf (lisp::quote #59#) 216) (system::mfsfun (lisp::quote #231=#:|progn 'compile9746|) 217 0) (#231#) (system::mfsfun (lisp::quote #232=#:|progn 'compile9763|) 218 0) (#232#) (system::mfsfun (lisp::quote #233=#:|progn 'compile9787|) 219 0) (#233#) (system::mfsfun (lisp::quote #234=#:|progn 'compile9799|) 220 0) (#234#) (system::mf (lisp::quote #60#) 221) (system::mfsfun (lisp::quote #235=#:|progn 'compile9835|) 222 0) (#235#) (system::mfsfun (lisp::quote #236=#:|progn 'compile9852|) 223 0) (#236#) (system::mfsfun (lisp::quote #237=#:|progn 'compile9876|) 224 0) (#237#) (system::mfsfun (lisp::quote #238=#:|progn 'compile9888|) 225 0) (#238#) (system::mf (lisp::quote #61#) 226) (system::mfsfun (lisp::quote #239=#:|progn 'compile9924|) 227 0) (#239#) (system::mfsfun (lisp::quote #240=#:|progn 'compile9941|) 228 0) (#240#) (system::mfsfun (lisp::quote #241=#:|progn 'compile9965|) 229 0) (#241#) (system::mfsfun (lisp::quote #242=#:|progn 'compile9977|) 230 0) (#242#) (system::mf (lisp::quote #62#) 231) (system::mfsfun (lisp::quote #243=#:|progn 'compile10013|) 232 0) (#243#) (system::mfsfun (lisp::quote #244=#:|progn 'compile10030|) 233 0) (#244#) (system::mfsfun (lisp::quote #245=#:|progn 'compile10054|) 234 0) (#245#) (system::mfsfun (lisp::quote #246=#:|progn 'compile10066|) 235 0) (#246#) (system::mf (lisp::quote #63#) 236) (system::mfsfun (lisp::quote #247=#:|progn 'compile10102|) 237 0) (#247#) (system::mfsfun (lisp::quote #248=#:|progn 'compile10119|) 238 0) (#248#) (system::mfsfun (lisp::quote #249=#:|progn 'compile10143|) 239 0) (#249#) (system::mfsfun (lisp::quote #250=#:|progn 'compile10155|) 240 0) (#250#) (system::mf (lisp::quote #64#) 241) (system::mfsfun (lisp::quote #251=#:|progn 'compile10191|) 242 0) (#251#) (system::mfsfun (lisp::quote #252=#:|progn 'compile10208|) 243 0) (#252#) (system::mfsfun (lisp::quote #253=#:|progn 'compile10232|) 244 0) (#253#) (system::mfsfun (lisp::quote #254=#:|progn 'compile10244|) 245 0) (#254#) (system::mfsfun (lisp::quote #255=#:|progn 'compile10260|) 246 0) (#255#) (system::mfsfun (lisp::quote #256=#:|progn 'compile10272|) 247 0) (#256#) (system::mfsfun (lisp::quote #257=#:|progn 'compile10285|) 248 0) (#257#) (system::mfsfun (lisp::quote conditions::simple-condition-class-p) 249 1) (system::debug (lisp::quote #66#) (lisp::quote (conditions::sym))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-WARNING T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::internal-simple-warning-printer) (lisp::quote (lisp::condition lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-WARNING T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream)))))) )