(setf (info :type :kind name) :defined)))
(setf (info :type :expander name) expander
(info :type :lambda-list name) lambda-list)
(setf (info :type :kind name) :defined)))
(setf (info :type :expander name) expander
(info :type :lambda-list name) lambda-list)