diff options
Diffstat (limited to 'src/interp/sys-macros.lisp')
| -rw-r--r-- | src/interp/sys-macros.lisp | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 307a5d7d..ee189ac1 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -52,17 +52,6 @@ (defconstant |$CarriageReturn| #\Return) -(defmacro |char| (arg) - (cond ((stringp arg) - (character arg)) - ((integerp arg) - (code-char arg)) - ((and (consp arg) - (eq (car arg) 'quote)) - (character (cadr arg))) - (t `(character ,arg)))) - - (defmacro |startsId?| (x) `(or (alpha-char-p ,x) (member ,x '(#\? #\% #\!) :test #'char=))) |