I show 3.1.7.35 passing all tests on Mac and Linux, failing test-require
and test-run-program on ECL bytecodes on Windows.

test-require is a long-standing ECL bug on Windows that Jason Miller has
confirmed.  There's a bug report in to ECL, so we don't have to worry
about this.

test-run-program shows a failure on run-program with a string argument
versus with a list argument.

Attaching a snippet of the transcript.  I'd like to get this either
fixed or dismissed as an ECL problem before we release.

Cheers,
R

Running test-run-program.script with ecl-16.1.2-2cb60658-win-x86
Testing echo ok 1 via run-program as a list
Testing echo ok 1 via run-program as a string
TEST ABORTED: Subprocess with command "echo ok 1"
 exited with error code 1
Backtrace:
0: (#<bytecompiled-function 03b063c0> ((4202 . 0) (#:G2706) (4201 . #:G2705) 
(CONDITION . #<a UIOP/RUN-PROGRAM:SUBPROCESS-ERROR>) (COUNT . 69) (STREAM . 
#<output file "stdout">) (UIOP/IMAGE::KEYS :STREAM #<output file "stdout"> 
:COUNT 69 :CONDITION #<a UIOP/RUN-PROGRAM:SUBPROCESS-ERROR>)))
1: (#<bytecompiled-function UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX> 
((#:%PROGV-LIST (*PRINT-PPRINT-DISPATCH* *PRINT-ARRAY* *PRINT-BASE* 
*PRINT-CASE* *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* *PRINT-LENGTH* 
*PRINT-LEVEL* *PRINT-LINES* *PRINT-MISER-WIDTH* *PRINT-PRETTY* *PRINT-RADIX* 
*PRINT-READABLY* *PRINT-RIGHT-MARGIN* *READ-BASE* *READ-DEFAULT-FLOAT-FORMAT* 
*READ-EVAL* *READ-SUPPRESS* *READTABLE* *PACKAGE* SI:*SHARP-EQ-CONTEXT* 
SI:*CIRCLE-COUNTER*) #<pprint-dispatch-table  03a06a80> T 10 :UPCASE NIL T T 
NIL NIL NIL NIL NIL NIL T NIL 10 SINGLE-FLOAT T NIL #<readtable 00b116c0> 
#<"COMMON-LISP-USER" package> NIL NIL) (PACKAGE . :CL) (UIOP/STREAM::THUNK . 
#<bytecompiled-closure #<bytecompiled-function 03b063c0>>)))
2: (#<bytecompiled-function UIOP/IMAGE:PRINT-BACKTRACE> ((CONDITION . #<a 
UIOP/RUN-PROGRAM:SUBPROCESS-ERROR>) (COUNT . 69) (STREAM . #<output file 
"stdout">) (UIOP/IMAGE::KEYS :STREAM #<output file "stdout"> :COUNT 69 
:CONDITION #<a UIOP/RUN-PROGRAM:SUBPROCESS-ERROR>)))
3: (#<bytecompiled-function UIOP/IMAGE:PRINT-CONDITION-BACKTRACE> ((COUNT . 69) 
(STREAM . #<output file "stdout">) (CONDITION . #<a 
UIOP/RUN-PROGRAM:SUBPROCESS-ERROR>)))
4: (#<bytecompiled-function ASDF-TEST:ACALL> ((ASDF-TEST::ARGS #<a 
UIOP/RUN-PROGRAM:SUBPROCESS-ERROR> :COUNT 69 :STREAM #<output file "stdout">) 
(ASDF-TEST::NAME . :PRINT-CONDITION-BACKTRACE)))
5: (#<bytecompiled-function 00bb02d0> ((4200 . 0) (#:G238) (4199 . #:G237) 
(ASDF-TEST::C . #<a UIOP/RUN-PROGRAM:SUBPROCESS-ERROR>) (:ASDF-TEST-DONE . 
:ASDF-TEST-DONE) (ASDF-TEST::THUNK . #<bytecompiled-closure 
#<bytecompiled-function 00bb03c0>>)))
6: (#<bytecompiled-function UIOP/RUN-PROGRAM::%CHECK-RESULT> 
((UIOP/RUN-PROGRAM::IGNORE-ERROR-STATUS) (UIOP/RUN-PROGRAM::PROCESS) 
(UIOP/RUN-PROGRAM::COMMAND . "echo ok 1") (UIOP/RUN-PROGRAM::EXIT-CODE . 1)))
7: (#<bytecompiled-function UIOP/RUN-PROGRAM::%USE-SYSTEM> 
((UIOP/RUN-PROGRAM::OUTPUT-RESULT . "") (UIOP/RUN-PROGRAM::ERROR-OUTPUT-RESULT) 
(UIOP/RUN-PROGRAM::EXIT-CODE . 1) (UIOP/RUN-PROGRAM::IGNORE-ERROR-STATUS) 
(UIOP/RUN-PROGRAM::ERROR-OUTPUT) (UIOP/RUN-PROGRAM::OUTPUT :STRING :STRIPPED T) 
(UIOP/RUN-PROGRAM::INPUT) (UIOP/RUN-PROGRAM::KEYS :INPUT NIL :OUTPUT (:STRING 
:STRIPPED T) :ERROR-OUTPUT NIL :IF-INPUT-DOES-NOT-EXIST :ERROR 
:IF-OUTPUT-EXISTS :SUPERSEDE :IF-ERROR-OUTPUT-EXISTS :SUPERSEDE :ELEMENT-TYPE 
:DEFAULT :EXTERNAL-FORMAT :UTF-8 :OUTPUT (:STRING :STRIPPED T)) 
(UIOP/RUN-PROGRAM::COMMAND . "echo ok 1")))
8: (#<bytecompiled-function UIOP/RUN-PROGRAM:RUN-PROGRAM> 
((UIOP/RUN-PROGRAM::EXTERNAL-FORMAT . :UTF-8) (UIOP/RUN-PROGRAM::ELEMENT-TYPE . 
:DEFAULT) (UIOP/RUN-PROGRAM::IF-ERROR-OUTPUT-EXISTS . :SUPERSEDE) 
(UIOP/RUN-PROGRAM::ERROR-OUTPUT) (UIOP/RUN-PROGRAM::IF-OUTPUT-EXISTS . 
:SUPERSEDE) (UIOP/RUN-PROGRAM::OUTPUT :STRING :STRIPPED T) 
(UIOP/RUN-PROGRAM::IF-INPUT-DOES-NOT-EXIST . :ERROR) (UIOP/RUN-PROGRAM::INPUT) 
(UIOP/RUN-PROGRAM::FORCE-SHELL . T) (UIOP/RUN-PROGRAM::FORCE-SHELL-SUPPLIEDP) 
(UIOP/RUN-PROGRAM::IGNORE-ERROR-STATUS) (UIOP/RUN-PROGRAM::KEYS :OUTPUT 
(:STRING :STRIPPED T)) (UIOP/RUN-PROGRAM::COMMAND . "echo ok 1")))
9: (#<bytecompiled-function SI:BYTECODES> NIL)
10: (#<bytecompiled-function 00bb03c0> ((ASDF-TEST::NAME . 
"test-run-program.script") (ASDF-TEST::FILE . 
ASDF-TEST::|test-run-program.script|)))
11: (#<bytecompiled-function ASDF/CACHE:CALL-WITH-ASDF-CACHE> ((4140 . 0) 
(#:G3524) (4139 . #:G3523) (4138 . 0) (4137) (ASDF/CACHE::FUN . 
#<bytecompiled-closure #<bytecompiled-function 00bb03c0>>) (ASDF/CACHE::KEY) 
(ASDF/CACHE::OVERRIDE) (ASDF/CACHE::THUNK . #<bytecompiled-closure 
#<bytecompiled-function 00bb03c0>>)))
12: (#<bytecompiled-function ASDF-TEST::CALL-WITH-TEST> ((:ASDF-TEST-DONE . 
:ASDF-TEST-DONE) (ASDF-TEST::THUNK . #<bytecompiled-closure 
#<bytecompiled-function 00bb03c0>>)))
13: (#<bytecompiled-function ASDF-TEST:RUN-TEST-SCRIPT> ((ASDF-TEST::FILE . 
ASDF-TEST::|test-run-program.script|)))
14: (#<bytecompiled-function SI:BYTECODES> NIL)
15: (#<bytecompiled-function SI:BYTECODES> ((SI::OUTPUT-FILE . T) (SI::C-FILE) 
(SI::H-FILE) (SI::DATA-FILE) (SI::VERBOSE . T) (SI::SYSTEM-P) (EXT:QUIT)))
16: (#<bytecompiled-function SI:BYTECODES> NIL)
17: (NIL NIL)
Above backtrace due to this condition:
Subprocess with command "echo ok 1"
 exited with error code 1
Script failed

Reply via email to