diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-24 11:47:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-24 11:47:01 +0000 |
| commit | 55893dcd3118428f046d5f539d80e9aa5345b885 (patch) | |
| tree | 05992761c4ad4d3421b7063de3357d1ced007c8a /src/interp/obey.lisp | |
| parent | 97f54bf68c5aefffc94a4935e08fd6449ec501c9 (diff) | |
| download | open-axiom-55893dcd3118428f046d5f539d80e9aa5345b885.tar.gz | |
Add support for SBCL and CLisp
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)) |