Plaster

CL-USER> (flet ((frob (stream arg colon at) (declare (ignore colon at)) (format stream "arg: ~S" arg))) (funcall (formatter "~/cl-user::frob/") t 42)) arg: 42 NIL