Added possibility to set classes on arguments

Now you may set

(defmessage class-a (:foo (i class-a) :at (j class-b))
   (call-with-a-a-and-b class-a i j))