diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
| -rw-r--r-- | src/interp/vmlisp.lisp | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 84440e81..03ab0277 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -239,9 +239,6 @@ (defmacro subrp (x) `(compiled-function-p ,x)) -(defmacro throw-protect (exp1 exp2) - `(unwind-protect ,exp1 ,exp2)) - (defmacro times (&rest args) `(* ,@args)) @@ -289,14 +286,6 @@ (setq items (|copyList| items)) (|append!| items items)) -; 7.4 Using Macros - -; Beats me how to simulate macro expansion "in the environment of sd"...: - -(defun MDEF (arg item &optional sd) - (declare (ignore sd)) - (macroexpand `(,arg ,item))) - ; 9.4 Vectors and Bpis (defun IVECP (x) (and (vectorp x) (subtypep (array-element-type x) 'integer))) @@ -498,10 +487,6 @@ (defun charp (a) (or (characterp a) (and (|ident?| a) (= (length (symbol-name a)) 1)))) -(defun NUM2CHAR (n) (code-char n)) - -(defun CHAR2NUM (c) (char-code (character c))) - ;; Returns truthvalue (nil or t) if s1 compares lexicographically ;; greater than s2. Note: It is essential that this function returns ;; a canonical Boolean value because parts of the system use it in |