aboutsummaryrefslogtreecommitdiffstats
path: root/.sbclrc
diff options
context:
space:
mode:
authorWeitian LI <liweitianux@gmail.com>2014-06-13 21:12:21 +0800
committerWeitian LI <liweitianux@gmail.com>2014-06-13 21:12:21 +0800
commit78f7be4e4b6501b15b5fefc9f7824bbadf0daf2a (patch)
treeb761e28709e4a6f45458c323b8870150827ef831 /.sbclrc
parente1ce158f65c472b7c8d14c04fce94c85bc881a6c (diff)
downloaddotfiles-78f7be4e4b6501b15b5fefc9f7824bbadf0daf2a.tar.bz2
Added various dotfiles.
* Xresources * profile, xprofile, xinitrc * bash (aliases, logout, profile, rc, completion) * gitconfig * gtkrc and gtk-bookmarks * i3 configs (with py3status configs) * i3status.conf * lftp/rc * tmux.conf * xbindkeysrc * mpdconf * ncmpcpp (config and keys) * sbclrc * vifm (vifmrc, colors) * urxvt (perl extensions) * conkyrc (and conky/cronograph configs)
Diffstat (limited to '.sbclrc')
-rw-r--r--.sbclrc23
1 files changed, 23 insertions, 0 deletions
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)))
+