marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Load quicklisp and slime

Browse source
This commit is contained in:
Marcus Kammer 2024-06-01 11:10:39 +02:00
parent eef04420b6
commit 089b7d20bb
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 25 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
create-core.lisp
View file

@ -1,3 +1,26 @@
(mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
(ql:quickload '(:dev.metalisp.survey))
(save-lisp-and-die "sbcl.core")
(defun quicklisp-setup ()
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init))))
(quicklisp-setup)
(defun slime-setup ()
(let ((slime-directory (merge-pathnames "common-lisp/slime/" (user-homedir-pathname)))
(slime-git-url "https://github.com/slime/slime.git")
(slime-tag "v2.30"))
(unless (probe-file slime-directory)
(ensure-directories-exist slime-directory)
(uiop:run-program (format nil "git clone -b ~a ~a ~a" slime-tag slime-git-url slime-directory)))
(let ((swankloader (merge-pathnames "swank-loader.lisp" slime-directory)))
(when (probe-file swankloader)
(load swankloader)))))
(slime-setup)
(ql:quickload :dev.metalisp.survey)
(swank-loader:dump-image "sbcl.core-with-swank")