[Ecls-list] [BUG] repeated interactive compiles fail

[Eric Marsden]

Hi,

The attached transcript (Linux/AMD64) illustres a bug when calling
COMPILE interactively twice, and a second error in the error processing.

,----
| > (lisp-implementation-version)
| "9.6.2"
| > (defun foo (x) (1+ x))
| FOO
| > (compile 'foo)
| ;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
| ;;; End of Pass 1.
| ;;; Note: in file NIL, position -1, and form
| ;;;   (LET* (# #) (DECLARE #) ...)
| ;;; Replacing variable G0 by its value
| ;;; Note: in file NIL, position -1, and form
| ;;;   compiler preprocess
| ;;; Invoking external command:
| ;;;   gcc  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC  -Dlinux
| -O 
| "-I/usr/local/include/" -w -c "/tmp/ECL004uyM3b7.c" -o "/tmp/ECL004uyM3b7.o"
| ;;; Note: in file NIL, position -1, and form
| ;;;   compiler preprocess
| ;;; Invoking external command:
| ;;;   gcc -o "/tmp/ECL004uyM3b7.fas" -L"/usr/local/lib/"
| "/tmp/ECL004uyM3b7.o"  -shared    -lecl  -lgc -lgmp -ldl  -lm
| FOO
| NIL
| NIL
| > (compile 'foo)
| ;;; Warning: We have lost the original function definition for
| Error in format: No more arguments.
|   We have lost the original function definition for ~s. Compilation to
| C failed
| while processing indirect format string:
|   ~?
|    ^
| Available restarts:
| 1. (QUIT-DEBUGGER) Quit debugger level 1.
| 2. (RESTART-TOPLEVEL) Go back to Top-Level REPL.
| Broken at LAMBDA.
| >> :pop
| Top level.
| > (quit)
`----

-- 
Eric Marsden