2024-05-31 23:14:25 +02:00
|
|
|
(mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
|
2024-06-01 11:10:39 +02:00
|
|
|
|
|
|
|
|
(defun quicklisp-setup ()
|
|
|
|
|
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
|
|
|
|
|
(when (probe-file quicklisp-init)
|
|
|
|
|
(load quicklisp-init))))
|
|
|
|
|
|
|
|
|
|
(quicklisp-setup)
|
|
|
|
|
|
|
|
|
|
(ql:quickload :dev.metalisp.survey)
|
2024-06-16 15:11:26 +02:00
|
|
|
(sb-ext:save-lisp-and-die #P"ml-survey.core")
|
2024-06-01 11:39:45 +02:00
|
|
|
(quit)
|
