/[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.4 by camm, Mon Sep 22 22:03:47 2003 UTC revision 1.5 by camm, Tue Sep 23 21:48:26 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 WARNING2251| #12=#:|Defclass SERIOUS-CONDITION2340| #13=#:|Defclass ERROR2429| conditions::simple-condition-format-string conditions::simple-condition-format-arguments pcl::false #14=#:|Defclass SIMPLE-CONDITION2526| 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-WARNING2822| #16=#:|Defclass SIMPLE-ERROR2911| #17=#:|Defclass STORAGE-CONDITION3000| #18=#:|Defclass STACK-OVERFLOW3089| #19=#:|Defclass STORAGE-EXHAUSTED3178| #20=#:|Defclass TYPE-ERROR3267| conditions::type-error-datum conditions::type-error-expected-type conditions::|(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T))| #21=#:|Defclass SIMPLE-TYPE-ERROR3567| #22=#:|Defclass CASE-FAILURE3656| conditions::case-failure-name conditions::case-failure-possibilities conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))| #23=#:|Defclass PROGRAM-ERROR3956| #24=#:|Defclass CONTROL-ERROR4045| #25=#:|Defclass STREAM-ERROR4134| #26=#:|Defclass END-OF-FILE4224| conditions::stream-error-stream conditions::|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))| #27=#:|Defclass FILE-ERROR4522| #28=#:|Defclass PACKAGE-ERROR4612| conditions::package-error-package conditions::package-error-message conditions::|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))| #29=#:|Defclass CELL-ERROR4912| #30=#:|Defclass UNBOUND-VARIABLE5002| conditions::cell-error-name conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))| #31=#:|Defclass UNDEFINED-FUNCTION5300| conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))| #32=#:|Defclass ARITHMETIC-ERROR5598| #33=#:|Defclass DIVISION-BY-ZERO5688| #34=#:|Defclass FLOATING-POINT-OVERFLOW5777| #35=#:|Defclass FLOATING-POINT-UNDERFLOW5866| #36=#:|Defclass ABORT-FAILURE5955| conditions::|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))| #37=#:|Defclass INTERNAL-ERROR6257| conditions::internal-error-function-name conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))| #38=#:|Defclass INTERNAL-SIMPLE-ERROR6684| conditions::internal-simple-error-printer conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))| #39=#:|Defclass INTERNAL-TYPE-ERROR6978| #40=#:|Defclass INTERNAL-PACKAGE-ERROR7067| #41=#:|Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7156| #42=#:|Defclass INTERNAL-SIMPLE-CONTROL-ERROR7245| #43=#:|Defclass INTERNAL-UNBOUND-VARIABLE7334| #44=#:|Defclass INTERNAL-UNDEFINED-FUNCTION7423| #45=#:|Defclass INTERNAL-END-OF-FILE7512| #46=#:|Defclass INTERNAL-SIMPLE-FILE-ERROR7601| #47=#:|Defclass INTERNAL-SIMPLE-STREAM-ERROR7690| system::*make-special pcl::find-class lisp::typep pcl::class-precedence-list (system::%init . #((system::mfsfun (lisp::quote #48=#:|progn 'compile2185|) 0 0) (#48#) (system::mfsfun (lisp::quote #49=#:|progn 'compile2205|) 1 0) (#49#) (system::mf (lisp::quote #11#) 2) (system::mfsfun (lisp::quote #50=#:|progn 'compile2267|) 3 0) (#50#) (system::mfsfun (lisp::quote #51=#:|progn 'compile2284|) 4 0) (#51#) (system::mfsfun (lisp::quote #52=#:|progn 'compile2308|) 5 0) (#52#) (system::mfsfun (lisp::quote #53=#:|progn 'compile2320|) 6 0) (#53#) (system::mf (lisp::quote #12#) 7) (system::mfsfun (lisp::quote #54=#:|progn 'compile2356|) 8 0) (#54#) (system::mfsfun (lisp::quote #55=#:|progn 'compile2373|) 9 0) (#55#) (system::mfsfun (lisp::quote #56=#:|progn 'compile2397|) 10 0) (#56#) (system::mfsfun (lisp::quote #57=#:|progn 'compile2409|) 11 0) (#57#) (system::mf (lisp::quote #13#) 12) (system::mfsfun (lisp::quote #58=#:|progn 'compile2445|) 13 0) (#58#) (system::mfsfun (lisp::quote #59=#:|progn 'compile2462|) 14 0) (#59#) (system::mfsfun (lisp::quote #60=#:|progn 'compile2486|) 15 0) (#60#) (system::mfsfun (lisp::quote #61=#:|progn 'compile2498|) 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 'compile2544|) 19 0) (#62#) (system::mfsfun (lisp::quote #63=#:|progn 'compile2561|) 20 0) (#63#) (system::mfsfun (lisp::quote #64=#:|progn 'compile2585|) 21 0) (#64#) (system::mfsfun (lisp::quote #65=#:|progn 'compile2601|) 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 'compile2794|) 24 0) (#66#) (system::mfsfun (lisp::quote #67=#:|progn 'compile2802|) 25 0) (#67#) (system::mf (lisp::quote #15#) 26) (system::mfsfun (lisp::quote #68=#:|progn 'compile2838|) 27 0) (#68#) (system::mfsfun (lisp::quote #69=#:|progn 'compile2855|) 28 0) (#69#) (system::mfsfun (lisp::quote #70=#:|progn 'compile2879|) 29 0) (#70#) (system::mfsfun (lisp::quote #71=#:|progn 'compile2891|) 30 0) (#71#) (system::mf (lisp::quote #16#) 31) (system::mfsfun (lisp::quote #72=#:|progn 'compile2927|) 32 0) (#72#) (system::mfsfun (lisp::quote #73=#:|progn 'compile2944|) 33 0) (#73#) (system::mfsfun (lisp::quote #74=#:|progn 'compile2968|) 34 0) (#74#) (system::mfsfun (lisp::quote #75=#:|progn 'compile2980|) 35 0) (#75#) (system::mf (lisp::quote #17#) 36) (system::mfsfun (lisp::quote #76=#:|progn 'compile3016|) 37 0) (#76#) (system::mfsfun (lisp::quote #77=#:|progn 'compile3033|) 38 0) (#77#) (system::mfsfun (lisp::quote #78=#:|progn 'compile3057|) 39 0) (#78#) (system::mfsfun (lisp::quote #79=#:|progn 'compile3069|) 40 0) (#79#) (system::mf (lisp::quote #18#) 41) (system::mfsfun (lisp::quote #80=#:|progn 'compile3105|) 42 0) (#80#) (system::mfsfun (lisp::quote #81=#:|progn 'compile3122|) 43 0) (#81#) (system::mfsfun (lisp::quote #82=#:|progn 'compile3146|) 44 0) (#82#) (system::mfsfun (lisp::quote #83=#:|progn 'compile3158|) 45 0) (#83#) (system::mf (lisp::quote #19#) 46) (system::mfsfun (lisp::quote #84=#:|progn 'compile3194|) 47 0) (#84#) (system::mfsfun (lisp::quote #85=#:|progn 'compile3211|) 48 0) (#85#) (system::mfsfun (lisp::quote #86=#:|progn 'compile3235|) 49 0) (#86#) (system::mfsfun (lisp::quote #87=#:|progn 'compile3247|) 50 0) (#87#) (system::mf (lisp::quote #20#) 51) (system::mfsfun (lisp::quote #88=#:|progn 'compile3285|) 52 0) (#88#) (system::mfsfun (lisp::quote #89=#:|progn 'compile3302|) 53 0) (#89#) (system::mfsfun (lisp::quote #90=#:|progn 'compile3326|) 54 0) (#90#) (system::mfsfun (lisp::quote #91=#:|progn 'compile3342|) 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 'compile3539|) 57 0) (#92#) (system::mfsfun (lisp::quote #93=#:|progn 'compile3547|) 58 0) (#93#) (system::mf (lisp::quote #21#) 59) (system::mfsfun (lisp::quote #94=#:|progn 'compile3583|) 60 0) (#94#) (system::mfsfun (lisp::quote #95=#:|progn 'compile3600|) 61 0) (#95#) (system::mfsfun (lisp::quote #96=#:|progn 'compile3624|) 62 0) (#96#) (system::mfsfun (lisp::quote #97=#:|progn 'compile3636|) 63 0) (#97#) (system::mf (lisp::quote #22#) 64) (system::mfsfun (lisp::quote #98=#:|progn 'compile3674|) 65 0) (#98#) (system::mfsfun (lisp::quote #99=#:|progn 'compile3691|) 66 0) (#99#) (system::mfsfun (lisp::quote #100=#:|progn 'compile3715|) 67 0) (#100#) (system::mfsfun (lisp::quote #101=#:|progn 'compile3731|) 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 'compile3928|) 70 0) (#102#) (system::mfsfun (lisp::quote #103=#:|progn 'compile3936|) 71 0) (#103#) (system::mf (lisp::quote #23#) 72) (system::mfsfun (lisp::quote #104=#:|progn 'compile3972|) 73 0) (#104#) (system::mfsfun (lisp::quote #105=#:|progn 'compile3989|) 74 0) (#105#) (system::mfsfun (lisp::quote #106=#:|progn 'compile4013|) 75 0) (#106#) (system::mfsfun (lisp::quote #107=#:|progn 'compile4025|) 76 0) (#107#) (system::mf (lisp::quote #24#) 77) (system::mfsfun (lisp::quote #108=#:|progn 'compile4061|) 78 0) (#108#) (system::mfsfun (lisp::quote #109=#:|progn 'compile4078|) 79 0) (#109#) (system::mfsfun (lisp::quote #110=#:|progn 'compile4102|) 80 0) (#110#) (system::mfsfun (lisp::quote #111=#:|progn 'compile4114|) 81 0) (#111#) (system::mf (lisp::quote #25#) 82) (system::mfsfun (lisp::quote #112=#:|progn 'compile4151|) 83 0) (#112#) (system::mfsfun (lisp::quote #113=#:|progn 'compile4168|) 84 0) (#113#) (system::mfsfun (lisp::quote #114=#:|progn 'compile4192|) 85 0) (#114#) (system::mfsfun (lisp::quote #115=#:|progn 'compile4204|) 86 0) (#115#) (system::mf (lisp::quote #26#) 87) (system::mfsfun (lisp::quote #116=#:|progn 'compile4240|) 88 0) (#116#) (system::mfsfun (lisp::quote #117=#:|progn 'compile4257|) 89 0) (#117#) (system::mfsfun (lisp::quote #118=#:|progn 'compile4281|) 90 0) (#118#) (system::mfsfun (lisp::quote #119=#:|progn 'compile4297|) 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 'compile4494|) 93 0) (#120#) (system::mfsfun (lisp::quote #121=#:|progn 'compile4502|) 94 0) (#121#) (system::mf (lisp::quote #27#) 95) (system::mfsfun (lisp::quote #122=#:|progn 'compile4539|) 96 0) (#122#) (system::mfsfun (lisp::quote #123=#:|progn 'compile4556|) 97 0) (#123#) (system::mfsfun (lisp::quote #124=#:|progn 'compile4580|) 98 0) (#124#) (system::mfsfun (lisp::quote #125=#:|progn 'compile4592|) 99 0) (#125#) (system::mf (lisp::quote #28#) 100) (system::mfsfun (lisp::quote #126=#:|progn 'compile4630|) 101 0) (#126#) (system::mfsfun (lisp::quote #127=#:|progn 'compile4647|) 102 0) (#127#) (system::mfsfun (lisp::quote #128=#:|progn 'compile4671|) 103 0) (#128#) (system::mfsfun (lisp::quote #129=#:|progn 'compile4687|) 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 'compile4884|) 106 0) (#130#) (system::mfsfun (lisp::quote #131=#:|progn 'compile4892|) 107 0) (#131#) (system::mf (lisp::quote #29#) 108) (system::mfsfun (lisp::quote #132=#:|progn 'compile4929|) 109 0) (#132#) (system::mfsfun (lisp::quote #133=#:|progn 'compile4946|) 110 0) (#133#) (system::mfsfun (lisp::quote #134=#:|progn 'compile4970|) 111 0) (#134#) (system::mfsfun (lisp::quote #135=#:|progn 'compile4982|) 112 0) (#135#) (system::mf (lisp::quote #30#) 113) (system::mfsfun (lisp::quote #136=#:|progn 'compile5018|) 114 0) (#136#) (system::mfsfun (lisp::quote #137=#:|progn 'compile5035|) 115 0) (#137#) (system::mfsfun (lisp::quote #138=#:|progn 'compile5059|) 116 0) (#138#) (system::mfsfun (lisp::quote #139=#:|progn 'compile5075|) 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 'compile5272|) 119 0) (#140#) (system::mfsfun (lisp::quote #141=#:|progn 'compile5280|) 120 0) (#141#) (system::mf (lisp::quote #31#) 121) (system::mfsfun (lisp::quote #142=#:|progn 'compile5316|) 122 0) (#142#) (system::mfsfun (lisp::quote #143=#:|progn 'compile5333|) 123 0) (#143#) (system::mfsfun (lisp::quote #144=#:|progn 'compile5357|) 124 0) (#144#) (system::mfsfun (lisp::quote #145=#:|progn 'compile5373|) 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 'compile5570|) 127 0) (#146#) (system::mfsfun (lisp::quote #147=#:|progn 'compile5578|) 128 0) (#147#) (system::mf (lisp::quote #32#) 129) (system::mfsfun (lisp::quote #148=#:|progn 'compile5615|) 130 0) (#148#) (system::mfsfun (lisp::quote #149=#:|progn 'compile5632|) 131 0) (#149#) (system::mfsfun (lisp::quote #150=#:|progn 'compile5656|) 132 0) (#150#) (system::mfsfun (lisp::quote #151=#:|progn 'compile5668|) 133 0) (#151#) (system::mf (lisp::quote #33#) 134) (system::mfsfun (lisp::quote #152=#:|progn 'compile5704|) 135 0) (#152#) (system::mfsfun (lisp::quote #153=#:|progn 'compile5721|) 136 0) (#153#) (system::mfsfun (lisp::quote #154=#:|progn 'compile5745|) 137 0) (#154#) (system::mfsfun (lisp::quote #155=#:|progn 'compile5757|) 138 0) (#155#) (system::mf (lisp::quote #34#) 139) (system::mfsfun (lisp::quote #156=#:|progn 'compile5793|) 140 0) (#156#) (system::mfsfun (lisp::quote #157=#:|progn 'compile5810|) 141 0) (#157#) (system::mfsfun (lisp::quote #158=#:|progn 'compile5834|) 142 0) (#158#) (system::mfsfun (lisp::quote #159=#:|progn 'compile5846|) 143 0) (#159#) (system::mf (lisp::quote #35#) 144) (system::mfsfun (lisp::quote #160=#:|progn 'compile5882|) 145 0) (#160#) (system::mfsfun (lisp::quote #161=#:|progn 'compile5899|) 146 0) (#161#) (system::mfsfun (lisp::quote #162=#:|progn 'compile5923|) 147 0) (#162#) (system::mfsfun (lisp::quote #163=#:|progn 'compile5935|) 148 0) (#163#) (system::mf (lisp::quote #36#) 149) (system::mfsfun (lisp::quote #164=#:|progn 'compile5971|) 150 0) (#164#) (system::mfsfun (lisp::quote #165=#:|progn 'compile5988|) 151 0) (#165#) (system::mfsfun (lisp::quote #166=#:|progn 'compile6012|) 152 0) (#166#) (system::mfsfun (lisp::quote #167=#:|progn 'compile6028|) 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 'compile6229|) 155 0) (#168#) (system::mfsfun (lisp::quote #169=#:|progn 'compile6237|) 156 0) (#169#) (system::mf (lisp::quote #37#) 157) (system::mfsfun (lisp::quote #170=#:|progn 'compile6274|) 158 0) (#170#) (system::mfsfun (lisp::quote #171=#:|progn 'compile6291|) 159 0) (#171#) (system::mfsfun (lisp::quote #172=#:|progn 'compile6315|) 160 0) (#172#) (system::mfsfun (lisp::quote #173=#:|progn 'compile6331|) 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 'compile6644|) 163 0) (#174#) (system::mfsfun (lisp::quote #175=#:|progn 'compile6652|) 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 'compile6700|) 167 0) (#176#) (system::mfsfun (lisp::quote #177=#:|progn 'compile6717|) 168 0) (#177#) (system::mfsfun (lisp::quote #178=#:|progn 'compile6741|) 169 0) (#178#) (system::mfsfun (lisp::quote #179=#:|progn 'compile6757|) 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 'compile6950|) 172 0) (#180#) (system::mfsfun (lisp::quote #181=#:|progn 'compile6958|) 173 0) (#181#) (system::mf (lisp::quote #39#) 174) (system::mfsfun (lisp::quote #182=#:|progn 'compile6994|) 175 0) (#182#) (system::mfsfun (lisp::quote #183=#:|progn 'compile7011|) 176 0) (#183#) (system::mfsfun (lisp::quote #184=#:|progn 'compile7035|) 177 0) (#184#) (system::mfsfun (lisp::quote #185=#:|progn 'compile7047|) 178 0) (#185#) (system::mf (lisp::quote #40#) 179) (system::mfsfun (lisp::quote #186=#:|progn 'compile7083|) 180 0) (#186#) (system::mfsfun (lisp::quote #187=#:|progn 'compile7100|) 181 0) (#187#) (system::mfsfun (lisp::quote #188=#:|progn 'compile7124|) 182 0) (#188#) (system::mfsfun (lisp::quote #189=#:|progn 'compile7136|) 183 0) (#189#) (system::mf (lisp::quote #41#) 184) (system::mfsfun (lisp::quote #190=#:|progn 'compile7172|) 185 0) (#190#) (system::mfsfun (lisp::quote #191=#:|progn 'compile7189|) 186 0) (#191#) (system::mfsfun (lisp::quote #192=#:|progn 'compile7213|) 187 0) (#192#) (system::mfsfun (lisp::quote #193=#:|progn 'compile7225|) 188 0) (#193#) (system::mf (lisp::quote #42#) 189) (system::mfsfun (lisp::quote #194=#:|progn 'compile7261|) 190 0) (#194#) (system::mfsfun (lisp::quote #195=#:|progn 'compile7278|) 191 0) (#195#) (system::mfsfun (lisp::quote #196=#:|progn 'compile7302|) 192 0) (#196#) (system::mfsfun (lisp::quote #197=#:|progn 'compile7314|) 193 0) (#197#) (system::mf (lisp::quote #43#) 194) (system::mfsfun (lisp::quote #198=#:|progn 'compile7350|) 195 0) (#198#) (system::mfsfun (lisp::quote #199=#:|progn 'compile7367|) 196 0) (#199#) (system::mfsfun (lisp::quote #200=#:|progn 'compile7391|) 197 0) (#200#) (system::mfsfun (lisp::quote #201=#:|progn 'compile7403|) 198 0) (#201#) (system::mf (lisp::quote #44#) 199) (system::mfsfun (lisp::quote #202=#:|progn 'compile7439|) 200 0) (#202#) (system::mfsfun (lisp::quote #203=#:|progn 'compile7456|) 201 0) (#203#) (system::mfsfun (lisp::quote #204=#:|progn 'compile7480|) 202 0) (#204#) (system::mfsfun (lisp::quote #205=#:|progn 'compile7492|) 203 0) (#205#) (system::mf (lisp::quote #45#) 204) (system::mfsfun (lisp::quote #206=#:|progn 'compile7528|) 205 0) (#206#) (system::mfsfun (lisp::quote #207=#:|progn 'compile7545|) 206 0) (#207#) (system::mfsfun (lisp::quote #208=#:|progn 'compile7569|) 207 0) (#208#) (system::mfsfun (lisp::quote #209=#:|progn 'compile7581|) 208 0) (#209#) (system::mf (lisp::quote #46#) 209) (system::mfsfun (lisp::quote #210=#:|progn 'compile7617|) 210 0) (#210#) (system::mfsfun (lisp::quote #211=#:|progn 'compile7634|) 211 0) (#211#) (system::mfsfun (lisp::quote #212=#:|progn 'compile7658|) 212 0) (#212#) (system::mfsfun (lisp::quote #213=#:|progn 'compile7670|) 213 0) (#213#) (system::mf (lisp::quote #47#) 214) (system::mfsfun (lisp::quote #214=#:|progn 'compile7706|) 215 0) (#214#) (system::mfsfun (lisp::quote #215=#:|progn 'compile7723|) 216 0) (#215#) (system::mfsfun (lisp::quote #216=#:|progn 'compile7747|) 217 0) (#216#) (system::mfsfun (lisp::quote #217=#:|progn 'compile7759|) 218 0) (#217#) (system::mfsfun (lisp::quote #218=#:|progn 'compile7775|) 219 0) (#218#) (system::mfsfun (lisp::quote #219=#:|progn 'compile7787|) 220 0) (#219#) (system::mfsfun (lisp::quote #220=#:|progn 'compile7800|) 221 0) (#220#) (system::mfsfun (lisp::quote conditions::simple-condition-class-p) 222 1))))  #(: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 WARNING2253| #12=#:|Defclass SERIOUS-CONDITION2342| #13=#:|Defclass ERROR2431| conditions::simple-condition-format-string conditions::simple-condition-format-arguments pcl::false #14=#:|Defclass SIMPLE-CONDITION2528| pcl::proclaim-defgeneric system::structure-subtype-p 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-WARNING2824| #16=#:|Defclass SIMPLE-ERROR2913| #17=#:|Defclass STORAGE-CONDITION3002| #18=#:|Defclass STACK-OVERFLOW3091| #19=#:|Defclass STORAGE-EXHAUSTED3180| #20=#:|Defclass TYPE-ERROR3269| conditions::type-error-datum conditions::type-error-expected-type conditions::|(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T))| #21=#:|Defclass SIMPLE-TYPE-ERROR3569| #22=#:|Defclass CASE-FAILURE3658| conditions::case-failure-name conditions::case-failure-possibilities conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))| #23=#:|Defclass PROGRAM-ERROR3958| #24=#:|Defclass CONTROL-ERROR4047| #25=#:|Defclass STREAM-ERROR4136| #26=#:|Defclass END-OF-FILE4226| conditions::stream-error-stream conditions::|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))| #27=#:|Defclass FILE-ERROR4524| #28=#:|Defclass PACKAGE-ERROR4614| conditions::package-error-package conditions::package-error-message conditions::|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))| #29=#:|Defclass CELL-ERROR4914| #30=#:|Defclass UNBOUND-VARIABLE5004| conditions::cell-error-name conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))| #31=#:|Defclass UNDEFINED-FUNCTION5302| conditions::|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))| #32=#:|Defclass ARITHMETIC-ERROR5600| #33=#:|Defclass DIVISION-BY-ZERO5690| #34=#:|Defclass FLOATING-POINT-OVERFLOW5779| #35=#:|Defclass FLOATING-POINT-UNDERFLOW5868| #36=#:|Defclass ABORT-FAILURE5957| conditions::|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))| #37=#:|Defclass INTERNAL-ERROR6259| conditions::internal-error-function-name conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))| #38=#:|Defclass INTERNAL-SIMPLE-ERROR6686| conditions::internal-simple-error-printer conditions::|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))| #39=#:|Defclass INTERNAL-TYPE-ERROR6980| #40=#:|Defclass INTERNAL-PACKAGE-ERROR7069| #41=#:|Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7158| #42=#:|Defclass INTERNAL-SIMPLE-CONTROL-ERROR7247| #43=#:|Defclass INTERNAL-UNBOUND-VARIABLE7336| #44=#:|Defclass INTERNAL-UNDEFINED-FUNCTION7425| #45=#:|Defclass INTERNAL-END-OF-FILE7514| #46=#:|Defclass INTERNAL-SIMPLE-FILE-ERROR7603| #47=#:|Defclass INTERNAL-SIMPLE-STREAM-ERROR7692| system::*make-special pcl::find-class lisp::typep pcl::class-precedence-list (system::%init . #((system::mfsfun (lisp::quote #48=#:|progn 'compile2187|) 0 0) (#48#) (system::mfsfun (lisp::quote #49=#:|progn 'compile2207|) 1 0) (#49#) (system::mf (lisp::quote #11#) 2) (system::mfsfun (lisp::quote #50=#:|progn 'compile2269|) 3 0) (#50#) (system::mfsfun (lisp::quote #51=#:|progn 'compile2286|) 4 0) (#51#) (system::mfsfun (lisp::quote #52=#:|progn 'compile2310|) 5 0) (#52#) (system::mfsfun (lisp::quote #53=#:|progn 'compile2322|) 6 0) (#53#) (system::mf (lisp::quote #12#) 7) (system::mfsfun (lisp::quote #54=#:|progn 'compile2358|) 8 0) (#54#) (system::mfsfun (lisp::quote #55=#:|progn 'compile2375|) 9 0) (#55#) (system::mfsfun (lisp::quote #56=#:|progn 'compile2399|) 10 0) (#56#) (system::mfsfun (lisp::quote #57=#:|progn 'compile2411|) 11 0) (#57#) (system::mf (lisp::quote #13#) 12) (system::mfsfun (lisp::quote #58=#:|progn 'compile2447|) 13 0) (#58#) (system::mfsfun (lisp::quote #59=#:|progn 'compile2464|) 14 0) (#59#) (system::mfsfun (lisp::quote #60=#:|progn 'compile2488|) 15 0) (#60#) (system::mfsfun (lisp::quote #61=#:|progn 'compile2500|) 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 'compile2546|) 19 0) (#62#) (system::mfsfun (lisp::quote #63=#:|progn 'compile2563|) 20 0) (#63#) (system::mfsfun (lisp::quote #64=#:|progn 'compile2587|) 21 0) (#64#) (system::mfsfun (lisp::quote #65=#:|progn 'compile2603|) 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 'compile2796|) 24 0) (#66#) (system::mfsfun (lisp::quote #67=#:|progn 'compile2804|) 25 0) (#67#) (system::mf (lisp::quote #15#) 26) (system::mfsfun (lisp::quote #68=#:|progn 'compile2840|) 27 0) (#68#) (system::mfsfun (lisp::quote #69=#:|progn 'compile2857|) 28 0) (#69#) (system::mfsfun (lisp::quote #70=#:|progn 'compile2881|) 29 0) (#70#) (system::mfsfun (lisp::quote #71=#:|progn 'compile2893|) 30 0) (#71#) (system::mf (lisp::quote #16#) 31) (system::mfsfun (lisp::quote #72=#:|progn 'compile2929|) 32 0) (#72#) (system::mfsfun (lisp::quote #73=#:|progn 'compile2946|) 33 0) (#73#) (system::mfsfun (lisp::quote #74=#:|progn 'compile2970|) 34 0) (#74#) (system::mfsfun (lisp::quote #75=#:|progn 'compile2982|) 35 0) (#75#) (system::mf (lisp::quote #17#) 36) (system::mfsfun (lisp::quote #76=#:|progn 'compile3018|) 37 0) (#76#) (system::mfsfun (lisp::quote #77=#:|progn 'compile3035|) 38 0) (#77#) (system::mfsfun (lisp::quote #78=#:|progn 'compile3059|) 39 0) (#78#) (system::mfsfun (lisp::quote #79=#:|progn 'compile3071|) 40 0) (#79#) (system::mf (lisp::quote #18#) 41) (system::mfsfun (lisp::quote #80=#:|progn 'compile3107|) 42 0) (#80#) (system::mfsfun (lisp::quote #81=#:|progn 'compile3124|) 43 0) (#81#) (system::mfsfun (lisp::quote #82=#:|progn 'compile3148|) 44 0) (#82#) (system::mfsfun (lisp::quote #83=#:|progn 'compile3160|) 45 0) (#83#) (system::mf (lisp::quote #19#) 46) (system::mfsfun (lisp::quote #84=#:|progn 'compile3196|) 47 0) (#84#) (system::mfsfun (lisp::quote #85=#:|progn 'compile3213|) 48 0) (#85#) (system::mfsfun (lisp::quote #86=#:|progn 'compile3237|) 49 0) (#86#) (system::mfsfun (lisp::quote #87=#:|progn 'compile3249|) 50 0) (#87#) (system::mf (lisp::quote #20#) 51) (system::mfsfun (lisp::quote #88=#:|progn 'compile3287|) 52 0) (#88#) (system::mfsfun (lisp::quote #89=#:|progn 'compile3304|) 53 0) (#89#) (system::mfsfun (lisp::quote #90=#:|progn 'compile3328|) 54 0) (#90#) (system::mfsfun (lisp::quote #91=#:|progn 'compile3344|) 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 'compile3541|) 57 0) (#92#) (system::mfsfun (lisp::quote #93=#:|progn 'compile3549|) 58 0) (#93#) (system::mf (lisp::quote #21#) 59) (system::mfsfun (lisp::quote #94=#:|progn 'compile3585|) 60 0) (#94#) (system::mfsfun (lisp::quote #95=#:|progn 'compile3602|) 61 0) (#95#) (system::mfsfun (lisp::quote #96=#:|progn 'compile3626|) 62 0) (#96#) (system::mfsfun (lisp::quote #97=#:|progn 'compile3638|) 63 0) (#97#) (system::mf (lisp::quote #22#) 64) (system::mfsfun (lisp::quote #98=#:|progn 'compile3676|) 65 0) (#98#) (system::mfsfun (lisp::quote #99=#:|progn 'compile3693|) 66 0) (#99#) (system::mfsfun (lisp::quote #100=#:|progn 'compile3717|) 67 0) (#100#) (system::mfsfun (lisp::quote #101=#:|progn 'compile3733|) 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 'compile3930|) 70 0) (#102#) (system::mfsfun (lisp::quote #103=#:|progn 'compile3938|) 71 0) (#103#) (system::mf (lisp::quote #23#) 72) (system::mfsfun (lisp::quote #104=#:|progn 'compile3974|) 73 0) (#104#) (system::mfsfun (lisp::quote #105=#:|progn 'compile3991|) 74 0) (#105#) (system::mfsfun (lisp::quote #106=#:|progn 'compile4015|) 75 0) (#106#) (system::mfsfun (lisp::quote #107=#:|progn 'compile4027|) 76 0) (#107#) (system::mf (lisp::quote #24#) 77) (system::mfsfun (lisp::quote #108=#:|progn 'compile4063|) 78 0) (#108#) (system::mfsfun (lisp::quote #109=#:|progn 'compile4080|) 79 0) (#109#) (system::mfsfun (lisp::quote #110=#:|progn 'compile4104|) 80 0) (#110#) (system::mfsfun (lisp::quote #111=#:|progn 'compile4116|) 81 0) (#111#) (system::mf (lisp::quote #25#) 82) (system::mfsfun (lisp::quote #112=#:|progn 'compile4153|) 83 0) (#112#) (system::mfsfun (lisp::quote #113=#:|progn 'compile4170|) 84 0) (#113#) (system::mfsfun (lisp::quote #114=#:|progn 'compile4194|) 85 0) (#114#) (system::mfsfun (lisp::quote #115=#:|progn 'compile4206|) 86 0) (#115#) (system::mf (lisp::quote #26#) 87) (system::mfsfun (lisp::quote #116=#:|progn 'compile4242|) 88 0) (#116#) (system::mfsfun (lisp::quote #117=#:|progn 'compile4259|) 89 0) (#117#) (system::mfsfun (lisp::quote #118=#:|progn 'compile4283|) 90 0) (#118#) (system::mfsfun (lisp::quote #119=#:|progn 'compile4299|) 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 'compile4496|) 93 0) (#120#) (system::mfsfun (lisp::quote #121=#:|progn 'compile4504|) 94 0) (#121#) (system::mf (lisp::quote #27#) 95) (system::mfsfun (lisp::quote #122=#:|progn 'compile4541|) 96 0) (#122#) (system::mfsfun (lisp::quote #123=#:|progn 'compile4558|) 97 0) (#123#) (system::mfsfun (lisp::quote #124=#:|progn 'compile4582|) 98 0) (#124#) (system::mfsfun (lisp::quote #125=#:|progn 'compile4594|) 99 0) (#125#) (system::mf (lisp::quote #28#) 100) (system::mfsfun (lisp::quote #126=#:|progn 'compile4632|) 101 0) (#126#) (system::mfsfun (lisp::quote #127=#:|progn 'compile4649|) 102 0) (#127#) (system::mfsfun (lisp::quote #128=#:|progn 'compile4673|) 103 0) (#128#) (system::mfsfun (lisp::quote #129=#:|progn 'compile4689|) 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 'compile4886|) 106 0) (#130#) (system::mfsfun (lisp::quote #131=#:|progn 'compile4894|) 107 0) (#131#) (system::mf (lisp::quote #29#) 108) (system::mfsfun (lisp::quote #132=#:|progn 'compile4931|) 109 0) (#132#) (system::mfsfun (lisp::quote #133=#:|progn 'compile4948|) 110 0) (#133#) (system::mfsfun (lisp::quote #134=#:|progn 'compile4972|) 111 0) (#134#) (system::mfsfun (lisp::quote #135=#:|progn 'compile4984|) 112 0) (#135#) (system::mf (lisp::quote #30#) 113) (system::mfsfun (lisp::quote #136=#:|progn 'compile5020|) 114 0) (#136#) (system::mfsfun (lisp::quote #137=#:|progn 'compile5037|) 115 0) (#137#) (system::mfsfun (lisp::quote #138=#:|progn 'compile5061|) 116 0) (#138#) (system::mfsfun (lisp::quote #139=#:|progn 'compile5077|) 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 'compile5274|) 119 0) (#140#) (system::mfsfun (lisp::quote #141=#:|progn 'compile5282|) 120 0) (#141#) (system::mf (lisp::quote #31#) 121) (system::mfsfun (lisp::quote #142=#:|progn 'compile5318|) 122 0) (#142#) (system::mfsfun (lisp::quote #143=#:|progn 'compile5335|) 123 0) (#143#) (system::mfsfun (lisp::quote #144=#:|progn 'compile5359|) 124 0) (#144#) (system::mfsfun (lisp::quote #145=#:|progn 'compile5375|) 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 'compile5572|) 127 0) (#146#) (system::mfsfun (lisp::quote #147=#:|progn 'compile5580|) 128 0) (#147#) (system::mf (lisp::quote #32#) 129) (system::mfsfun (lisp::quote #148=#:|progn 'compile5617|) 130 0) (#148#) (system::mfsfun (lisp::quote #149=#:|progn 'compile5634|) 131 0) (#149#) (system::mfsfun (lisp::quote #150=#:|progn 'compile5658|) 132 0) (#150#) (system::mfsfun (lisp::quote #151=#:|progn 'compile5670|) 133 0) (#151#) (system::mf (lisp::quote #33#) 134) (system::mfsfun (lisp::quote #152=#:|progn 'compile5706|) 135 0) (#152#) (system::mfsfun (lisp::quote #153=#:|progn 'compile5723|) 136 0) (#153#) (system::mfsfun (lisp::quote #154=#:|progn 'compile5747|) 137 0) (#154#) (system::mfsfun (lisp::quote #155=#:|progn 'compile5759|) 138 0) (#155#) (system::mf (lisp::quote #34#) 139) (system::mfsfun (lisp::quote #156=#:|progn 'compile5795|) 140 0) (#156#) (system::mfsfun (lisp::quote #157=#:|progn 'compile5812|) 141 0) (#157#) (system::mfsfun (lisp::quote #158=#:|progn 'compile5836|) 142 0) (#158#) (system::mfsfun (lisp::quote #159=#:|progn 'compile5848|) 143 0) (#159#) (system::mf (lisp::quote #35#) 144) (system::mfsfun (lisp::quote #160=#:|progn 'compile5884|) 145 0) (#160#) (system::mfsfun (lisp::quote #161=#:|progn 'compile5901|) 146 0) (#161#) (system::mfsfun (lisp::quote #162=#:|progn 'compile5925|) 147 0) (#162#) (system::mfsfun (lisp::quote #163=#:|progn 'compile5937|) 148 0) (#163#) (system::mf (lisp::quote #36#) 149) (system::mfsfun (lisp::quote #164=#:|progn 'compile5973|) 150 0) (#164#) (system::mfsfun (lisp::quote #165=#:|progn 'compile5990|) 151 0) (#165#) (system::mfsfun (lisp::quote #166=#:|progn 'compile6014|) 152 0) (#166#) (system::mfsfun (lisp::quote #167=#:|progn 'compile6030|) 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 'compile6231|) 155 0) (#168#) (system::mfsfun (lisp::quote #169=#:|progn 'compile6239|) 156 0) (#169#) (system::mf (lisp::quote #37#) 157) (system::mfsfun (lisp::quote #170=#:|progn 'compile6276|) 158 0) (#170#) (system::mfsfun (lisp::quote #171=#:|progn 'compile6293|) 159 0) (#171#) (system::mfsfun (lisp::quote #172=#:|progn 'compile6317|) 160 0) (#172#) (system::mfsfun (lisp::quote #173=#:|progn 'compile6333|) 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 'compile6646|) 163 0) (#174#) (system::mfsfun (lisp::quote #175=#:|progn 'compile6654|) 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 'compile6702|) 167 0) (#176#) (system::mfsfun (lisp::quote #177=#:|progn 'compile6719|) 168 0) (#177#) (system::mfsfun (lisp::quote #178=#:|progn 'compile6743|) 169 0) (#178#) (system::mfsfun (lisp::quote #179=#:|progn 'compile6759|) 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 'compile6952|) 172 0) (#180#) (system::mfsfun (lisp::quote #181=#:|progn 'compile6960|) 173 0) (#181#) (system::mf (lisp::quote #39#) 174) (system::mfsfun (lisp::quote #182=#:|progn 'compile6996|) 175 0) (#182#) (system::mfsfun (lisp::quote #183=#:|progn 'compile7013|) 176 0) (#183#) (system::mfsfun (lisp::quote #184=#:|progn 'compile7037|) 177 0) (#184#) (system::mfsfun (lisp::quote #185=#:|progn 'compile7049|) 178 0) (#185#) (system::mf (lisp::quote #40#) 179) (system::mfsfun (lisp::quote #186=#:|progn 'compile7085|) 180 0) (#186#) (system::mfsfun (lisp::quote #187=#:|progn 'compile7102|) 181 0) (#187#) (system::mfsfun (lisp::quote #188=#:|progn 'compile7126|) 182 0) (#188#) (system::mfsfun (lisp::quote #189=#:|progn 'compile7138|) 183 0) (#189#) (system::mf (lisp::quote #41#) 184) (system::mfsfun (lisp::quote #190=#:|progn 'compile7174|) 185 0) (#190#) (system::mfsfun (lisp::quote #191=#:|progn 'compile7191|) 186 0) (#191#) (system::mfsfun (lisp::quote #192=#:|progn 'compile7215|) 187 0) (#192#) (system::mfsfun (lisp::quote #193=#:|progn 'compile7227|) 188 0) (#193#) (system::mf (lisp::quote #42#) 189) (system::mfsfun (lisp::quote #194=#:|progn 'compile7263|) 190 0) (#194#) (system::mfsfun (lisp::quote #195=#:|progn 'compile7280|) 191 0) (#195#) (system::mfsfun (lisp::quote #196=#:|progn 'compile7304|) 192 0) (#196#) (system::mfsfun (lisp::quote #197=#:|progn 'compile7316|) 193 0) (#197#) (system::mf (lisp::quote #43#) 194) (system::mfsfun (lisp::quote #198=#:|progn 'compile7352|) 195 0) (#198#) (system::mfsfun (lisp::quote #199=#:|progn 'compile7369|) 196 0) (#199#) (system::mfsfun (lisp::quote #200=#:|progn 'compile7393|) 197 0) (#200#) (system::mfsfun (lisp::quote #201=#:|progn 'compile7405|) 198 0) (#201#) (system::mf (lisp::quote #44#) 199) (system::mfsfun (lisp::quote #202=#:|progn 'compile7441|) 200 0) (#202#) (system::mfsfun (lisp::quote #203=#:|progn 'compile7458|) 201 0) (#203#) (system::mfsfun (lisp::quote #204=#:|progn 'compile7482|) 202 0) (#204#) (system::mfsfun (lisp::quote #205=#:|progn 'compile7494|) 203 0) (#205#) (system::mf (lisp::quote #45#) 204) (system::mfsfun (lisp::quote #206=#:|progn 'compile7530|) 205 0) (#206#) (system::mfsfun (lisp::quote #207=#:|progn 'compile7547|) 206 0) (#207#) (system::mfsfun (lisp::quote #208=#:|progn 'compile7571|) 207 0) (#208#) (system::mfsfun (lisp::quote #209=#:|progn 'compile7583|) 208 0) (#209#) (system::mf (lisp::quote #46#) 209) (system::mfsfun (lisp::quote #210=#:|progn 'compile7619|) 210 0) (#210#) (system::mfsfun (lisp::quote #211=#:|progn 'compile7636|) 211 0) (#211#) (system::mfsfun (lisp::quote #212=#:|progn 'compile7660|) 212 0) (#212#) (system::mfsfun (lisp::quote #213=#:|progn 'compile7672|) 213 0) (#213#) (system::mf (lisp::quote #47#) 214) (system::mfsfun (lisp::quote #214=#:|progn 'compile7708|) 215 0) (#214#) (system::mfsfun (lisp::quote #215=#:|progn 'compile7725|) 216 0) (#215#) (system::mfsfun (lisp::quote #216=#:|progn 'compile7749|) 217 0) (#216#) (system::mfsfun (lisp::quote #217=#:|progn 'compile7761|) 218 0) (#217#) (system::mfsfun (lisp::quote #218=#:|progn 'compile7777|) 219 0) (#218#) (system::mfsfun (lisp::quote #219=#:|progn 'compile7789|) 220 0) (#219#) (system::mfsfun (lisp::quote #220=#:|progn 'compile7802|) 221 0) (#220#) (system::mfsfun (lisp::quote conditions::simple-condition-class-p) 222 1) (system::debug (lisp::quote #49#) (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-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-ERROR T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))))))
5  )  )

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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