;;;; format directive and support function for user-defined method
(def-format-directive #\/ (string start end colonp atsignp params)
;;;; format directive and support function for user-defined method
(def-format-directive #\/ (string start end colonp atsignp params)
(collect ((param-names) (bindings))
(dolist (param-and-offset params)
(let ((param (cdr param-and-offset)))
(collect ((param-names) (bindings))
(dolist (param-and-offset params)
(let ((param (cdr param-and-offset)))
(,symbol stream ,(expand-next-arg) ,colonp ,atsignp
,@(param-names))))))
(,symbol stream ,(expand-next-arg) ,colonp ,atsignp
,@(param-names))))))