mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-15 07:10:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Plug QUICKLISP's QUICKLOAD into REQUIRE

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-07-22 18:25:45 +02:00
parent 45a4f95da9
commit 806646c619
1 changed files with 20 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

22
contrib/quicklisp/ecl-quicklisp.lisp
View file

@ -7,7 +7,12 @@
(defparameter *quicklisp-url* "http://beta.quicklisp.org/quicklisp.lisp")
(defparameter *quicklisp-directory* (translate-logical-pathname "SYS:QUICKLISP;"))
(defparameter *quicklisp-directory*
#+windows
(translate-logical-pathname "SYS:QUICKLISP;")
#-windows
(translate-logical-pathname "HOME:QUICKLISP;")
)
(defparameter *quicklisp-setup* "SYS:QUICKLISP;SETUP.LISP")
@ -34,9 +39,22 @@
(progn
(unless (probe-file *quicklisp-setup*)
(install-quicklisp *quicklisp-directory*))
(load *quicklisp-setup*))
(unless (find-package "QL")
(load *quicklisp-setup*))
(eval (read-from-string "
(pushnew #'(ext:lambda-block quicklisp-require (module)
(let* ((module (string-downcase module)))
(when (find module (ql:provided-systems t)
:test #'string-equal
:key #'ql-dist:name)
(and (ql:quickload module)
(provide module)))))
sys::*module-provider-functions*)
")))
(error (c)
(format t "~%;;; Unable to load / install quicklisp. Error message follows:~%~A"
c)))
(provide "ecl-quicklisp")