--- a/abclrc Wed Dec 19 13:55:03 2018 -0500
+++ b/abclrc Wed Dec 19 13:59:04 2018 -0500
@@ -1,9 +1,4 @@
-
-;;; 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)))
+(load "~/.lisprc")
(defvar *last-package* nil)
(defvar *cached-prompt* nil)
@@ -28,8 +23,3 @@
(setf top-level::*repl-prompt-fun* #'sjl-prompt)
-(setf *print-pretty* nil
- *print-escape* t
- *print-right-margin* 100
- *print-miser-width* nil
- *print-length* 1000)
--- a/bin/bootstrap.sh Wed Dec 19 13:55:03 2018 -0500
+++ b/bin/bootstrap.sh Wed Dec 19 13:59:04 2018 -0500
@@ -42,6 +42,7 @@
ensure_link "src/dotfiles/gitconfig" ".gitconfig"
ensure_link "src/dotfiles/gitignore" ".gitignore"
ensure_link "src/dotfiles/hgignore" ".hgignore"
+ensure_link "src/dotfiles/lisprc" ".lisprc"
ensure_link "src/dotfiles/lispwords" ".lispwords"
ensure_link "src/dotfiles/mutt" ".mutt"
ensure_link "src/dotfiles/mutt/mailcap" ".mailcap"
--- a/ccl-init.lisp Wed Dec 19 13:55:03 2018 -0500
+++ b/ccl-init.lisp Wed Dec 19 13:59:04 2018 -0500
@@ -1,3 +1,5 @@
+(load "~/.lisprc")
+
(setf *quit-on-eof* t)
(setf *load-preserves-optimization-settings* t)
@@ -10,17 +12,3 @@
(setf ccl:*listener-prompt-format* #'sjl-lisp-prompt-format)
-(setf *print-pretty* nil
- *print-escape* t
- *print-right-margin* 100
- *print-miser-width* nil
- *print-length* 1000
- *print-level* 250)
-
-
-;;; 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)))
-
--- a/eclrc Wed Dec 19 13:55:03 2018 -0500
+++ b/eclrc Wed Dec 19 13:59:04 2018 -0500
@@ -1,3 +1,5 @@
+(load "~/.lisprc")
+
(setf compiler::*user-cc-flags* "-Wno-shift-negative-value")
(defvar *last-package* nil)
@@ -14,15 +16,3 @@
(princ *cached-prompt*))
(setf system:*tpl-prompt-hook* #'sjl-prompt)
-
-(setf *print-pretty* nil
- *print-escape* t
- *print-right-margin* 100
- *print-miser-width* nil
- *print-length* 1000)
-
-#-quicklisp
-(let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp"
- (user-homedir-pathname))))
- (when (probe-file quicklisp-init)
- (load quicklisp-init)))
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/lisprc Wed Dec 19 13:59:04 2018 -0500
@@ -0,0 +1,11 @@
+#-quicklisp
+(let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp" (user-homedir-pathname))))
+ (when (probe-file quicklisp-init)
+ (load quicklisp-init)))
+
+(setf *print-pretty* t
+ *print-escape* t
+ *print-right-margin* 100
+ *print-miser-width* nil
+ *print-length* 1000
+ *print-level* 250)
--- a/sbclrc Wed Dec 19 13:55:03 2018 -0500
+++ b/sbclrc Wed Dec 19 13:59:04 2018 -0500
@@ -1,10 +1,4 @@
-;; 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)))
-;;
+(load "~/.lisprc")
(defvar *last-package* nil)
(defvar *cached-prompt* nil)
@@ -25,9 +19,3 @@
(defun :fg ()
(sb-thread:release-foreground))
-(setf *print-pretty* nil
- *print-escape* t
- *print-right-margin* 100
- *print-miser-width* nil
- *print-length* 1000
- *print-level* 250)