Method: (GENERATE AROUND T T)

Source

(defmethod generate :around (book generator)
  (let ((*print-case* (print-case generator)))
    (call-next-method)))