[elephant-devel] trivial patch

[Kilian Sprotte]

Hello,

I have a very simple patch:

controller-lost-error should inherit from simple-error, I think.

(define-condition controller-lost-error (simple-error)
    ((object :initarg :object :accessor store-controller-closed-error- 
object)
     (spec :initarg :spec :accessor store-controller-closed-error- 
spec)))

(defun signal-controller-lost-error (object)
   (cerror "Open a new instance and continue?"
	  'controller-lost-error
	  :format-control "Store controller for specification ~A for object  
~A cannot be found."
	  :format-arguments (list object (dbcn-spc-pst object))
	  :object object
	  :spec (dbcn-spc-pst object)))

I am amazed, how elephant has developed - wow!!

Best,
   Kilian


-------------- next part --------------
A non-text attachment was scrubbed...
Name: controller-lost-error.patch
Type: application/octet-stream
Size: 4503 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/elephant-devel/attachments/20070803/a4612d7f/attachment.obj>