;;AUTOLOAD: oblist
;;AUTODOC: oblist "list of all defined symbols"
;;(oblist)
;;
;; Returns the list of all defined symbols
;;it is there for compatibility and convenience, and is implemented via the 
;;built-in function "do-all-symbols"

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