(def *symbol-list* nil)

(do-all-symbols (x)
(let  (
      (z (string-downcase (symbol-name x)))
      )
(if z 
    (if (open (concatenate 'string xlisp::*default-path* "Help/" z)
             :direction :probe) 
        (setf *symbol-list* (append *symbol-list* (list z))))
    )
))

(setf *symbol-list* (sort *symbol-list* #'string<))

(provide "helper")