Commit 36a02dd0 authored by Kevin Rosenberg's avatar Kevin Rosenberg
Browse files

fix allegro's run-shell-command

parent f67c88d6

asdf.lisp

+3 −5
Original line number Original line Diff line number Diff line 
;;; This is asdf: Another System Definition Facility.  $Revision: 1.48 $

;;; This is asdf: Another System Definition Facility.  $Revision: 1.49 $

;;;

;;;

;;; Feedback, bug reports, and patches are all welcome: please mail to

;;; Feedback, bug reports, and patches are all welcome: please mail to

;;; <cclan-list@lists.sf.net>.  But note first that the canonical

;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -88,7 +88,7 @@ 
(in-package #:asdf)

(in-package #:asdf)





;;; parse the cvs revision into something that might be vaguely useful.  

;;; parse the cvs revision into something that might be vaguely useful.  

(defvar *asdf-revision* (let* ((v "$Revision: 1.48 $")

(defvar *asdf-revision* (let* ((v "$Revision: 1.49 $")

			       (colon (position #\: v))

			       (colon (position #\: v))

			       (dot (position #\. v)))

			       (dot (position #\. v)))

			  (and v colon dot 

			  (and v colon dot
@@ -877,9 +877,7 @@ output to *trace-output*. Returns the shell's exit code." 
      :input nil :output *trace-output*))

      :input nil :output *trace-output*))





    #+allegro

    #+allegro

    (excl:run-shell-command

    (excl:run-shell-command command :input nil :output *trace-output*)

     (make-array 3 :initial-contents (list "/bin/sh" "-c" command))

     :input nil :output *trace-output*)

    

    

    #+lispworks

    #+lispworks

    (system:call-system-showing-output

    (system:call-system-showing-output