;;; -*- Mode:LISP; Base:10 -*-



(defmacro setf-have (obj var val)
  "SETF form to allow setting a variable binding of an object,
as in the following:
   (setf (ask obj 'var) val)"
  `(ask ,obj (have ,var ,val)))