1 files changed, 0 insertions, 14 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp
index 76b52318..0d3f8522 100644
--- a/src/interp/vmlisp.lisp
+++ b/src/interp/vmlisp.lisp
@@ -1893,20 +1893,6 @@
  ())
 
   
-#+(and :Lucid (not :ibm/370))
-(defun OBEY (S)
-  (system::run-aix-program (|makeAbsoluteFilename| "/lib/obey")
-                       :arguments       (list "-c" S)))
-#+:cmulisp
-(defun OBEY (S)
-   (ext:run-program (|makeAbsoluteFilename| "/lib/obey")
-                    (list "-c" S) :input t :output t))
-#+(OR IBCL KCL :CCL)
-(defun OBEY (S) (SYSTEM S))
-
-#+:allegro
-(defun OBEY (S) (excl::run-shell-command s))
-
 (defun RE-ENABLE-INT (number-of-handler) number-of-handler)