--- 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)
--- 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))
--- 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"