Changeset 10162


Ignore:
Timestamp:
10/18/05 16:00:57 (16 years ago)
Author:
piso
Message:

RUN-SHELL-COMMAND changes for Allegro and CLISP.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/build-abcl.lisp

    r10161 r10162  
    9494      (ext:cd directory))
    9595    (unwind-protect
    96         (setf status (ext:run-shell-command command))
     96        (setf status (ext:shell command))
    9797      (when old-directory
    9898        (ext:cd old-directory)))
     
    113113                                 "\" && "
    114114                                 command))))
    115   (system:call-system-showing-output
    116    command
    117    :shell-type "/bin/sh"
    118    :output-stream output))
     115  (system:call-system-showing-output command
     116                                     :shell-type "/bin/sh"
     117                                     :output-stream output))
    119118
    120119#+allegro
    121120(defun run-shell-command (command &key directory (output *standard-output*))
    122   (excl:run-shell-command command :directory directory :input nil :output output))
     121  (excl:run-shell-command command
     122                          :directory directory
     123                          :input nil
     124                          :output #+ide nil #-ide output))
    123125
    124126#+openmcl
Note: See TracChangeset for help on using the changeset viewer.