Hello,

I tried to define the user window closing behavior of some dialogs, as 
follows:

(defmethod user-close :before ((slot-list dialog))
   (if (equal (subseq (coerce (getf (stream-plist slot-list) :real-title) 
			'list)
               0 9)
          (coerce "Slot List" 'list))
         (remove-slot-list slot-list)))      

It works. However, whenever I close such a dialog, the dialog is closed 
but the *lisp-main-screen* window is brought to the front. This is very 
annoying.

What's wrong?

BTW, if someone knows how to use (arg (eql blah)) or some other tricks to 
avoid adding a before method to the general dialog class, pls let me know.

Thanks.


- sam