diff options
Diffstat (limited to 'src/interp/obey.lisp')
-rw-r--r-- | src/interp/obey.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
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)) |