/[gcl]/gcl/clcs/clcs_condition_definitions.data
ViewVC logotype

Diff of /gcl/clcs/clcs_condition_definitions.data

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Thu Feb 27 23:54:22 2003 UTC revision 1.3.6.1 by camm, Tue Sep 23 18:39:17 2003 UTC
# Line 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package "CONDITIONS")  (lisp::in-package "CONDITIONS")
4  #(: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# "No next method." lisp::standard-method (lisp::simple-condition lisp::t) (conditions::x lisp::stream) :fast-function (:plist (:arg-info (2) :needs-next-methods-p lisp::t)) 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) lisp::nil (lisp::or . #1=(pcl::method-call lisp::function)) #1# "~S is not of type ~S." (lisp::type-error lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2) :needs-next-methods-p lisp::t)) 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) lisp::nil (lisp::or . #2=(pcl::method-call lisp::function)) #2# "~S fell through ~S expression.~%Wanted one of ~:S." (conditions::case-failure lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2) :needs-next-methods-p lisp::t)) lisp::program-error (conditions::error) (lisp::program-error (conditions::error)) lisp::control-error (conditions::error) (lisp::control-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) lisp::nil (lisp::or . #3=(pcl::method-call lisp::function)) #3# "Unexpected end of file on ~S." (lisp::end-of-file lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2) :needs-next-methods-p lisp::t)) 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) lisp::nil (lisp::or . #4=(pcl::method-call lisp::function)) #4# "A package error occurred on ~S: ~S." (lisp::package-error lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2) :needs-next-methods-p lisp::t)) 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) lisp::nil (lisp::or . #5=(pcl::method-call lisp::function)) #5# "The variable ~S is unbound." (lisp::unbound-variable lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2) :needs-next-methods-p lisp::t)) lisp::undefined-function (lisp::cell-error) (lisp::undefined-function (lisp::cell-error)) ((conditions::x lisp::undefined-function) lisp::stream) lisp::nil (lisp::or . #6=(pcl::method-call lisp::function)) #6# "The function ~S is undefined." (lisp::undefined-function lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2) :needs-next-methods-p lisp::t)) 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) lisp::nil (lisp::or . #7=(pcl::method-call lisp::function)) #7# "Abort failed." (conditions::abort-failure lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2) :needs-next-methods-p lisp::t)) conditions::internal-error (conditions::error) conditions::function-name (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) lisp::nil (lisp::or . #8=(pcl::method-call lisp::function)) #8# "Error in ~S [or a callee]: " lisp::nil (lisp::or . #9=(pcl::method-call lisp::function)) #9# (conditions::internal-error lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2) :needs-next-methods-p lisp::t)) "Error 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 . #10=(pcl::method-call lisp::function)) #10# (conditions::internal-simple-error lisp::t) (conditions::x lisp::stream) (:plist (:arg-info (2) :needs-next-methods-p lisp::t)) 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-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 #11=#:|Defclass WARNING2248| #12=#:|Defclass SERIOUS-CONDITION2337| #13=#:|Defclass ERROR2426| conditions::simple-condition-format-string conditions::simple-condition-format-arguments pcl::false #14=#:|Defclass SIMPLE-CONDITION2523| pcl::proclaim-defgeneric system::structure-subtype-p system::structure-def pcl::cclosure-env-nthcdr lisp::error conditions::simple-condition-printer conditions::|(PCL::FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T))| pcl::load-defmethod #15=#:|Defclass SIMPLE-WARNING2819| #16=#:|Defclass SIMPLE-ERROR2908| #17=#:|Defclass STORAGE-CONDITION2997| #18=#:|Defclass STACK-OVERFLOW3086| #19=#:|Defclass STORAGE-EXHAUSTED3175| #20=#:|Defclass TYPE-ERROR3264| conditions::type-error-datum conditions::type-error-expected-type conditions::|(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T))| #21=#:|Defclass SIMPLE-TYPE-ERROR3564| #22=#:|Defclass CASE-FAILURE3653| conditions::case-failure-name conditions::case-failure-possibilities conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))| #23=#:|Defclass PROGRAM-ERROR3953| #24=#:|Defclass CONTROL-ERROR4042| #25=#:|Defclass STREAM-ERROR4131| #26=#:|Defclass END-OF-FILE4221| conditions::stream-error-stream conditions::|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))| #27=#:|Defclass FILE-ERROR4519| #28=#:|Defclass PACKAGE-ERROR4609| conditions::package-error-package conditions::package-error-message conditions::|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))| #29=#:|Defclass CELL-ERROR4909| #30=#:|Defclass UNBOUND-VARIABLE4999| conditions::cell-error-name conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))| #31=#:|Defclass UNDEFINED-FUNCTION5297| conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))| #32=#:|Defclass ARITHMETIC-ERROR5595| #33=#:|Defclass DIVISION-BY-ZERO5685| #34=#:|Defclass FLOATING-POINT-OVERFLOW5774| #35=#:|Defclass FLOATING-POINT-UNDERFLOW5863| #36=#:|Defclass ABORT-FAILURE5952| conditions::|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))| #37=#:|Defclass INTERNAL-ERROR6254| conditions::internal-error-function-name conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))| #38=#:|Defclass INTERNAL-SIMPLE-ERROR6681| conditions::internal-simple-error-printer conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))| #39=#:|Defclass INTERNAL-TYPE-ERROR6975| #40=#:|Defclass INTERNAL-PACKAGE-ERROR7064| #41=#:|Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7153| #42=#:|Defclass INTERNAL-SIMPLE-CONTROL-ERROR7242| #43=#:|Defclass INTERNAL-UNBOUND-VARIABLE7331| #44=#:|Defclass INTERNAL-UNDEFINED-FUNCTION7420| #45=#:|Defclass INTERNAL-END-OF-FILE7509| #46=#:|Defclass INTERNAL-SIMPLE-FILE-ERROR7598| #47=#:|Defclass INTERNAL-SIMPLE-STREAM-ERROR7687| system::*make-special pcl::find-class lisp::typep pcl::class-precedence-list (system::%init . #((system::mfsfun (lisp::quote #48=#:|progn 'compile2182|) 0 0) (#48#) (system::mfsfun (lisp::quote #49=#:|progn 'compile2202|) 1 0) (#49#) (system::mf (lisp::quote #11#) 2) (system::mfsfun (lisp::quote #50=#:|progn 'compile2264|) 3 0) (#50#) (system::mfsfun (lisp::quote #51=#:|progn 'compile2281|) 4 0) (#51#) (system::mfsfun (lisp::quote #52=#:|progn 'compile2305|) 5 0) (#52#) (system::mfsfun (lisp::quote #53=#:|progn 'compile2317|) 6 0) (#53#) (system::mf (lisp::quote #12#) 7) (system::mfsfun (lisp::quote #54=#:|progn 'compile2353|) 8 0) (#54#) (system::mfsfun (lisp::quote #55=#:|progn 'compile2370|) 9 0) (#55#) (system::mfsfun (lisp::quote #56=#:|progn 'compile2394|) 10 0) (#56#) (system::mfsfun (lisp::quote #57=#:|progn 'compile2406|) 11 0) (#57#) (system::mf (lisp::quote #13#) 12) (system::mfsfun (lisp::quote #58=#:|progn 'compile2442|) 13 0) (#58#) (system::mfsfun (lisp::quote #59=#:|progn 'compile2459|) 14 0) (#59#) (system::mfsfun (lisp::quote #60=#:|progn 'compile2483|) 15 0) (#60#) (system::mfsfun (lisp::quote #61=#:|progn 'compile2495|) 16 0) (#61#) (system::mfsfun (lisp::quote conditions::simple-condition-printer) 17 2) (system::mf (lisp::quote #14#) 18) (system::mfsfun (lisp::quote #62=#:|progn 'compile2541|) 19 0) (#62#) (system::mfsfun (lisp::quote #63=#:|progn 'compile2558|) 20 0) (#63#) (system::mfsfun (lisp::quote #64=#:|progn 'compile2582|) 21 0) (#64#) (system::mfsfun (lisp::quote #65=#:|progn 'compile2598|) 22 0) (#65#) (system::setvv 36 (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 #66=#:|progn 'compile2791|) 24 0) (#66#) (system::mfsfun (lisp::quote #67=#:|progn 'compile2799|) 25 0) (#67#) (system::mf (lisp::quote #15#) 26) (system::mfsfun (lisp::quote #68=#:|progn 'compile2835|) 27 0) (#68#) (system::mfsfun (lisp::quote #69=#:|progn 'compile2852|) 28 0) (#69#) (system::mfsfun (lisp::quote #70=#:|progn 'compile2876|) 29 0) (#70#) (system::mfsfun (lisp::quote #71=#:|progn 'compile2888|) 30 0) (#71#) (system::mf (lisp::quote #16#) 31) (system::mfsfun (lisp::quote #72=#:|progn 'compile2924|) 32 0) (#72#) (system::mfsfun (lisp::quote #73=#:|progn 'compile2941|) 33 0) (#73#) (system::mfsfun (lisp::quote #74=#:|progn 'compile2965|) 34 0) (#74#) (system::mfsfun (lisp::quote #75=#:|progn 'compile2977|) 35 0) (#75#) (system::mf (lisp::quote #17#) 36) (system::mfsfun (lisp::quote #76=#:|progn 'compile3013|) 37 0) (#76#) (system::mfsfun (lisp::quote #77=#:|progn 'compile3030|) 38 0) (#77#) (system::mfsfun (lisp::quote #78=#:|progn 'compile3054|) 39 0) (#78#) (system::mfsfun (lisp::quote #79=#:|progn 'compile3066|) 40 0) (#79#) (system::mf (lisp::quote #18#) 41) (system::mfsfun (lisp::quote #80=#:|progn 'compile3102|) 42 0) (#80#) (system::mfsfun (lisp::quote #81=#:|progn 'compile3119|) 43 0) (#81#) (system::mfsfun (lisp::quote #82=#:|progn 'compile3143|) 44 0) (#82#) (system::mfsfun (lisp::quote #83=#:|progn 'compile3155|) 45 0) (#83#) (system::mf (lisp::quote #19#) 46) (system::mfsfun (lisp::quote #84=#:|progn 'compile3191|) 47 0) (#84#) (system::mfsfun (lisp::quote #85=#:|progn 'compile3208|) 48 0) (#85#) (system::mfsfun (lisp::quote #86=#:|progn 'compile3232|) 49 0) (#86#) (system::mfsfun (lisp::quote #87=#:|progn 'compile3244|) 50 0) (#87#) (system::mf (lisp::quote #20#) 51) (system::mfsfun (lisp::quote #88=#:|progn 'compile3282|) 52 0) (#88#) (system::mfsfun (lisp::quote #89=#:|progn 'compile3299|) 53 0) (#89#) (system::mfsfun (lisp::quote #90=#:|progn 'compile3323|) 54 0) (#90#) (system::mfsfun (lisp::quote #91=#:|progn 'compile3339|) 55 0) (#91#) (system::setvv 78 (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 #92=#:|progn 'compile3536|) 57 0) (#92#) (system::mfsfun (lisp::quote #93=#:|progn 'compile3544|) 58 0) (#93#) (system::mf (lisp::quote #21#) 59) (system::mfsfun (lisp::quote #94=#:|progn 'compile3580|) 60 0) (#94#) (system::mfsfun (lisp::quote #95=#:|progn 'compile3597|) 61 0) (#95#) (system::mfsfun (lisp::quote #96=#:|progn 'compile3621|) 62 0) (#96#) (system::mfsfun (lisp::quote #97=#:|progn 'compile3633|) 63 0) (#97#) (system::mf (lisp::quote #22#) 64) (system::mfsfun (lisp::quote #98=#:|progn 'compile3671|) 65 0) (#98#) (system::mfsfun (lisp::quote #99=#:|progn 'compile3688|) 66 0) (#99#) (system::mfsfun (lisp::quote #100=#:|progn 'compile3712|) 67 0) (#100#) (system::mfsfun (lisp::quote #101=#:|progn 'compile3728|) 68 0) (#101#) (system::setvv 97 (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 #102=#:|progn 'compile3925|) 70 0) (#102#) (system::mfsfun (lisp::quote #103=#:|progn 'compile3933|) 71 0) (#103#) (system::mf (lisp::quote #23#) 72) (system::mfsfun (lisp::quote #104=#:|progn 'compile3969|) 73 0) (#104#) (system::mfsfun (lisp::quote #105=#:|progn 'compile3986|) 74 0) (#105#) (system::mfsfun (lisp::quote #106=#:|progn 'compile4010|) 75 0) (#106#) (system::mfsfun (lisp::quote #107=#:|progn 'compile4022|) 76 0) (#107#) (system::mf (lisp::quote #24#) 77) (system::mfsfun (lisp::quote #108=#:|progn 'compile4058|) 78 0) (#108#) (system::mfsfun (lisp::quote #109=#:|progn 'compile4075|) 79 0) (#109#) (system::mfsfun (lisp::quote #110=#:|progn 'compile4099|) 80 0) (#110#) (system::mfsfun (lisp::quote #111=#:|progn 'compile4111|) 81 0) (#111#) (system::mf (lisp::quote #25#) 82) (system::mfsfun (lisp::quote #112=#:|progn 'compile4148|) 83 0) (#112#) (system::mfsfun (lisp::quote #113=#:|progn 'compile4165|) 84 0) (#113#) (system::mfsfun (lisp::quote #114=#:|progn 'compile4189|) 85 0) (#114#) (system::mfsfun (lisp::quote #115=#:|progn 'compile4201|) 86 0) (#115#) (system::mf (lisp::quote #26#) 87) (system::mfsfun (lisp::quote #116=#:|progn 'compile4237|) 88 0) (#116#) (system::mfsfun (lisp::quote #117=#:|progn 'compile4254|) 89 0) (#117#) (system::mfsfun (lisp::quote #118=#:|progn 'compile4278|) 90 0) (#118#) (system::mfsfun (lisp::quote #119=#:|progn 'compile4294|) 91 0) (#119#) (system::setvv 120 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))|) 92) (system::mfsfun (lisp::quote #120=#:|progn 'compile4491|) 93 0) (#120#) (system::mfsfun (lisp::quote #121=#:|progn 'compile4499|) 94 0) (#121#) (system::mf (lisp::quote #27#) 95) (system::mfsfun (lisp::quote #122=#:|progn 'compile4536|) 96 0) (#122#) (system::mfsfun (lisp::quote #123=#:|progn 'compile4553|) 97 0) (#123#) (system::mfsfun (lisp::quote #124=#:|progn 'compile4577|) 98 0) (#124#) (system::mfsfun (lisp::quote #125=#:|progn 'compile4589|) 99 0) (#125#) (system::mf (lisp::quote #28#) 100) (system::mfsfun (lisp::quote #126=#:|progn 'compile4627|) 101 0) (#126#) (system::mfsfun (lisp::quote #127=#:|progn 'compile4644|) 102 0) (#127#) (system::mfsfun (lisp::quote #128=#:|progn 'compile4668|) 103 0) (#128#) (system::mfsfun (lisp::quote #129=#:|progn 'compile4684|) 104 0) (#129#) (system::setvv 143 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))|) 105) (system::mfsfun (lisp::quote #130=#:|progn 'compile4881|) 106 0) (#130#) (system::mfsfun (lisp::quote #131=#:|progn 'compile4889|) 107 0) (#131#) (system::mf (lisp::quote #29#) 108) (system::mfsfun (lisp::quote #132=#:|progn 'compile4926|) 109 0) (#132#) (system::mfsfun (lisp::quote #133=#:|progn 'compile4943|) 110 0) (#133#) (system::mfsfun (lisp::quote #134=#:|progn 'compile4967|) 111 0) (#134#) (system::mfsfun (lisp::quote #135=#:|progn 'compile4979|) 112 0) (#135#) (system::mf (lisp::quote #30#) 113) (system::mfsfun (lisp::quote #136=#:|progn 'compile5015|) 114 0) (#136#) (system::mfsfun (lisp::quote #137=#:|progn 'compile5032|) 115 0) (#137#) (system::mfsfun (lisp::quote #138=#:|progn 'compile5056|) 116 0) (#138#) (system::mfsfun (lisp::quote #139=#:|progn 'compile5072|) 117 0) (#139#) (system::setvv 159 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))|) 118) (system::mfsfun (lisp::quote #140=#:|progn 'compile5269|) 119 0) (#140#) (system::mfsfun (lisp::quote #141=#:|progn 'compile5277|) 120 0) (#141#) (system::mf (lisp::quote #31#) 121) (system::mfsfun (lisp::quote #142=#:|progn 'compile5313|) 122 0) (#142#) (system::mfsfun (lisp::quote #143=#:|progn 'compile5330|) 123 0) (#143#) (system::mfsfun (lisp::quote #144=#:|progn 'compile5354|) 124 0) (#144#) (system::mfsfun (lisp::quote #145=#:|progn 'compile5370|) 125 0) (#145#) (system::setvv 170 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))|) 126) (system::mfsfun (lisp::quote #146=#:|progn 'compile5567|) 127 0) (#146#) (system::mfsfun (lisp::quote #147=#:|progn 'compile5575|) 128 0) (#147#) (system::mf (lisp::quote #32#) 129) (system::mfsfun (lisp::quote #148=#:|progn 'compile5612|) 130 0) (#148#) (system::mfsfun (lisp::quote #149=#:|progn 'compile5629|) 131 0) (#149#) (system::mfsfun (lisp::quote #150=#:|progn 'compile5653|) 132 0) (#150#) (system::mfsfun (lisp::quote #151=#:|progn 'compile5665|) 133 0) (#151#) (system::mf (lisp::quote #33#) 134) (system::mfsfun (lisp::quote #152=#:|progn 'compile5701|) 135 0) (#152#) (system::mfsfun (lisp::quote #153=#:|progn 'compile5718|) 136 0) (#153#) (system::mfsfun (lisp::quote #154=#:|progn 'compile5742|) 137 0) (#154#) (system::mfsfun (lisp::quote #155=#:|progn 'compile5754|) 138 0) (#155#) (system::mf (lisp::quote #34#) 139) (system::mfsfun (lisp::quote #156=#:|progn 'compile5790|) 140 0) (#156#) (system::mfsfun (lisp::quote #157=#:|progn 'compile5807|) 141 0) (#157#) (system::mfsfun (lisp::quote #158=#:|progn 'compile5831|) 142 0) (#158#) (system::mfsfun (lisp::quote #159=#:|progn 'compile5843|) 143 0) (#159#) (system::mf (lisp::quote #35#) 144) (system::mfsfun (lisp::quote #160=#:|progn 'compile5879|) 145 0) (#160#) (system::mfsfun (lisp::quote #161=#:|progn 'compile5896|) 146 0) (#161#) (system::mfsfun (lisp::quote #162=#:|progn 'compile5920|) 147 0) (#162#) (system::mfsfun (lisp::quote #163=#:|progn 'compile5932|) 148 0) (#163#) (system::mf (lisp::quote #36#) 149) (system::mfsfun (lisp::quote #164=#:|progn 'compile5968|) 150 0) (#164#) (system::mfsfun (lisp::quote #165=#:|progn 'compile5985|) 151 0) (#165#) (system::mfsfun (lisp::quote #166=#:|progn 'compile6009|) 152 0) (#166#) (system::mfsfun (lisp::quote #167=#:|progn 'compile6025|) 153 0) (#167#) (system::setvv 196 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))|) 154) (system::mfsfun (lisp::quote #168=#:|progn 'compile6226|) 155 0) (#168#) (system::mfsfun (lisp::quote #169=#:|progn 'compile6234|) 156 0) (#169#) (system::mf (lisp::quote #37#) 157) (system::mfsfun (lisp::quote #170=#:|progn 'compile6271|) 158 0) (#170#) (system::mfsfun (lisp::quote #171=#:|progn 'compile6288|) 159 0) (#171#) (system::mfsfun (lisp::quote #172=#:|progn 'compile6312|) 160 0) (#172#) (system::mfsfun (lisp::quote #173=#:|progn 'compile6328|) 161 0) (#173#) (system::setvv 211 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 215 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))|) 162) (system::mfsfun (lisp::quote #174=#:|progn 'compile6641|) 163 0) (#174#) (system::mfsfun (lisp::quote #175=#:|progn 'compile6649|) 164 0) (#175#) (system::mfsfun (lisp::quote conditions::internal-simple-error-printer) 165 2) (system::mf (lisp::quote #38#) 166) (system::mfsfun (lisp::quote #176=#:|progn 'compile6697|) 167 0) (#176#) (system::mfsfun (lisp::quote #177=#:|progn 'compile6714|) 168 0) (#177#) (system::mfsfun (lisp::quote #178=#:|progn 'compile6738|) 169 0) (#178#) (system::mfsfun (lisp::quote #179=#:|progn 'compile6754|) 170 0) (#179#) (system::setvv 226 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))|) 171) (system::mfsfun (lisp::quote #180=#:|progn 'compile6947|) 172 0) (#180#) (system::mfsfun (lisp::quote #181=#:|progn 'compile6955|) 173 0) (#181#) (system::mf (lisp::quote #39#) 174) (system::mfsfun (lisp::quote #182=#:|progn 'compile6991|) 175 0) (#182#) (system::mfsfun (lisp::quote #183=#:|progn 'compile7008|) 176 0) (#183#) (system::mfsfun (lisp::quote #184=#:|progn 'compile7032|) 177 0) (#184#) (system::mfsfun (lisp::quote #185=#:|progn 'compile7044|) 178 0) (#185#) (system::mf (lisp::quote #40#) 179) (system::mfsfun (lisp::quote #186=#:|progn 'compile7080|) 180 0) (#186#) (system::mfsfun (lisp::quote #187=#:|progn 'compile7097|) 181 0) (#187#) (system::mfsfun (lisp::quote #188=#:|progn 'compile7121|) 182 0) (#188#) (system::mfsfun (lisp::quote #189=#:|progn 'compile7133|) 183 0) (#189#) (system::mf (lisp::quote #41#) 184) (system::mfsfun (lisp::quote #190=#:|progn 'compile7169|) 185 0) (#190#) (system::mfsfun (lisp::quote #191=#:|progn 'compile7186|) 186 0) (#191#) (system::mfsfun (lisp::quote #192=#:|progn 'compile7210|) 187 0) (#192#) (system::mfsfun (lisp::quote #193=#:|progn 'compile7222|) 188 0) (#193#) (system::mf (lisp::quote #42#) 189) (system::mfsfun (lisp::quote #194=#:|progn 'compile7258|) 190 0) (#194#) (system::mfsfun (lisp::quote #195=#:|progn 'compile7275|) 191 0) (#195#) (system::mfsfun (lisp::quote #196=#:|progn 'compile7299|) 192 0) (#196#) (system::mfsfun (lisp::quote #197=#:|progn 'compile7311|) 193 0) (#197#) (system::mf (lisp::quote #43#) 194) (system::mfsfun (lisp::quote #198=#:|progn 'compile7347|) 195 0) (#198#) (system::mfsfun (lisp::quote #199=#:|progn 'compile7364|) 196 0) (#199#) (system::mfsfun (lisp::quote #200=#:|progn 'compile7388|) 197 0) (#200#) (system::mfsfun (lisp::quote #201=#:|progn 'compile7400|) 198 0) (#201#) (system::mf (lisp::quote #44#) 199) (system::mfsfun (lisp::quote #202=#:|progn 'compile7436|) 200 0) (#202#) (system::mfsfun (lisp::quote #203=#:|progn 'compile7453|) 201 0) (#203#) (system::mfsfun (lisp::quote #204=#:|progn 'compile7477|) 202 0) (#204#) (system::mfsfun (lisp::quote #205=#:|progn 'compile7489|) 203 0) (#205#) (system::mf (lisp::quote #45#) 204) (system::mfsfun (lisp::quote #206=#:|progn 'compile7525|) 205 0) (#206#) (system::mfsfun (lisp::quote #207=#:|progn 'compile7542|) 206 0) (#207#) (system::mfsfun (lisp::quote #208=#:|progn 'compile7566|) 207 0) (#208#) (system::mfsfun (lisp::quote #209=#:|progn 'compile7578|) 208 0) (#209#) (system::mf (lisp::quote #46#) 209) (system::mfsfun (lisp::quote #210=#:|progn 'compile7614|) 210 0) (#210#) (system::mfsfun (lisp::quote #211=#:|progn 'compile7631|) 211 0) (#211#) (system::mfsfun (lisp::quote #212=#:|progn 'compile7655|) 212 0) (#212#) (system::mfsfun (lisp::quote #213=#:|progn 'compile7667|) 213 0) (#213#) (system::mf (lisp::quote #47#) 214) (system::mfsfun (lisp::quote #214=#:|progn 'compile7703|) 215 0) (#214#) (system::mfsfun (lisp::quote #215=#:|progn 'compile7720|) 216 0) (#215#) (system::mfsfun (lisp::quote #216=#:|progn 'compile7744|) 217 0) (#216#) (system::mfsfun (lisp::quote #217=#:|progn 'compile7756|) 218 0) (#217#) (system::mfsfun (lisp::quote #218=#:|progn 'compile7772|) 219 0) (#218#) (system::mfsfun (lisp::quote #219=#:|progn 'compile7784|) 220 0) (#219#) (system::mfsfun (lisp::quote #220=#:|progn 'compile7797|) 221 0) (#220#) (system::mfsfun (lisp::quote conditions::simple-condition-class-p) 222 1))))  #(lisp::warning lisp::standard-class (lisp::condition) lisp::serious-condition (lisp::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::*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# "No next method." lisp::simple-warning (lisp::simple-condition lisp::warning) conditions::simple-error (lisp::simple-condition conditions::error) lisp::storage-condition (lisp::serious-condition) conditions::stack-overflow (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::nil (lisp::or . #1=(pcl::method-call lisp::function)) #1# "~S is not of type ~S." 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) lisp::nil (lisp::or . #2=(pcl::method-call lisp::function)) #2# "~S fell through ~S expression.~%Wanted one of ~:S." lisp::program-error (conditions::error) lisp::control-error (conditions::error) lisp::stream-error (conditions::error) lisp::stream (conditions::stream-error-stream) (:stream) lisp::end-of-file (lisp::stream-error) lisp::nil (lisp::or . #3=(pcl::method-call lisp::function)) #3# "Unexpected end of file on ~S." lisp::file-error (conditions::error) lisp::pathname (conditions::file-error-pathname) (:pathname) lisp::package-error (conditions::error) lisp::package (conditions::package-error-package) (:package) conditions::message (conditions::package-error-message) (:message) lisp::nil (lisp::or . #4=(pcl::method-call lisp::function)) #4# "A package error occurred on ~S: ~S." lisp::cell-error (conditions::error) (conditions::cell-error-name) (:name) lisp::unbound-variable (lisp::cell-error) lisp::nil (lisp::or . #5=(pcl::method-call lisp::function)) #5# "The variable ~S is unbound." lisp::undefined-function (lisp::cell-error) lisp::nil (lisp::or . #6=(pcl::method-call lisp::function)) #6# "The function ~S is undefined." lisp::arithmetic-error (conditions::error) conditions::operation (conditions::arithmetic-error-operation) (:operation) lisp::division-by-zero (lisp::arithmetic-error) lisp::floating-point-overflow (lisp::arithmetic-error) lisp::floating-point-underflow (lisp::arithmetic-error) conditions::abort-failure (lisp::control-error) lisp::nil (lisp::or . #7=(pcl::method-call lisp::function)) #7# "Abort failed." conditions::internal-error (conditions::error) conditions::function-name (conditions::internal-error-function-name) (:function-name) (:initform (lisp::quote lisp::nil)) lisp::nil (lisp::or . #8=(pcl::method-call lisp::function)) #8# "Error in ~S [or a callee]: " lisp::nil (lisp::or . #9=(pcl::method-call lisp::function)) #9# "Error in ~S [or a callee]: " conditions::internal-simple-error (conditions::internal-error lisp::simple-condition) lisp::nil (lisp::or . #10=(pcl::method-call lisp::function)) #10# conditions::internal-type-error (conditions::internal-error lisp::type-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-control-error (conditions::internal-simple-error lisp::control-error) conditions::internal-unbound-variable (conditions::internal-error lisp::unbound-variable) conditions::internal-undefined-function (conditions::internal-error lisp::undefined-function) 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-stream-error (conditions::internal-simple-error lisp::stream-error) conditions::*simple-condition-class* pcl::load-defclass conditions::simple-condition-format-string conditions::simple-condition-format-arguments pcl::false system::structure-subtype-p pcl::cclosure-env-nthcdr lisp::error conditions::simple-condition-printer conditions::type-error-datum conditions::type-error-expected-type conditions::case-failure-name conditions::case-failure-possibilities conditions::stream-error-stream conditions::package-error-package conditions::package-error-message conditions::cell-error-name conditions::internal-error-function-name conditions::internal-simple-error-printer pcl::find-class lisp::typep pcl::class-precedence-list (system::%init . #((lisp::let* ((#11=#:g2169 :clos-conditions)) (lisp::setq lisp::*features* (lisp::adjoin #11# lisp::*features*))) (lisp::if (lisp::and (lisp::member :clos-conditions lisp::*features*) (lisp::member :defstruct-conditions lisp::*features*)) (lisp::progn (lisp::dolist (conditions::sym (lisp::quote (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::when (lisp::fboundp conditions::sym) (lisp::fmakunbound conditions::sym))) (lisp::setq lisp::*features* (lisp::remove :defstruct-conditions lisp::*features*)))) (system::mf (lisp::quote #12=#:|Defclass WARNING2194|) 0) (#12#) (lisp::let* ((#13=#:g2214 (lisp::quote (lisp::warning (lisp::condition))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #13# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::warning) #14=(lisp::quote system::s-data) lisp::nil) (system::mf (lisp::quote #15=#:|Defclass SERIOUS-CONDITION2243|) 1) (#15#) (lisp::let* ((#16=#:g2263 (lisp::quote (lisp::serious-condition (lisp::condition))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #16# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::serious-condition) #14# lisp::nil) (system::mf (lisp::quote #17=#:|Defclass ERROR2292|) 2) (#17#) (lisp::let* ((#18=#:g2312 (lisp::quote (conditions::error (lisp::serious-condition))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #18# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::error) #14# lisp::nil) (system::mf (lisp::quote conditions::simple-condition-printer) 3) (system::mf (lisp::quote #19=#:|Defclass SIMPLE-CONDITION2345|) 4) (#19#) (lisp::let* ((#20=#:g2367 (lisp::quote (lisp::simple-condition (lisp::condition) (:format-string . lisp::string) (:format-arguments . lisp::t))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #20# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::simple-condition) #14# lisp::nil) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x lisp::simple-condition) lisp::stream))) (system::setvv 24 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T))|) 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::simple-condition lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #21=#:|Defclass SIMPLE-WARNING2585|) 6) (#21#) (lisp::let* ((#22=#:g2605 (lisp::quote (lisp::simple-warning (lisp::simple-condition lisp::warning))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #22# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::simple-warning) #14# lisp::nil) (system::mf (lisp::quote #23=#:|Defclass SIMPLE-ERROR2634|) 7) (#23#) (lisp::let* ((#24=#:g2654 (lisp::quote (conditions::simple-error (lisp::simple-condition conditions::error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #24# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::simple-error) #14# lisp::nil) (system::mf (lisp::quote #25=#:|Defclass STORAGE-CONDITION2683|) 8) (#25#) (lisp::let* ((#26=#:g2703 (lisp::quote (lisp::storage-condition (lisp::serious-condition))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #26# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::storage-condition) #14# lisp::nil) (system::mf (lisp::quote #27=#:|Defclass STACK-OVERFLOW2732|) 9) (#27#) (lisp::let* ((#28=#:g2752 (lisp::quote (conditions::stack-overflow (lisp::storage-condition))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #28# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::stack-overflow) #14# lisp::nil) (system::mf (lisp::quote #29=#:|Defclass STORAGE-EXHAUSTED2781|) 10) (#29#) (lisp::let* ((#30=#:g2801 (lisp::quote (conditions::storage-exhausted (lisp::storage-condition))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #30# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::storage-exhausted) #14# lisp::nil) (system::mf (lisp::quote #31=#:|Defclass TYPE-ERROR2830|) 11) (#31#) (lisp::let* ((#32=#:g2852 (lisp::quote (lisp::type-error (conditions::error) (:datum . lisp::t) (:expected-type . lisp::t))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #32# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::type-error) #14# lisp::nil) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x lisp::type-error) lisp::stream))) (system::setvv 54 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T))|) 12) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::type-error lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #33=#:|Defclass SIMPLE-TYPE-ERROR3074|) 13) (#33#) (lisp::let* ((#34=#:g3094 (lisp::quote (lisp::simple-type-error (lisp::simple-condition lisp::type-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #34# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::simple-type-error) #14# lisp::nil) (system::mf (lisp::quote #35=#:|Defclass CASE-FAILURE3123|) 14) (#35#) (lisp::let* ((#36=#:g3145 (lisp::quote (conditions::case-failure (lisp::type-error) (:name . lisp::t) (:possibilities . lisp::t))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #36# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::case-failure) #14# lisp::nil) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x conditions::case-failure) lisp::stream))) (system::setvv 67 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))|) 15) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (conditions::case-failure lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #37=#:|Defclass PROGRAM-ERROR3367|) 16) (#37#) (lisp::let* ((#38=#:g3387 (lisp::quote (lisp::program-error (conditions::error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #38# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::program-error) #14# lisp::nil) (system::mf (lisp::quote #39=#:|Defclass CONTROL-ERROR3416|) 17) (#39#) (lisp::let* ((#40=#:g3436 (lisp::quote (lisp::control-error (conditions::error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #40# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::control-error) #14# lisp::nil) (system::mf (lisp::quote #41=#:|Defclass STREAM-ERROR3465|) 18) (#41#) (lisp::let* ((#42=#:g3486 (lisp::quote (lisp::stream-error (conditions::error) (:stream . lisp::t))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #42# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::stream-error) #14# lisp::nil) (system::mf (lisp::quote #43=#:|Defclass END-OF-FILE3515|) 19) (#43#) (lisp::let* ((#44=#:g3535 (lisp::quote (lisp::end-of-file (lisp::stream-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #44# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::end-of-file) #14# lisp::nil) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x lisp::end-of-file) lisp::stream))) (system::setvv 82 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))|) 20) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::end-of-file lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #45=#:|Defclass FILE-ERROR3757|) 21) (#45#) (lisp::let* ((#46=#:g3778 (lisp::quote (lisp::file-error (conditions::error) (:pathname . lisp::t))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #46# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::file-error) #14# lisp::nil) (system::mf (lisp::quote #47=#:|Defclass PACKAGE-ERROR3807|) 22) (#47#) (lisp::let* ((#48=#:g3829 (lisp::quote (lisp::package-error (conditions::error) (:package . lisp::t) (:message . lisp::t))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #48# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::package-error) #14# lisp::nil) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x lisp::package-error) lisp::stream))) (system::setvv 99 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))|) 23) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::package-error lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #49=#:|Defclass CELL-ERROR4051|) 24) (#49#) (lisp::let* ((#50=#:g4072 (lisp::quote (lisp::cell-error (conditions::error) (:name . lisp::t))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #50# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::cell-error) #14# lisp::nil) (system::mf (lisp::quote #51=#:|Defclass UNBOUND-VARIABLE4101|) 25) (#51#) (lisp::let* ((#52=#:g4121 (lisp::quote (lisp::unbound-variable (lisp::cell-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #52# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::unbound-variable) #14# lisp::nil) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x lisp::unbound-variable) lisp::stream))) (system::setvv 109 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))|) 26) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::unbound-variable lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #53=#:|Defclass UNDEFINED-FUNCTION4343|) 27) (#53#) (lisp::let* ((#54=#:g4363 (lisp::quote (lisp::undefined-function (lisp::cell-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #54# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::undefined-function) #14# lisp::nil) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x lisp::undefined-function) lisp::stream))) (system::setvv 115 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))|) 28) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::undefined-function lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #55=#:|Defclass ARITHMETIC-ERROR4585|) 29) (#55#) (lisp::let* ((#56=#:g4606 (lisp::quote (lisp::arithmetic-error (conditions::error) (:operation . lisp::t))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #56# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::arithmetic-error) #14# lisp::nil) (system::mf (lisp::quote #57=#:|Defclass DIVISION-BY-ZERO4635|) 30) (#57#) (lisp::let* ((#58=#:g4655 (lisp::quote (lisp::division-by-zero (lisp::arithmetic-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #58# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::division-by-zero) #14# lisp::nil) (system::mf (lisp::quote #59=#:|Defclass FLOATING-POINT-OVERFLOW4684|) 31) (#59#) (lisp::let* ((#60=#:g4704 (lisp::quote (lisp::floating-point-overflow (lisp::arithmetic-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #60# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::floating-point-overflow) #14# lisp::nil) (system::mf (lisp::quote #61=#:|Defclass FLOATING-POINT-UNDERFLOW4733|) 32) (#61#) (lisp::let* ((#62=#:g4753 (lisp::quote (lisp::floating-point-underflow (lisp::arithmetic-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #62# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::floating-point-underflow) #14# lisp::nil) (system::mf (lisp::quote #63=#:|Defclass ABORT-FAILURE4782|) 33) (#63#) (lisp::let* ((#64=#:g4802 (lisp::quote (conditions::abort-failure (lisp::control-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #64# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::abort-failure) #14# lisp::nil) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x conditions::abort-failure) lisp::stream))) (system::setvv 132 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))|) 34) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (conditions::abort-failure lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #65=#:|Defclass INTERNAL-ERROR5028|) 35) (#65#) (lisp::let* ((#66=#:g5049 (lisp::quote (conditions::internal-error (conditions::error) (:function-name . lisp::t))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #66# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-error) #14# lisp::nil) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x conditions::internal-error) lisp::stream))) (system::setvv 142 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 146 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))|) 36) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (conditions::internal-error lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mf (lisp::quote conditions::internal-simple-error-printer) 37) (system::mf (lisp::quote #67=#:|Defclass INTERNAL-SIMPLE-ERROR5395|) 38) (#67#) (lisp::let* ((#68=#:g5415 (lisp::quote (conditions::internal-simple-error (conditions::internal-error lisp::simple-condition))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #68# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-simple-error) #14# lisp::nil) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x conditions::internal-simple-error) lisp::stream))) (system::setvv 152 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))|) 39) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (conditions::internal-simple-error lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #69=#:|Defclass INTERNAL-TYPE-ERROR5633|) 40) (#69#) (lisp::let* ((#70=#:g5653 (lisp::quote (conditions::internal-type-error (conditions::internal-error lisp::type-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #70# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-type-error) #14# lisp::nil) (system::mf (lisp::quote #71=#:|Defclass INTERNAL-PACKAGE-ERROR5682|) 41) (#71#) (lisp::let* ((#72=#:g5702 (lisp::quote (conditions::internal-package-error (conditions::internal-error lisp::package-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #72# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-package-error) #14# lisp::nil) (system::mf (lisp::quote #73=#:|Defclass INTERNAL-SIMPLE-PROGRAM-ERROR5731|) 42) (#73#) (lisp::let* ((#74=#:g5751 (lisp::quote (conditions::internal-simple-program-error (conditions::internal-simple-error lisp::program-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #74# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-simple-program-error) #14# lisp::nil) (system::mf (lisp::quote #75=#:|Defclass INTERNAL-SIMPLE-CONTROL-ERROR5780|) 43) (#75#) (lisp::let* ((#76=#:g5800 (lisp::quote (conditions::internal-simple-control-error (conditions::internal-simple-error lisp::control-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #76# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-simple-control-error) #14# lisp::nil) (system::mf (lisp::quote #77=#:|Defclass INTERNAL-UNBOUND-VARIABLE5829|) 44) (#77#) (lisp::let* ((#78=#:g5849 (lisp::quote (conditions::internal-unbound-variable (conditions::internal-error lisp::unbound-variable))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #78# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-unbound-variable) #14# lisp::nil) (system::mf (lisp::quote #79=#:|Defclass INTERNAL-UNDEFINED-FUNCTION5878|) 45) (#79#) (lisp::let* ((#80=#:g5898 (lisp::quote (conditions::internal-undefined-function (conditions::internal-error lisp::undefined-function))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #80# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-undefined-function) #14# lisp::nil) (system::mf (lisp::quote #81=#:|Defclass INTERNAL-END-OF-FILE5927|) 46) (#81#) (lisp::let* ((#82=#:g5947 (lisp::quote (conditions::internal-end-of-file (conditions::internal-error lisp::end-of-file))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #82# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-end-of-file) #14# lisp::nil) (system::mf (lisp::quote #83=#:|Defclass INTERNAL-SIMPLE-FILE-ERROR5976|) 47) (#83#) (lisp::let* ((#84=#:g5996 (lisp::quote (conditions::internal-simple-file-error (conditions::internal-simple-error lisp::file-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #84# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-simple-file-error) #14# lisp::nil) (system::mf (lisp::quote #85=#:|Defclass INTERNAL-SIMPLE-STREAM-ERROR6025|) 48) (#85#) (lisp::let* ((#86=#:g6045 (lisp::quote (conditions::internal-simple-stream-error (conditions::internal-simple-error lisp::stream-error))))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #86# conditions::*condition-class-list*))) (system::sputprop (lisp::quote conditions::internal-simple-stream-error) #14# lisp::nil) (system::*make-special (lisp::quote conditions::*simple-condition-class*)) (lisp::or (lisp::boundp (lisp::quote conditions::*simple-condition-class*)) (lisp::setq conditions::*simple-condition-class* (pcl::find-class (lisp::quote lisp::simple-condition)))) (system::mf (lisp::quote conditions::simple-condition-class-p) 49) (system::debug (lisp::quote conditions::simple-condition-printer) (lisp::quote (lisp::condition lisp::stream))) (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-ERROR T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::internal-simple-error-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::simple-condition-class-p) (lisp::quote (lisp::type))))))
5  )  )

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26