Mine

(mapcar #'(lambda (w)
	    (mapcar #'(lambda (prop)
			(get-x-property w prop)) '(_NET_WM_NAME
						   _NET_WM_WINDOW_TYPE_DIALOG
						   _NET_WM_WINDOW_TYPE_SPLASH
						   _NET_WM_STATE_MODAL
						   _NET_WM_PID)))
	(remove-if-not #'(lambda (w)
			   (equal "Konqueror" (window-class w)))
		       (managed-windows)))