From 312781b0d8e61d5eb3c5c89755fa92b1bc3bd3a0 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sat, 16 Jan 2021 01:13:26 +0100 Subject: [PATCH] ambrevar/shell: Add toggle-clesh-readtable. --- .local/share/common-lisp/source/ambrevar/shell.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/.local/share/common-lisp/source/ambrevar/shell.lisp b/.local/share/common-lisp/source/ambrevar/shell.lisp index 738d92a3..956d9008 100644 --- a/.local/share/common-lisp/source/ambrevar/shell.lisp +++ b/.local/share/common-lisp/source/ambrevar/shell.lisp @@ -337,6 +337,12 @@ If PARENT-DIRECTORY is not a parent of PATH, return PATH." (named-readtables:in-readtable :standard) (named-readtables:in-readtable :interpol-syntax))) +(export-always 'toggle-clesh-readtable) +(defun toggle-clesh-readtable () + (if (eq *readtable* (named-readtables:find-readtable 'clesh:syntax)) + (named-readtables:in-readtable :standard) + (named-readtables:in-readtable clesh:syntax))) + (export-always 'move-file) (defun move-file (source destination) "`rename-file' does not work cross-device, in particular it does not work on