Skip to content

Instantly share code, notes, and snippets.

@ralt
Last active August 29, 2015 14:28
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 ralt/645c1a63f8b9d4f38a93 to your computer and use it in GitHub Desktop.
Save ralt/645c1a63f8b9d4f38a93 to your computer and use it in GitHub Desktop.
Quicklisp Global Install (aka the road to a real debian package). Replace + with / in filenames.
sudo sbcl --load quicklisp.lisp --eval '(quicklisp-quickstart:install :path #p"/usr/share/quicklisp/quicklisp")'
# Maybe put the /usr/share/quicklisp/ folder straight in the package.
# quicklisp is downloaded in /usr/share/quicklisp/quicklisp so that /usr/share/quicklisp is available
# for other files, such as the helpers for quickloading global systems.
# The quicklisp.lisp file should be in /usr/share/quicklisp/, so that it's reusable
# for local installs. See /usr/bin/ql-local-install
#!/bin/bash
# This is for "power users" who want to have a local quicklisp.
sbcl --load /usr/share/quicklisp/quicklisp.lisp
#!/bin/bash
# Use this script if you want to download all the dependencies of a system globally
for system in "$@"
do
sbcl --no-userinit \
--load /usr/share/quicklisp/quicklisp/setup.lisp \
--load /usr/share/quicklisp/ql-quickload-dependencies.lisp
--eval "(quickload-dependencies \"$system\")"
--quit
done
(defun quickload-dependencies
(mapcar #'(lambda (system)
(ql:quickload system))
(let ((system (asdf:find-system name nil)))
(when system
(mapcar #'(lambda (dep)
(cond ((symbolp dep)
(string-downcase (symbol-name dep)))
((stringp dep)
dep)
(t (error "Couldn't recognize the dependency."))))
(asdf:component-load-dependencies system))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment