- ;;; -*- mode: common-lisp; -*-
- #-quicklisp
- (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
- (user-homedir-pathname))))
- (when (probe-file quicklisp-init)
- (load quicklisp-init)))
- ;;; Check for --no-linedit command-line option.
- (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 :eof-quits t)))
|
