;;AUTOLOAD: map-all-symbols
;;AUTODOC: map-all-symbols "iterate on all symbols"
"Usage:  (map-all-symbols lambda)

This function applies the lambda form to all symbols defined in 
the system. For instance the traditional oblist function return-
ing all the symbols in the system could be defined as:

(defun oblist (&aux (all (list)))
   (map-all-symbols 
	(lambda (symbol) (put all -1 symbol)))
   all)

Note: This function is only here for backwards compatibilty purposes. Please
      use do-all-symbols instead
"

(defun map-all-symbols (l)
  (do-all-symbols (symbol) (apply l (list symbol)))
)
