[aufreak]

  (defmacro set-sqrt (place v) `(setf ,place (* v v)))

should actually be

  (defun square (x) (* x x))
  (defmacro set-sqrt (place v) `(setf ,place (square ,v)))