[Ecls-list] Invalid C output at safety 0

[Waldek Hebisch]

When I try to compile the function below at safety 0 I get:

> ;;; Compiling ppp3.lisp.
;;; Compiling (DEFUN TRMETA1 ...).
;;; Compiling (SI:FSET 'TRMETA1 ...).
;;; The variable $LASTPREFIX is undefined.
;;; The compiler will assume this variable is a global.
;;; End of Pass 1.
;;; Emitting code for TRMETA1.
;;; Note: Emitting linking call for PNAME
;;; Note: Emitting linking call for INTERNL
;;; Note: Emitting linking call for MOAN
;;; Note: Emitting linking call for CROAK
;;; Calling the C compiler...
;;; Note: Invoking external command:
;;; gcc  -D_GNU_SOURCE -g -O2 -fPIC  -fstrict-aliasing -Dlinux -O "-I/var/tmp/hebisch/usr/include/" -w -c "/var/tmp/hebisch/axp6/ax-build2/src/pp/ppp3.c" -o "/var/tmp/hebisch/axp6/ax-build2/src/pp/ppp3.o"

/var/tmp/hebisch/axp6/ax-build2/src/pp/ppp3.c: In function 'L1trmeta1':
/var/tmp/hebisch/axp6/ax-build2/src/pp/ppp3.c:14: error: invalid lvalue in assignment
(SYSTEM "gcc  -D_GNU_SOURCE -g -O2 -fPIC  -fstrict-aliasing -Dlinux -O \"-I/var/tmp/hebisch/usr/include/\" -w -c \"/var/tmp/hebisch/axp6/ax-build2/src/pp/ppp3.c\" -o \"/var/tmp/hebisch/axp6/ax-build2/src/pp/ppp3.o\"") returned non-zero value 1
Broken at EVAL.Available restarts:
1. (CONTINUE) Continues anyway.
Broken at COMPILE-FILE.
>>

Compilation works fine at safety 1 or 2.

Content of "ppp3.lisp":

(defun trmeta1 (x)
  (let (y)
  (if (not (fboundp  x))
      (if (fboundp (setq y (internl $lastprefix (pname x))))
          (moan (format nil "********* ~S RENAMED AS ~S" x (setq x y)))
          (croak (format nil  "********* ~S MUST BE GIVEN PREFIX" x))))
  ))

P.S: Juanjo, thanks for previous fixes.
-- 
                              Waldek Hebisch
hebisch at math.uni.wroc.pl