Re: pretest for 2.47 #3

[Sam S. <sd...@gn...>]

Yaroslav Kavenchuk wrote:
> 
> next bug, possible not in clisp:
> 
> echo '(progn (setf (stream-element-type *standard-input*) (quote 
> (unsigned-byte 8))) (exit 42))' | lisp.exe -B . -N locale -E UTF-8 
> -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -; test $? = 42 || exit 1
> Reserved address range 0x19d90000-0x5fffffff .
> STACK depth: 98222 [0xe7ff40 0xe20088]
> SP depth: 515968
> make: *** [check-script] Error 1

> $ lisp.exe -B . -N locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M 
> lispinit.mem -x "(exit 42)" ; echo $?
> Reserved address range 0x19d90000-0x5fffffff .
> STACK depth: 98222 [0xe5ff40 0xe00088]
> SP depth: 515968
> 0

please compile with debug and run under gdb.
you need to set a break in quit() and watch exitcode and final_exitcode.
line spvw.d:3339 calls _exit(exitcode) - is it reached?
what is exitcode?

> $ LANGUAGE=ENGLISH LANG=ENGLISH lisp.exe -B . -N locale -E UTF-8 
> -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem
> Reserved address range 0x19d90000-0x5fffffff .
> STACK depth: 98222 [0xe7ff40 0xe20088]
> SP depth: 515968
> [1]> (EXT:RUN-PROGRAM "lisp.exe"
> :arguments (list
> "-B" "."
> "-N" "locale"
> "-E" "UTF-8"
> "-Epathname" "1:1"
> "-Emisc" "1:1"
> "-norc" "-q"
> "-M" "lispinit.mem"
> "-x" "(exit 42)"))
> Reserved address range 0x19d90000-0x5fffffff .
> STACK depth: 98222 [0xe7ff40 0xe20088]
> SP depth: 515968
> T
> [2]>
> 
> Why run-program return T - not integer code and not NIL?

fixed, thanks.