From 55893dcd3118428f046d5f539d80e9aa5345b885 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 24 Mar 2008 11:47:01 +0000
Subject: Add support for SBCL and CLisp

---
 src/interp/obey.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/interp/obey.lisp')

diff --git a/src/interp/obey.lisp b/src/interp/obey.lisp
index 6061ce8d..e3735817 100644
--- a/src/interp/obey.lisp
+++ b/src/interp/obey.lisp
@@ -33,6 +33,7 @@
 
 
 (import-module "macros")
+(import-module "sys-os")
 (in-package "BOOT")
 
 #+ (and :lucid :unix)
@@ -58,6 +59,6 @@
 (defun copy-file (namestring1 namestring2)
   (system:run-aix-program "cp" :arguments (list namestring1 namestring2)))
 
-(setq |$algebraOutputStream| *terminal-io*)
-
 
+#+(or :sbcl :clisp)
+(defun obey(s) (|runCommand| s))
-- 
cgit v1.2.3