From 25b947edf445a96db335fe285a8b253b214649ff Mon Sep 17 00:00:00 2001 From: Aaron LI Date: Wed, 6 Jan 2016 22:59:26 +0800 Subject: Rename .* => _*; Move out private contents. --- _sbclrc | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 _sbclrc (limited to '_sbclrc') diff --git a/_sbclrc b/_sbclrc new file mode 100644 index 0000000..d50d88f --- /dev/null +++ b/_sbclrc @@ -0,0 +1,23 @@ +;;; ~/.sbclrc + +;;; The following lines added by ql:add-to-init-file: +#-quicklisp +(let ((quicklisp-init (merge-pathnames "~/.quicklisp/setup.lisp" + (user-homedir-pathname)))) + (when (probe-file quicklisp-init) + (load quicklisp-init))) + +;;; http://common-lisp.net/project/linedit/ +;;; 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))) + +;;; https://gist.github.com/bdsatish/5403002 +;; Don't break into debugger, but just display error message and return to top-level loop (REPL) +(setf *debugger-hook* #'(lambda (c h) (declare (ignore h)) (print c) (abort))) + -- cgit v1.2.2