Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (10 sloc) 427 Bytes
(in-package :cl-user)
(print ">>> Building system....")
(require 'asdf)
(asdf:disable-output-translations)
(require-quicklisp :version "2013-01-28")
(let* ((this-file (load-time-value (or *load-truename* #.*compile-file-pathname*)))
(this-file-dir (make-pathname :directory (pathname-directory this-file))))
(push this-file-dir asdf:*central-registry*))
(ql:quickload :openid-demo)
(print ">>> Done building system")