(defstep rewrite-actual (definition-name)
  (then (use definition-name) (replace -1 :actuals? T) (hide -1))
  "rewrite definition"
  "By rewrite ~a")
