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

Diff of /gcl/clcs/clcs_conditions.data

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

revision 1.7 by camm, Thu Sep 25 16:11:28 2003 UTC revision 1.8 by camm, Fri Oct 3 16:03:15 2003 UTC
# Line 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package "CONDITIONS" :use (lisp::quote ("LISP" "PCL")))  (lisp::in-package "CONDITIONS" :use (lisp::quote ("LISP" "PCL")))
4  #(conditions::remove-clcs-symbols conditions::*condition-class-list* lisp::condition 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::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 :default-initargs :documentation conditions::cerror pcl::load-defclass #0=#:|Defclass CONDITION2304| 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 'compile2186|) 0 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2202|) 1 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2214|) 2 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2227|) 3 0) (#4#) (system::mm (lisp::quote conditions::define-condition) 4) (system::mf (lisp::quote #0#) 5) (system::mfsfun (lisp::quote #5=#:|progn 'compile2320|) 6 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2337|) 7 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2361|) 8 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2373|) 9 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2389|) 10 0) (#9#) (system::mfsfun (lisp::quote conditions::conditionp) 11 1) (system::mfsfun (lisp::quote #10=#:|progn 'compile2413|) 12 0) (#10#) (system::mfsfun (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|) 13 4) (system::mfsfun (lisp::quote #11=#:|progn 'compile2482|) 14 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2494|) 15 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2506|) 16 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2519|) 17 0) (#14#) (system::mfsfun (lisp::quote conditions::condition-class-p) 18 1) (system::mf (lisp::quote conditions::make-condition) 19) (system::debug (lisp::quote conditions::make-condition) (lisp::quote (lisp::type conditions::slot-initializations))))))  #(conditions::remove-clcs-symbols conditions::*condition-class-list* lisp::condition 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::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 :default-initargs :documentation conditions::cerror pcl::load-defclass #0=#:|Defclass CONDITION2309| 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 'compile2191|) 0 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2207|) 1 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2219|) 2 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2232|) 3 0) (#4#) (system::mm (lisp::quote conditions::define-condition) 4) (system::mf (lisp::quote #0#) 5) (system::mfsfun (lisp::quote #5=#:|progn 'compile2325|) 6 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2342|) 7 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2366|) 8 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2378|) 9 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2394|) 10 0) (#9#) (system::mfsfun (lisp::quote conditions::conditionp) 11 1) (system::mfsfun (lisp::quote #10=#:|progn 'compile2418|) 12 0) (#10#) (system::mfsfun (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|) 13 4) (system::mfsfun (lisp::quote #11=#:|progn 'compile2487|) 14 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2499|) 15 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2511|) 16 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2524|) 17 0) (#14#) (system::mfsfun (lisp::quote conditions::condition-class-p) 18 1) (system::mf (lisp::quote conditions::make-condition) 19) (system::debug (lisp::quote conditions::make-condition) (lisp::quote (lisp::type conditions::slot-initializations))))))
5  )  )

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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