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/lib/cfuns-c.c | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'src/lib')

diff --git a/src/lib/cfuns-c.c b/src/lib/cfuns-c.c
index 764c5d6c..a7b69b8a 100644
--- a/src/lib/cfuns-c.c
+++ b/src/lib/cfuns-c.c
@@ -1,5 +1,5 @@
 /*
-   Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
+   Copyright (C) 1991-2002, The Numerical Algorithms Group Ltd.
    All rights reserved.
 
    Copyright (C) 2007-2008, Gabriel Dos Reis.
@@ -17,7 +17,7 @@
          the documentation and/or other materials provided with the
          distribution.
 
-       - Neither the name of The Numerical ALgorithms Group Ltd. nor the
+       - Neither the name of The Numerical Algorithms Group Ltd. nor the
          names of its contributors may be used to endorse or promote products
          derived from this software without specific prior written permission.
 
@@ -431,3 +431,11 @@ oa_mkdir(const char* path)
 #  undef DIRECTORY_PERM   
 #endif   
 }
+
+/* Run a shell command.  Effectively forward to C's system().  */
+OPENAXIOM_EXPORT int
+oa_system(const char* cmd)
+{
+   return system(cmd);
+}
+
-- 
cgit v1.2.3