/[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.4 by camm, Tue Jul 15 18:03:36 2003 UTC revision 1.5 by camm, Mon Sep 22 22:03:47 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 :documentation conditions::cerror pcl::load-defclass #0=#:|Defclass CONDITION2299| 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 'compile2181|) 0 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2197|) 1 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2209|) 2 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2222|) 3 0) (#4#) (system::mm (lisp::quote conditions::define-condition) 4) (system::mf (lisp::quote #0#) 5) (system::mfsfun (lisp::quote #5=#:|progn 'compile2315|) 6 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2332|) 7 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2356|) 8 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2368|) 9 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2384|) 10 0) (#9#) (system::mfsfun (lisp::quote conditions::conditionp) 11 1) (system::mfsfun (lisp::quote #10=#:|progn 'compile2408|) 12 0) (#10#) (system::mfsfun (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|) 13 4) (system::mfsfun (lisp::quote #11=#:|progn 'compile2477|) 14 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2489|) 15 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2501|) 16 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2514|) 17 0) (#14#) (system::mfsfun (lisp::quote conditions::condition-class-p) 18 1) (system::mf (lisp::quote conditions::make-condition) 19))))  #(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 :documentation conditions::cerror pcl::load-defclass #0=#:|Defclass CONDITION2302| 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 'compile2184|) 0 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2200|) 1 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2212|) 2 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2225|) 3 0) (#4#) (system::mm (lisp::quote conditions::define-condition) 4) (system::mf (lisp::quote #0#) 5) (system::mfsfun (lisp::quote #5=#:|progn 'compile2318|) 6 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2335|) 7 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2359|) 8 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2371|) 9 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2387|) 10 0) (#9#) (system::mfsfun (lisp::quote conditions::conditionp) 11 1) (system::mfsfun (lisp::quote #10=#:|progn 'compile2411|) 12 0) (#10#) (system::mfsfun (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|) 13 4) (system::mfsfun (lisp::quote #11=#:|progn 'compile2480|) 14 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2492|) 15 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2504|) 16 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2517|) 17 0) (#14#) (system::mfsfun (lisp::quote conditions::condition-class-p) 18 1) (system::mf (lisp::quote conditions::make-condition) 19))))
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