;;; How to use DefWrapper... 
;;; A simple example:

(defflavor thing (a b c) nil :inittable-instance-variables :settable-instance-variables)

(defmethod (thing :show) (arg1)(print arg1)(print a) (print b) (print c) nil)

(defwrapper (thing :show) ((arg1) . body) `(progn (format t "about to do :show ~s" arg1) . ,body))

(setq foo (make-instance 'thing :a 1 :b 2 :c 3))

(send foo :show 'x)