Re: MacOSX/check-script/error "loading script.lisp"

[José H. E. <jos...@gm...>]

On Jun 17, 2010, at 6:38 AM, Sam Steingold wrote:

> José H. Espinosa wrote:
>> I test it on MacOSX 10.4.11
>
> thanks!
No problem!
>
>> rm -f script.lisp; echo '(error "loading script.lisp")' > script.lisp
>> if ./lisp.run -B . -N locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 - 
>> norc  -q -M lispinit.mem -x '(load "script.lisp")' -repl < /dev/ 
>> null; then  exit 1; else :; fi
>> ;; Loading file script.lisp ...
>> *** - loading script.lisp
>> The following restarts are available:
>> SKIP           :R1      skip (ERROR loading script.lisp)
>> STOP           :R2      stop loading file /Users/jhe/oss/clisp/ 
>> src/ script.lisp
>> ABORT          :R3      Abort main loop
>> *** - UNIX error 19 (ENODEV): No such device
>> The following restarts are available:
>> ABORT          :R1      Abort debug loop
>> SKIP           :R2      skip (ERROR loading script.lisp)
>> STOP           :R3      stop loading file /Users/jhe/oss/clisp/ 
>> src/ script.lisp
>> ABORT          :R4      Abort main loop
>> *** - UNIX error 19 (ENODEV): No such device
>> The following restarts are available:
>> ABORT          :R1      Abort debug loop
>> ABORT          :R2      Abort debug loop
>> SKIP           :R3      skip (ERROR loading script.lisp)
>> STOP           :R4      stop loading file /Users/jhe/oss/clisp/ 
>> src/ script.lisp
>> ABORT          :R5      Abort main loop
>> and the test keep looping and adding an extra ABORT option until  
>> I  kill the process.
>
> could you please compile --with-debug and retry?
> or at least do this:
> 1. rm -f stream.o
> 2. edit Makefile and add -DDEBUG_OS_ERROR to CFLAGS.
> 3. make lisp.run
> 4. execute the failing command:
> rm -f script.lisp; echo '(error "loading script.lisp")' >  
> script.lisp ;
>  ./lisp.run -B . -N locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc
>  -q -M lispinit.mem -x '(load "script.lisp")' -repl < /dev/null
>
> this should print the line number where the system call fails with  
> ENODEV

The output no is:

STACK size: 98238 [0x7b4f00 0x755008]
test "`echo '(+ foo bar)' | ./lisp.run -B . -N locale -E UTF-8 - 
Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x '(setq foo 11  
bar 99)' -repl | tr -d '\r'| tr '\n' '_'`" = '99_[1]> _110_' || exit 1
STACK size: 98238 [0x7b4f00 0x755008]
rm -f script.lisp; echo '(error "loading script.lisp")' > script.lisp
if ./lisp.run -B . -N locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc  
-q -M lispinit.mem -x '(load "script.lisp")' -repl < /dev/null; then  
exit 1; else :; fi
STACK size: 98238 [0x7b4f00 0x755008]
;; Loading file script.lisp ...
*** - loading script.lisp
The following restarts are available:
SKIP           :R1      skip (ERROR loading script.lisp)
STOP           :R2      stop loading file /Users/jhe/oss/clisp/src/ 
script.lisp
ABORT          :R3      Abort main loop

[stream.d:4879]
*** - UNIX error 19 (ENODEV): No such device
The following restarts are available:
ABORT          :R1      Abort debug loop
SKIP           :R2      skip (ERROR loading script.lisp)
STOP           :R3      stop loading file /Users/jhe/oss/clisp/src/ 
script.lisp
ABORT          :R4      Abort main loop

> thanks!
> Sam