#(#! (lisp::in-package "CONDITIONS" :use (lisp::quote ("LISP" "PCL"))) #(conditions::remove-clcs-symbols conditions::*condition-class-list* lisp::lambda (lisp::condition lisp::stream) (lisp::declare (lisp::ignore lisp::condition)) lisp::write-string lisp::stream "Ignore this DEFINE-CONDITION option." "Invalid DEFINE-CONDITION option: ~S" lisp::progn (lisp::eval-when (lisp::compile) (lisp::setq pcl::*defclass-times* (lisp::quote (lisp::compile lisp::load lisp::eval)))) pcl::defclass lisp::eval-when (lisp::compile lisp::load lisp::eval) lisp::pushnew lisp::quote :initarg :type lisp::setf lisp::get (lisp::quote system::s-data) pcl::defmethod pcl::print-object conditions::x lisp::if lisp::*print-escape* (pcl::call-next-method) (conditions::x lisp::stream) lisp::condition lisp::standard-class (lisp::condition lisp::nil) system::s-data pcl::proclaim-incompatible-superclasses ((lisp::condition pcl::metaobject)) ((conditions::x lisp::condition) lisp::stream) "#<~S.~D>" "The condition ~A occurred." lisp::standard-method (lisp::condition lisp::t) (conditions::x lisp::stream) :fast-function (:plist (:arg-info (2))) conditions::*condition-class* lisp::simple-type-error :datum :expected-type (lisp::satisfies conditions::condition-class-p) :format-string "Not a condition type: ~S" :format-arguments system::*make-special :report :documentation conditions::cerror pcl::load-defclass #0=#:|Defclass CONDITION1794| lisp::typep pcl::proclaim-defgeneric pcl::class-of pcl::class-name conditions::unique-id conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))| pcl::load-defmethod pcl::find-class pcl::class-precedence-list conditions::condition-class-p conditions::error pcl::make-instance (system::%init . #((system::mfsfun (lisp::quote #1=#:|progn 'compile1788|) 0 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile1788|) 1 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile1788|) 2 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile1789|) 3 0) (#4#) (system::mm (lisp::quote conditions::define-condition) 4) (system::mf (lisp::quote #0#) 5) (system::mfsfun (lisp::quote #5=#:|progn 'compile1794|) 6 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile1795|) 7 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile1795|) 8 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile1795|) 9 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile1795|) 10 0) (#9#) (system::mf (lisp::quote conditions::conditionp) 11) (system::mfsfun (lisp::quote #10=#:|progn 'compile1795|) 12 0) (#10#) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|) 13) (system::mfsfun (lisp::quote #11=#:|progn 'compile1804|) 14 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile1804|) 15 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile1804|) 16 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile1805|) 17 0) (#14#) (system::mf (lisp::quote conditions::condition-class-p) 18) (system::mf (lisp::quote conditions::make-condition) 19)))) )