create-sbcl-core-by-quicklisp.lisp

(eval-when (:load-toplevel :execute)
  (require :asdf)
  (require :asdf-install)
  (require :sb-md5)
  (require :sb-rotate-byte)
  (require :sb-posix)
  ;; (require :sb-cover)
  (require :sb-rt)
  (require :sb-simple-streams)
  (require :sb-bsd-sockets)
  (require :sb-executable))

(load "quicklisp.lisp")

;;(quicklisp-quickstart:install)
;;(ql:add-to-init-file)

;; load swank

(defparameter
    *quicklisp-install-libraries*
  '(
    "trivial-garbage"
    "alexandria"
    "named-readtables"
;;    "qt" ; commonqt 
    "cffi"
    "cl-fad"
    "flexichain"
    "ironclad"
    "chunga"
    "puri"
    "lispbuilder-sdl"
    "usocket"
    "s-xml"
    "cl-ppcre"
    "series"
    "kmrcl"
    "cl-pdf"
    "portable-threads"
    "bordeaux-threads"
    "cxml"
    "closer-mop"
    "closure-html"
    "cl-json"
    "clsql"
    "drakma"
    "parenscript"))

(dolist (lib *quicklisp-install-libraries*)
  (ql:quickload lib))

;;(swank-loader:dump-image "mysbcl.core")
(dotimes (n 10) (sb-ext:gc))
(sb-ext:save-lisp-and-die "./mysbcl.core" :purify t)

(quit)