# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1468792842 0
# Node ID 626fe4b54a5c4caa657c9b01247210ecf0fd304c
# Parent  9d1fa2c391964de142b9ac99261dbc438b102f30
More

diff -r 9d1fa2c39196 -r 626fe4b54a5c bin/ccl-rlwrap
--- a/bin/ccl-rlwrap	Fri Jul 15 13:17:16 2016 +0000
+++ b/bin/ccl-rlwrap	Sun Jul 17 22:00:42 2016 +0000
@@ -2,3 +2,5 @@
 
 set -e
 rlwrap ros -L ccl-bin run -l ~/.ccl-init.lisp "$@"
+# /usr/local/bin/ccl "$@"
+
diff -r 9d1fa2c39196 -r 626fe4b54a5c ccl-init.lisp
--- a/ccl-init.lisp	Fri Jul 15 13:17:16 2016 +0000
+++ b/ccl-init.lisp	Sun Jul 17 22:00:42 2016 +0000
@@ -10,8 +10,8 @@
 
 
 ;;; 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)))
+#-quicklisp
+(let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp" (user-homedir-pathname))))
+  (when (probe-file quicklisp-init)
+    (load quicklisp-init)))
 
diff -r 9d1fa2c39196 -r 626fe4b54a5c lispwords
--- a/lispwords	Fri Jul 15 13:17:16 2016 +0000
+++ b/lispwords	Sun Jul 17 22:00:42 2016 +0000
@@ -14,7 +14,6 @@
 
 ; my own weird things
 (1 make-array)
-(1 once-only)
 
 ; fiveam
 (1 test)
@@ -24,12 +23,14 @@
 
 ; defstar
 (2 defun*)
+(1 labels* flet*)
 (1 *let)
 
 ; alexandria / utils
 (1 switch eswitch cswitch)
 (1 while until)
 (1 with-gensyms)
+(1 once-only)
 
 ; arrows
 (1 -> ->> -<> -<>>)
@@ -43,3 +44,6 @@
 
 ; policy-cond
 (1 policy-if)
+
+; charms
+(1 with-curses)
diff -r 9d1fa2c39196 -r 626fe4b54a5c roswell/lispindent.ros
--- a/roswell/lispindent.ros	Fri Jul 15 13:17:16 2016 +0000
+++ b/roswell/lispindent.ros	Sun Jul 17 22:00:42 2016 +0000
@@ -1,7 +1,7 @@
 #!/bin/sh
 #|-*- mode:lisp -*-|#
 #|
-exec ros -Q -- $0 "$@"
+exec ros +Q -- $0 "$@"
 |#
 
 #|
@@ -31,7 +31,7 @@
 
 
 (defvar *lisp-keywords* '())
-(defvar *labels-keywords* '(labels flet macrolet))
+(defvar *labels-keywords* '(labels flet macrolet labels* flet*))
 (defvar *lambda-list-keywords* '(defun defmethod defmacro define-compiler-macro defun*))
 (defvar *case-keywords* '(cond case))
 
diff -r 9d1fa2c39196 -r 626fe4b54a5c vim/custom-dictionary.utf-8.add
--- a/vim/custom-dictionary.utf-8.add	Fri Jul 15 13:17:16 2016 +0000
+++ b/vim/custom-dictionary.utf-8.add	Sun Jul 17 22:00:42 2016 +0000
@@ -196,3 +196,5 @@
 GDC
 neovim
 janky
+CLOS
+ncurses
diff -r 9d1fa2c39196 -r 626fe4b54a5c vim/vimrc
--- a/vim/vimrc	Fri Jul 15 13:17:16 2016 +0000
+++ b/vim/vimrc	Sun Jul 17 22:00:42 2016 +0000
@@ -887,30 +887,42 @@
 
     setlocal lispwords+=block
 
-    setlocal lispwords+=switch
-    setlocal lispwords+=cswitch
-    setlocal lispwords+=eswitch
     setlocal lispwords+=when-let
     setlocal lispwords+=test
     setlocal lispwords+=.let*
+    setlocal lispwords+=define-compiler-macro
 
     " optima
     setlocal lispwords+=optima:match
     setlocal lispwords+=match
-
-    " defstar
-    setlocal lispwords+=defun*
-    setlocal lispwords+=defmethod*
-    setlocal lispwords+=defgeneric*
-    setlocal lispwords+=defvar*
-    setlocal lispwords+=defparameter*
-    setlocal lispwords+=flet*
-    setlocal lispwords+=labels*
-    setlocal lispwords+=lambda*
-    setlocal lispwords+=*let
+    setlocal lispwords+=ematch
+
+    " 1am
+    setlocal lispwords+=test
+
+    " sketch
+    setlocal lispwords+=with-pen
+    setlocal lispwords+=with-font
+
+    " charms
+    setlocal lispwords+=with-curses
+
+    " bones
+    setlocal lispwords+=rule
+
+    " cl-arrows
+    setlocal lispwords+=->
+    setlocal lispwords+=->>
+    setlocal lispwords+=-<>
+    setlocal lispwords+=-<>>
 
     " alexandria
     setlocal lispwords+=define-constant
+    setlocal lispwords+=switch
+    setlocal lispwords+=cswitch
+    setlocal lispwords+=eswitch
+    setlocal lispwords+=with-gensyms
+    setlocal lispwords+=once-only
 endfunction "}}}
 
 function! SendLispForm() "{{{
@@ -2903,6 +2915,7 @@
     tnoremap <Esc> <C-\><C-n>
     tnoremap <leader><esc> <esc>
     nnoremap <bs> <c-w>h
+    let g:terminal_scrollback_buffer_size = 5000
 endif
 
 " }}}