(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)
                           (= (*help* ',name) ,(car body))))
                   (safeset ,name (fn ,parms ,@body))))))
(set help (annotate 'mac
             (fn (name) `(if ~(*help* ',name)
                             "Documentation unavailable"
                             (*help* ',name)))))