19 lines
721 B
Text
19 lines
721 B
Text
|
;; -*- mode: lisp; -*-
|
||
|
|
|
||
|
|
;;; 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)))
|
||
|
|
|
||
|
|
;;; Enable linedit, a readline-like module for SBCL. Install through
|
||
|
|
;;; (ql:quickload "linedit").
|
||
|
|
(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)))
|