From 9db6b61081ac23786139c664988260b81195378e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 11 Aug 2008 23:39:57 +0000 Subject: * interp/obey.lisp: Remove. * interp/Makefile.pamphlet (OBJS): Don't include obey.$(FASLEXT). * interp/br-data.boot: Replace OBEY with runCommand. * interp/br-saturn.boot: Likewise. * interp/br-search.boot: Likewise. * interp/c-doc.boot: Likewise. * interp/compat.boot: Likewise. * interp/debug.lisp: Likewise. * interp/g-util.boot: Likewise. * interp/ht-root.boot: Likewise. * interp/i-syscmd.boot: Likewise. * interp/patches.lisp: Likewise. * interp/spad.lisp: Likewise. * interp/util.lisp: Likewise. * interp/vmlisp.lisp: Likewise. --- src/interp/vmlisp.lisp | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'src/interp/vmlisp.lisp') 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) -- cgit v1.2.3