1 files changed, 0 insertions, 12 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp
index b60b66b5..9d569cbf 100644
--- a/src/interp/vmlisp.lisp
+++ b/src/interp/vmlisp.lisp
@@ -106,12 +106,6 @@
 (defmacro |equal| (x y)
  `(equalp ,x ,y))
 
-(defmacro evalandfileactq (name form)
- `(eval-when 
-   #+:common-lisp (:load-toplevel :execute)
-   #-:common-lisp (eval load)
-   ,form))  
-
 (defmacro exit (&rest value)
  `(return-from seq ,@value))
 
@@ -1185,12 +1179,6 @@
 
 ; 99.0 Ancient Stuff We Decided To Keep
 
-(defun SETANDFILE (x y) (LAM\,EVALANDFILEACTQ x `(defparameter ,x ',y)))
- 
-(defun LAM\,EVALANDFILEACTQ (name form)
-  (LAM\,FILEACTQ name form)
-  (eval form))
-
 (defun LAM\,FILEACTQ (name form)
   (if *FILEACTQ-APPLY*
       (FUNCALL *FILEACTQ-APPLY* name form)))