Commit 3df28485 authored by Dave Cooper's avatar Dave Cooper

added invert on startup

parent 9c5038f3
......@@ -184,6 +184,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:half
#:ignore-errors-with-backtrace
#:index-filter
#:inverted-readtable
#:iso-8601-date
#:universal-time-from-iso-8601
#:universal-time-to-plist
......
......@@ -479,3 +479,8 @@ or <tt>~/genworks/gendl/emacs/glime.lisp</tt>.
(defun one-line (string)
(glisp:replace-regexp (glisp:replace-regexp string (format nil "~%") " ") "'" "\\'" ))
(defun inverted-readtable ()
(let ((readtable (copy-readtable)))
(setf (readtable-case readtable) :invert)
readtable))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment