# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1545245944 18000
# Node ID 3847703595452b17f0effdbfd44e016cee5429cd
# Parent  a9e85b8e5f66cea8ac7b4130fd85586d2405830b
More

diff -r a9e85b8e5f66 -r 384770359545 abclrc
--- 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)
diff -r a9e85b8e5f66 -r 384770359545 bin/bootstrap.sh
--- 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"
diff -r a9e85b8e5f66 -r 384770359545 ccl-init.lisp
--- 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)))
-
diff -r a9e85b8e5f66 -r 384770359545 eclrc
--- 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)))
diff -r a9e85b8e5f66 -r 384770359545 lisprc
--- /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)
diff -r a9e85b8e5f66 -r 384770359545 sbclrc
--- 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)