diff options
Diffstat (limited to 'src/interp/sys-macros.lisp')
| -rw-r--r-- | src/interp/sys-macros.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 0979262e..fac17612 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -42,6 +42,16 @@ ;; -*- Charcters and Strings -*- ;; +;; Special character constants +(defconstant |$Bell| (code-char 7)) +(defconstant |$Backspace| #\Backspace) +(defconstant |$HorizontalTab| #\Tab) +(defconstant |$Newline| #\Newline) +(defconstant |$VerticalTab| (code-char 11)) +(defconstant |$FormFeed| #\Page) +(defconstant |$CarriageReturn| #\Return) + + (defmacro |char| (arg) (cond ((stringp arg) (character arg)) |