Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/docs/cmu-user/extensions.tex
    ... ... @@ -1099,7 +1099,7 @@ It is possible to run programs from Lisp by using the following function.
    1099 1099
           \morekeys{\kwd{if-input-does-not-exist}}
    
    1100 1100
           \yetmorekeys{\kwd{output} \kwd{if-output-exists}}
    
    1101 1101
           \yetmorekeys{\kwd{error} \kwd{if-error-exists}}
    
    1102
           \yetmorekeys{\kwd{status-hook} \kwd{before-execve}}}}
    
    1102
           \yetmorekeys{\kwd{status-hook}}}}
    
    1103 1103
          
    
    1104 1104
       \code{run-program} runs \var{program} in a child process.
    
    1105 1105
       \var{Program} should be a pathname or string naming the program.
    

  • tests/issues.lisp
    ... ... @@ -315,3 +315,9 @@
    315 315
         (:tag :issues)
    
    316 316
       (let* ((test-file #.(merge-pathnames #p"resources/issue-24.lisp" cl:*load-pathname*)))
    
    317 317
         (assert-true (compile-file test-file :load t))))
    
    318
     
    
    319
     (define-test issue.32
    
    320
         (:tag :issues)
    
    321
       (assert-error 'kernel:simple-program-error
    
    322
     		(ext:run-program "cat" nil
    
    323
     				 :before-execve t)))