/[meta-cvs]/meta-cvs/F-6BD7679FED76D6E5A7D36DC36C205FC1.lisp
ViewVC logotype

Diff of /meta-cvs/F-6BD7679FED76D6E5A7D36DC36C205FC1.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9.2.3 by kaz, Tue Oct 15 03:46:53 2002 UTC revision 1.9.2.4 by kaz, Tue Dec 3 07:21:05 2002 UTC
# Line 328  Line 328 
328    
329  (defun execute-program (arglist)  (defun execute-program (arglist)
330    (chatter-debug "invoking ~s in directory ~s~%" arglist (getcwd))    (chatter-debug "invoking ~s in directory ~s~%" arglist (getcwd))
331    (case (run-program (first arglist) :arguments (rest arglist))    (case (unix-funcs:run-program (first arglist) :arguments (rest arglist))
332      ((0) (chatter-debug "successful termination~%") T)      ((0) (chatter-debug "successful termination~%") T)
333      (otherwise (chatter-debug "unsuccessful or abnormal termination~%") nil)))      (otherwise (chatter-debug "unsuccessful or abnormal termination~%") nil)))
334    

Legend:
Removed from v.1.9.2.3  
changed lines
  Added in v.1.9.2.4

  ViewVC Help
Powered by ViewVC 1.1.5