(defmethod reader-function ((type (eql ',name)) &rest args)
(declare (ignore type args))
(let ((reader (reader-function 'signed)))
(defmethod reader-function ((type (eql ',name)) &rest args)
(declare (ignore type args))
(let ((reader (reader-function 'signed)))