Skip to content

Instantly share code, notes, and snippets.

@marcoheisig

marcoheisig/quickload-all.lisp

Created April 19, 2020 10:26
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save marcoheisig/cd306b6ef4b8893426e8b6a67d822138 to your computer and use it in GitHub Desktop.
Save marcoheisig/cd306b6ef4b8893426e8b6a67d822138 to your computer and use it in GitHub Desktop.
Download ZIP
Load all of Quicklisp, except systems that fail to load or systems that get stuck loading for longer than 20 seconds.
Raw
quickload-all.lisp
(defun quickload-all ()
(loop for system in (ql:provided-systems t) do
(ignore-errors
(trivial-timeout:with-timeout (20)
(ql:quickload (ql-dist:short-description system))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment