bin/regen-sbcl-completions @ 8ce6e1e14b22
Fix a few lisp things
author |
Steve Losh <steve@stevelosh.com> |
date |
Sat, 26 Mar 2016 12:14:16 +0000 |
parents |
d4ff64dea170 |
children |
(none) |
#!/usr/bin/env sbcl --script
(let (symbols)
(do-all-symbols (sym)
(let ((package (symbol-package sym)))
(cond
((not (fboundp sym)))
((or (eql #.(find-package :cl) package)
(eql #.(find-package :cl-user) package))
(pushnew (symbol-name sym) symbols))
((eql #.(find-package :keyword) package)
(pushnew (concatenate 'string ":" (symbol-name sym)) symbols))
(package
(pushnew (concatenate 'string (package-name package)
":"
(symbol-name sym))
symbols)))))
(with-open-file (output #.(concatenate 'string (posix-getenv "HOME")
"/.sbcl_completions")
:direction :output :if-exists :overwrite
:if-does-not-exist :create)
(format output "~{~(~A~)~%~}" (sort symbols #'string<))))