(set *help* (table))
(set def (annotate 'mac
            (fn (name parms . body)
              `(do (sref sig ',parms ',name)
                   (if (is (type ',(car body)) 'string)
                       (if (is (is ',(cdr body) nil) nil)
                           (sref *help* ,(car body) ',name)))
                   (safeset ,name (fn ,parms ,@body))))))
(set help (annotate 'mac
             (fn (name) `(if (no (*help* ',name))
                             "Documentation unavailable"
                             (*help* ',name)))))