diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-04 02:06:11 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-04 02:06:11 +0000 |
| commit | 870e9ec5471d02c57848c58067083bc5c13b65ec (patch) | |
| tree | 58064b228223dbe67e068c3158d7ce08e3143ec1 | |
| parent | 40f32a8c667b6658f2d68bb9d777b94998469e80 (diff) | |
| download | open-axiom-870e9ec5471d02c57848c58067083bc5c13b65ec.tar.gz | |
* interp/vmlisp.lisp (THROW-PROTECT): Remove.
(MDEF): Likewise.
(NUM2CHAR): Likewise.
(CHAR2NUM): Likewise.
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/interp/vmlisp.lisp | 15 |
2 files changed, 7 insertions, 15 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 12788ace..0ed9f9d1 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,12 @@ 2012-05-03 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/vmlisp.lisp (THROW-PROTECT): Remove. + (MDEF): Likewise. + (NUM2CHAR): Likewise. + (CHAR2NUM): Likewise. + +2012-05-03 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/vmlisp.lisp ($lamName): Remove. (LAM): Likewise. (*LAM): Likewise. 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 |