diff options
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)) |