diff options
| author | Aaron LI <aaronly.me@gmail.com> | 2016-01-06 22:59:26 +0800 |
|---|---|---|
| committer | Aaron LI <aaronly.me@gmail.com> | 2016-01-06 22:59:26 +0800 |
| commit | 25b947edf445a96db335fe285a8b253b214649ff (patch) | |
| tree | 3f785cdbef303c71111debd067c95a62ea456587 /.sbclrc | |
| parent | 0ed3373f1c2d47aba769aa67439e05350c2792e9 (diff) | |
| download | dotfiles-25b947edf445a96db335fe285a8b253b214649ff.tar.bz2 | |
Rename .* => _*; Move out private contents.
Diffstat (limited to '.sbclrc')
| -rw-r--r-- | .sbclrc | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/.sbclrc b/.sbclrc deleted file mode 100644 index d50d88f..0000000 --- a/.sbclrc +++ /dev/null @@ -1,23 +0,0 @@ -;;; ~/.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))) - |