diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-29 01:43:22 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-29 01:43:22 +0000 |
commit | 049fc29643eef2e73755317c7ef0d3bd57e40419 (patch) | |
tree | 7b77736adece47665318ed80ea0f7161c93c5ee4 /src/interp/vmlisp.lisp | |
parent | 73af2d0d8b8c4aa1b009dc85f616915fe2cc8eff (diff) | |
download | open-axiom-049fc29643eef2e73755317c7ef0d3bd57e40419.tar.gz |
Remove Lispy junks
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r-- | src/interp/vmlisp.lisp | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 40bd2bd5..0e7b339a 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -55,8 +55,6 @@ (defvar *embedded-functions* nil) -(defvar *fileactq-apply* nil "function to apply in fileactq") - (defvar macerrorcount 0 "Put some documentation in here someday") (defvar *read-place-holder* (make-symbol "%.EOF") @@ -208,13 +206,6 @@ (defmacro rvecp (v) `(typep ,v '(vector float))) -(defmacro setandfileq (id item) - `(eval-when - #+:common-lisp (:load-toplevel :execute) - #-:common-lisp (eval load) - (setq ,id ,item) - (lam\,fileactq ',id (list 'setq ',id (list 'quote ,id))))) - (defmacro setqp (&whole form pattern exp) `(,(dcqexp pattern '=) ,exp)) @@ -1152,10 +1143,6 @@ ; 99.0 Ancient Stuff We Decided To Keep -(defun LAM\,FILEACTQ (name form) - (if *FILEACTQ-APPLY* - (FUNCALL *FILEACTQ-APPLY* name form))) - (defun PLACEP (item) (eq item *read-place-holder*)) (defun VMREAD (&optional (st |$InputStream|) (eofval *read-place-holder*)) (read st nil eofval)) |