# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1467291988 0
# Node ID 54633d8bf6d8de84a8f4cf2a7317958109d9c994
# Parent  aeab9d321fea0cc0e86c1c12ef20534e357ba829
Minor lisp tweaks

diff -r aeab9d321fea -r 54633d8bf6d8 lispwords
--- a/lispwords	Thu Jun 30 11:42:00 2016 +0000
+++ b/lispwords	Thu Jun 30 13:06:28 2016 +0000
@@ -8,6 +8,7 @@
 (1 symbol-macrolet)
 (1 print-unreadable-object)
 (1 pprint-logical-block)
+(2 defmacro)
 
 ; my own weird things
 (1 make-array)
diff -r aeab9d321fea -r 54633d8bf6d8 roswell/lispindent.ros
--- a/roswell/lispindent.ros	Thu Jun 30 11:42:00 2016 +0000
+++ b/roswell/lispindent.ros	Thu Jun 30 13:06:28 2016 +0000
@@ -32,7 +32,7 @@
 
 (defvar *lisp-keywords* '())
 (defvar *labels-keywords* '(labels flet macrolet))
-(defvar *lambda-list-keywords* '(defun defmethod))
+(defvar *lambda-list-keywords* '(defun defmethod defmacro))
 (defvar *case-keywords* '(cond case))
 
 
diff -r aeab9d321fea -r 54633d8bf6d8 vim/ftplugin/lisp/lispfolding.vim
--- a/vim/ftplugin/lisp/lispfolding.vim	Thu Jun 30 11:42:00 2016 +0000
+++ b/vim/ftplugin/lisp/lispfolding.vim	Thu Jun 30 13:06:28 2016 +0000
@@ -151,6 +151,9 @@
         elseif getline(a:lnum) =~ '^(declaim\( \|$\)'
             " fold top level declaims
             return ">1"
+        elseif getline(a:lnum) =~ '^(eval-when\( \|$\)'
+            " fold top level eval-when
+            return ">1"
         elseif getline(a:lnum) =~ '^(def'
             " fuck it just fold everything that looks kinda deffy
             return ">1"