/[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.3.4.1 by camm, Wed Jul 16 02:02:46 2003 UTC revision 1.3.4.1.4.1 by camm, Tue Sep 23 18:39:17 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))))  #(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 conditions::*condition-class-list* lisp::setf lisp::get #0=(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 "#<~S.~D>" "The condition ~A occurred." 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 :report :documentation conditions::cerror pcl::load-defclass lisp::typep pcl::class-of pcl::class-name conditions::unique-id pcl::find-class pcl::class-precedence-list conditions::condition-class-p conditions::error pcl::make-instance (system::%init . #((lisp::if (lisp::fboundp (lisp::quote conditions::remove-clcs-symbols)) (lisp::progn (conditions::remove-clcs-symbols))) (system::*make-special (lisp::quote conditions::*condition-class-list*)) (lisp::or (lisp::boundp (lisp::quote conditions::*condition-class-list*)) (lisp::setq conditions::*condition-class-list* lisp::nil)) (system::mm (lisp::quote conditions::define-condition) 0) (system::mf (lisp::quote #1=#:|Defclass CONDITION2258|) 1) (#1#) (lisp::let* ((#2=#:g2278 (lisp::quote (lisp::condition lisp::nil)))) (lisp::setq conditions::*condition-class-list* (lisp::adjoin #2# conditions::*condition-class-list*))) (system::sputprop (lisp::quote lisp::condition) #0# lisp::nil) (lisp::if (lisp::fboundp (lisp::quote pcl::proclaim-incompatible-superclasses)) (lisp::progn (lisp::mapc (lisp::function pcl::proclaim-incompatible-superclasses) (lisp::quote ((lisp::condition pcl::metaobject)))))) (system::mf (lisp::quote conditions::conditionp) 2) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((conditions::x lisp::condition) lisp::stream))) (system::mf (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|) 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::condition lisp::t)) (lisp::quote (conditions::x lisp::stream)) (lisp::list* :fast-function (lisp::function conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (system::*make-special (lisp::quote conditions::*condition-class*)) (lisp::or (lisp::boundp (lisp::quote conditions::*condition-class*)) (lisp::setq conditions::*condition-class* (pcl::find-class (lisp::quote lisp::condition)))) (system::mf (lisp::quote conditions::condition-class-p) 4) (system::mf (lisp::quote conditions::make-condition) 5) (system::debug (lisp::quote conditions::conditionp) (lisp::quote (lisp::object))) (system::debug (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. conditions::x lisp::stream))) (system::debug (lisp::quote conditions::condition-class-p) (lisp::quote (lisp::type))) (system::debug (lisp::quote conditions::make-condition) (lisp::quote (lisp::type conditions::slot-initializations))))))
5  )  )

Legend:
Removed from v.1.3.4.1  
changed lines
  Added in v.1.3.4.1.4.1

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