[armedbear-cvs] r11365 - trunk/j/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Oct 26 19:50:07 2008
New Revision: 11365

Log:
Patch by Mark Evenson to provide the (optional) RUN-SHELL-COMMAND function.

Modified:
   trunk/j/src/org/armedbear/lisp/asdf.lisp

Modified: trunk/j/src/org/armedbear/lisp/asdf.lisp
==============================================================================
--- trunk/j/src/org/armedbear/lisp/asdf.lisp	(original)
+++ trunk/j/src/org/armedbear/lisp/asdf.lisp	Sun Oct 26 19:50:07 2008
@@ -1115,7 +1115,10 @@
 				 :wait t)))
     #+ecl ;; courtesy of Juan Jose Garcia Ripoll
     (si:system command)
-    #-(or openmcl clisp lispworks allegro scl cmu sbcl ecl)
+    
+    #+abcl
+    (ext:run-shell-command command :output *verbose-out*)
+    #-(or openmcl clisp lispworks allegro scl cmu sbcl ecl abcl)
     (error "RUN-SHELL-PROGRAM not implemented for this Lisp")
     ))