Commit e7fcfc67 authored by Antoine Martin's avatar Antoine Martin
Browse files

Add function to refresh everything

parent 64563ca5
......@@ -49,3 +49,20 @@
(concatenate 'string
(namestring (asdf:system-source-directory "quickref"))
"map-declt.lisp")))
(defun uninstall-releases ()
(dolist (release (ql-dist:provided-releases t))
(ql-dist:uninstall release)))
(defun quicklisp-software ()
(concatenate 'string
(namestring (ql-dist:base-directory (ql-dist:dist "quicklisp")))
"software/"))
(defun refresh (makeinfo-path)
(uninstall-releases)
(ql:update-all-dists :prompt nil)
(ql:update-client :prompt nil)
(build-releases)
(build-texis (quicklisp-software) makeinfo-path)
(build-index "quickref" "quickref/index.html"))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment