gistfile1.lisp

#!/opt/local/bin/clisp -E UTF-8

(defvar *hyperspec-path* "/opt/local/share/doc/lisp/HyperSpec-7-0/HyperSpec/Data/Map_Sym.txt")

(with-open-file (in *hyperspec-path* :direction :input)
  (do ((line (read-line in nil nil) (read-line in nil nil)))
      ((not line))
    (and (string/= "../" line :end2 (min 3 (length line)))
         (format t "~(~A~)~%" line))))
;;
;; $ rlwrap.lisp > .sbcl_completions 
;; $ rlwrap.lisp > .ccl_completions 
;;