#+TITLE: SBCL Init
#+STARTUP: showall
#+HTML_HEAD: <link href="http://ryuslash.org/bootstrap/css/bootstrap.min.css" type="text/css" rel="stylesheet" />
#+PROPERTY: tangle .sbclrc
#+OPTIONS: num:nil

* Install quicklisp

  This bit of code was generated by quicklisp in order to load its
  initialization file at startup.

  #+BEGIN_SRC lisp :padline no
    ;;; The following lines added by ql:add-to-init-file:
    #-quicklisp
    (let ((quicklisp-init (merge-pathnames ".local/share/quicklisp/setup.lisp"
                                           (user-homedir-pathname))))
      (when (probe-file quicklisp-init)
        (load quicklisp-init)))
  #+END_SRC

* Install linedit

  This Chunk of code installs [[http://common-lisp.net/project/linedit/][Linedit]], a readline-like module for the
  SBCL REPL. Found thanks to [[http://irreal.org/blog/?p=1913][Irreal]]'s post on the matter. This snippet
  first checks if it should even be enabled, my [[file:~/projects/dotfiles/emacs/init.org::*Set%20inferior%20lisp%20program%20to%20SBCL][Emacs init file]] file
  tells SLIME to disable linedit.

  #+BEGIN_SRC lisp
    (if (member "--no-linedit" sb-ext:*posix-argv* :test 'equal)
        (setf sb-ext:*posix-argv*
              (remove "--no-linedit" sb-ext:*posix-argv* :test 'equal))
        (when (interactive-stream-p *terminal-io*)
          (require :sb-aclrepl)
          (require :linedit)
          (funcall (intern "INSTALL-REPL" :linedit) :wrap-current t)))
  #+END_SRC