(defmacro _ns (section_name &rest body)
  "These namespaces do nothing but help me organise my code. It does not break definition locations."
  ;; Here I should create a list by the name of each defun.

  ;; (tv (type section_name))
  ;; (tv section_name)

  (defvar (str2sym (concat "_ns/" (sym2str section_name))) (mapcar
                                                            (lambda (item)
                                                              (if (eq 'defun (car item))
                                                                  (car (cdr item))))
                                                            body))

  `(progn ,@body))


(_ns my-lists
     (defun list-string-predicates ()
       "List predicates that accept a string.")

     (defun list-symbol-predicates ()
       "list predicates that accept a symbol."
       )

     (defun list-number-predicates ()
       "List predicates that accept a number."
       )

     (defun apply-string-predicate ()
       "This should convert the parameter to a string and then test it."
       )

     (defun apply-symbol-predicate ()
       "This should convert the parameter to a symbol and then test it.")

     (defun apply-number-predicate ()
       "This should convert the parameter to a number and then test it."))