(defmacro yoba ()
  (let ((body (read)))
    `(progn (format t "Body is ~a~%" ',body)
            ,body)))

(defun yoba-boba ()
  (yoba))

(yoba-boba)