Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp:/tmp/cvs-serv9292/root/cells-gtk
Modified Files: conditions.lisp Log Message: trivial
--- /project/cells-gtk/cvsroot/root/cells-gtk/conditions.lisp 2005/02/26 22:22:05 1.2 +++ /project/cells-gtk/cvsroot/root/cells-gtk/conditions.lisp 2006/02/16 18:12:15 1.3 @@ -21,18 +21,18 @@ (defmacro gtk-report-error (type string &body args) `(error ',type :format-string ,string :format-arguments (list ,@args)))
-(define-condition gtk-continuable-error (condition) ()) +(define-condition gtk-continuable-error (condition) + ((text :initarg :text :reader text)))
(define-condition gtk-cells-error (gtk-continuable-error) - ((format-string :initarg :format-string) - (format-arguments :initarg :format-arguments)) - (:report (lambda (err stream) - (with-slots (format-string format-arguments) err - (apply #'format stream format-string format-arguments))))) + ((format-string :initarg :format-string :reader format-string) + (format-arguments :initarg :format-arguments :reader format-arguments)) + (:report (lambda (c stream) + (apply #'format stream (format-string c) (format-arguments c)))))
-(define-condition gtk-object-id-error (gtk-cells-error) - ()) +(define-condition gtk-object-id-error (gtk-cells-error) ())
-(define-condition gtk-user-signals-quit (condition) - ()) +(define-condition gtk-user-signals-quit (condition) ()) + +(export '(gtk-user-signals-quit gtk-continuable-error gtk-report-error))