sbcl-specific code to have a repl with :commands for quicklisp and swank

acl-repl.lisp

(ignore-errors (require 'sb-aclrepl))

(when (find-package 'sb-aclrepl)
  (push :aclrepl cl:*features*))

(require 'sb-aclrepl)

#+aclrepl
(progn
  (sb-aclrepl:alias ("ql" 1 "Load system with quicklisp") (sys) (ql:quickload sys))
  (sb-aclrepl:alias ("swank" 1 "Start a swank server") ()
                    (require :swank)
                    (uiop:symbol-call :swank :create-server :dont-close t)))