[Ecls-list] ASDF redesign

[Samium Gromoff]

Good evening once again, Juan, list,

Today's CVS reveals the following problem:

foo.lisp: ------------------

(flet (((setf bar) (x)))
  (defun foo ()
    (setf (bar) 1)))

(foo)

ecl -eval '(load (compile-file "foo.lisp"))'
;;; Loading #P"/usr/lib/ecl/cmp.fas"
;;; Loading #P"/usr/lib/ecl/sysfun.lsp"
;;; Compiling ../foo.lisp.
;;; Compiling (FLET (#) ...).
;;; Warning: The variable X is not used.
;;; End of Pass 1.
;;; Emitting code for FOO.
;;; Note: Emiting FDEFINITION for (SETF BAR)
;;; Note: Emiting FUNCALL for FOO
;;; Calling the C compiler...
;;; Note: Invoking external command:
;;; gcc  -D_GNU_SOURCE -g -O2 -fPIC  -fstrict-aliasing -Dlinux -O "-I/usr/include/" -w -c "/mnt/ext/home/deepfire/local/foo.c" -o "/mnt/ext/home/deepfire/local/foo.o"
;;; Note: Invoking external command:
;;; gcc -o "/mnt/ext/home/deepfire/local/foo.fas" -L"/usr/lib/" "/mnt/ext/home/deepfire/local/foo.o"  -shared    -lecl -ldl  -lm   -lgmp
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;; Finished compiling ../foo.lisp.
;;; Loading "/mnt/ext/home/deepfire/local/foo.fas"
An error occurred during initialization:
The function (SETF BAR) is undefined..


regards, Samium Gromoff