[Ecls-list] ECL 9.3.0 pre-release

[Samium Gromoff]

Good day Juan,

The current git master fails to build CL-FAD[1] (which built fine before
the new_cfun merge):

deepfire at betelheise:~$ ecl
;;; Loading #P"/usr/lib/ecl-9.3.0/asdf.fas"
;;; Loading #P"/usr/lib/ecl-9.3.0/cmp.fas"
;;; Loading #P"/usr/lib/ecl-9.3.0/sysfun.lsp"
ECL (Embeddable Common-Lisp) 9.3.0 (CVS 2008-07-12 18:54)
Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
Copyright (C) 1993 Giuseppe Attardi
Copyright (C) 2000 Juan J. Garcia-Ripoll
ECL is free software, and you are welcome to redistribute it
under certain conditions; see file 'Copyright' for details.
Type :h for Help.  Top level.
> (require :cl-fad)

;;; Loading "/home/deepfire/.sbcl/systems/cl-fad.asd"
;;; Compiling /little/git/cl-fad/packages.lisp.
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;; End of Pass 1.
;;; Note: Creating tag: "_eclOsVfxxoSOSY7W_U7STygy" for #P"/little/git/cl-fad/packages.o"
;;; Note: Invoking external command:
;;;   gcc  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC -D_THREAD_SAFE  -Dlinux -O "-I/usr
;;; Finished compiling /little/git/cl-fad/packages.lisp.
;;; Note: Scanning #P"/little/git/cl-fad/packages.o"
;;; Note: Found tag: "_eclOsVfxxoSOSY7W_U7STygy" for /little/git/cl-fad/packages.o
;;; Note: Invoking external command:
;;;   gcc  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC -D_THREAD_SAFE  -Dlinux -O "-I/usr
.o"
;;; Note: Invoking external command:
;;;   gcc -o "/little/git/cl-fad/packages.fas" -L"/usr/lib/" "/little/home/deepfire/ECLINITwej9
;;; Loading "/little/git/cl-fad/packages.fas"
;;; Compiling /little/git/cl-fad/fad.lisp.
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;; Compiling (DEFUN COMPONENT-PRESENT-P ...).
;;; Compiling (DEFUN DIRECTORY-PATHNAME-P ...).
;;; Compiling (DEFUN PATHNAME-AS-DIRECTORY ...).
;;; Compiling (DEFUN DIRECTORY-WILDCARD ...).
;;; Compiling (DEFUN LIST-DIRECTORY ...).
;;; Compiling (DEFUN PATHNAME-AS-FILE ...).
;;; Compiling (DEFUN FILE-EXISTS-P ...).
;;; Compiling (DEFUN DIRECTORY-EXISTS-P ...).
;;; Compiling (DEFUN WALK-DIRECTORY ...).
;;; Compiling (DEFVAR *STREAM-BUFFER-SIZE* ...).
;;; Compiling (DEFUN COPY-STREAM ...).
;;; Compiling (DEFUN COPY-FILE ...).
;;; Compiling (DEFUN DELETE-DIRECTORY-AND-FILES ...).
;;; Compiling (DEFVAR *HYPERDOC-BASE-URI* ...).
;;; End of Pass 1.
;;; Note: Creating tag: "_eclOsVfxxoSOSY7W_U7STygy" for #P"/little/git/cl-fad/packages.o"
;;; Note: Invoking external command:
;;;   gcc  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC -D_THREAD_SAFE  -Dlinux -O "-I/usr/include/" -w -c "/little/git/cl-fad/packages.c" -o "/little/git/cl-fad/packages.o"
;;; Finished compiling /little/git/cl-fad/packages.lisp.
;;; Note: Scanning #P"/little/git/cl-fad/packages.o"
;;; Note: Found tag: "_eclOsVfxxoSOSY7W_U7STygy" for /little/git/cl-fad/packages.o
;;; Note: Invoking external command:
;;;   gcc  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC -D_THREAD_SAFE  -Dlinux -O "-I/usr/include/" -w -c "/little/home/deepfire/ECLINITwej9fl.c" -o "/little/home/deepfire/ECLINITwej9fl.o"
;;; Note: Invoking external command:
;;;   gcc -o "/little/git/cl-fad/packages.fas" -L"/usr/lib/" "/little/home/deepfire/ECLINITwej9fl.o" "/little/git/cl-fad/packages.o"  -shared    -lecl -lpthread -ldl  -lm  
;;; Loading "/little/git/cl-fad/packages.fas"
;;; Compiling /little/git/cl-fad/fad.lisp.
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;; Compiling (DEFUN COMPONENT-PRESENT-P ...).
;;; Compiling (DEFUN DIRECTORY-PATHNAME-P ...).
;;; Compiling (DEFUN PATHNAME-AS-DIRECTORY ...).
;;; Compiling (DEFUN DIRECTORY-WILDCARD ...).
;;; Compiling (DEFUN LIST-DIRECTORY ...).
;;; Compiling (DEFUN PATHNAME-AS-FILE ...).
;;; Compiling (DEFUN FILE-EXISTS-P ...).
;;; Compiling (DEFUN DIRECTORY-EXISTS-P ...).
;;; Compiling (DEFUN WALK-DIRECTORY ...).
;;; Compiling (DEFVAR *STREAM-BUFFER-SIZE* ...).
;;; Compiling (DEFUN COPY-STREAM ...).
;;; Compiling (DEFUN COPY-FILE ...).
;;; Compiling (DEFUN DELETE-DIRECTORY-AND-FILES ...).
;;; Compiling (DEFVAR *HYPERDOC-BASE-URI* ...).
;;; End of Pass 1.
;;; Note: Creating tag: "_eclimpiXWuw1f52W_mGSTygy" for #P"/little/git/cl-fad/fad.o"
;;; Emitting code for COMPONENT-PRESENT-P.
;;; Emitting code for DIRECTORY-PATHNAME-P.
;;; Emitting code for PATHNAME-AS-DIRECTORY.
;;; Emitting code for DIRECTORY-WILDCARD.
;;; Emitting code for LIST-DIRECTORY.
;;; Emitting code for PATHNAME-AS-FILE.
;;; Emitting code for FILE-EXISTS-P.
;;; Emitting code for DIRECTORY-EXISTS-P.
;;; Emitting code for WALK-DIRECTORY.
;;; Emitting code for WALK.
;;; Note: Eliminating unreachable code
;;; Note: Eliminating unreachable code
;;; Note: Eliminating unreachable code
;;; Emitting code for COPY-STREAM.
;;; Note: Eliminating unreachable code
;;; Emitting code for COPY-FILE.
;;; Emitting code for DELETE-DIRECTORY-AND-FILES.
;;; Note: Reusing keywords lists for (IF-DOES-NOT-EXIST)
;;; Emitting code for #:G22.
;;; Note: Eliminating unreachable code
Wrong number of arguments passed to an anonymous function
;;; Note: Eliminating unreachable codeBroken at SI:BYTECODES.Available restarts:
1. (ABORT) ABORT
2. (TRY-RECOMPILING) Try recompiling fad
3. (RETRY) Retry performing #<ASDF:COMPILE-OP NIL 33226352> on #<ASDF:CL-SOURCE-FILE "fad" "cl-fad" 33092496>.
4. (ACCEPT) Continue, treating #<ASDF:COMPILE-OP NIL 33226352> on #<ASDF:CL-SOURCE-FILE "fad" "cl-fad" 33092496> as having been successful.
Broken at SI:BYTECODES.
CL-FAD>> 

A somewhat disappointing detail is that the compilation error message
gets lost in non-interactive mode:

deepfire at betelheise:~$ ecl -eval '(require :cl-fad)'
;;; Loading #P"/usr/lib/ecl-9.3.0/asdf.fas"
;;; Loading #P"/usr/lib/ecl-9.3.0/cmp.fas"
;;; Loading #P"/usr/lib/ecl-9.3.0/sysfun.lsp"
;;; Loading "/home/deepfire/.sbcl/systems/cl-fad.asd"
;;; Compiling /little/git/cl-fad/packages.lisp.
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;; End of Pass 1.
;;; Note: Creating tag: "_eclOsVfxxoSOSY7W_R3cSygy" for #P"/little/git/cl-fad/packages.o"
;;; Note: Invoking external command:
;;;   gcc  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC -D_THREAD_SAFE  -Dlinux -O "-I/usr
;;; Finished compiling /little/git/cl-fad/packages.lisp.
;;; Note: Scanning #P"/little/git/cl-fad/packages.o"
;;; Note: Found tag: "_eclOsVfxxoSOSY7W_R3cSygy" for /little/git/cl-fad/packages.o
;;; Note: Invoking external command:
;;;   gcc  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC -D_THREAD_SAFE  -Dlinux -O "-I/usr
.o"
;;; Note: Invoking external command:
;;;   gcc -o "/little/git/cl-fad/packages.fas" -L"/usr/lib/" "/little/home/deepfire/ECLINITNzf7
;;; Loading "/little/git/cl-fad/packages.fas"
;;; Compiling /little/git/cl-fad/fad.lisp.
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;; Compiling (DEFUN COMPONENT-PRESENT-P ...).
;;; Compiling (DEFUN DIRECTORY-PATHNAME-P ...).
;;; Compiling (DEFUN PATHNAME-AS-DIRECTORY ...).
;;; Compiling (DEFUN DIRECTORY-WILDCARD ...).
;;; Compiling (DEFUN LIST-DIRECTORY ...).
;;; Compiling (DEFUN PATHNAME-AS-FILE ...).
;;; Compiling (DEFUN FILE-EXISTS-P ...).
;;; Compiling (DEFUN DIRECTORY-EXISTS-P ...).
;;; Compiling (DEFUN WALK-DIRECTORY ...).
;;; Compiling (DEFVAR *STREAM-BUFFER-SIZE* ...).
;;; Compiling (DEFUN COPY-STREAM ...).
;;; Compiling (DEFUN COPY-FILE ...).
;;; Compiling (DEFUN DELETE-DIRECTORY-AND-FILES ...).
;;; Compiling (DEFVAR *HYPERDOC-BASE-URI* ...).
;;; End of Pass 1.
;;; Note: Creating tag: "_eclimpiXWuw1f52W_7CcSygy" for #P"/little/git/cl-fad/fad.o"
;;; Emitting code for COMPONENT-PRESENT-P.
;;; Emitting code for DIRECTORY-PATHNAME-P.
deepfire at betelheise:~$ 

When I add a `(declaim (optimize debug safety))' at the beginning of
fad.lisp something more serious appears:

deepfire at betelheise:~$ ecl
;;; Loading #P"/usr/lib/ecl-9.3.0/asdf.fas"
;;; Loading #P"/usr/lib/ecl-9.3.0/cmp.fas"
;;; Loading #P"/usr/lib/ecl-9.3.0/sysfun.lsp"
ECL (Embeddable Common-Lisp) 9.3.0 (CVS 2008-07-12 18:54)
Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
Copyright (C) 1993 Giuseppe Attardi
Copyright (C) 2000 Juan J. Garcia-Ripoll
ECL is free software, and you are welcome to redistribute it
under certain conditions; see file 'Copyright' for details.
Type :h for Help.  Top level.
> (require :cl-fad)

;;; Loading "/home/deepfire/.sbcl/systems/cl-fad.asd"
;;; Compiling /little/git/cl-fad/packages.lisp.
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;; End of Pass 1.
;;; Note: Creating tag: "_eclOsVfxxoSOSY7W_DfHTygy" for #P"/little/git/cl-fad/packages.o"
;;; Note: Invoking external command:
;;;   gcc  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC -D_THREAD_SAFE  -Dlinux -O "-I/usr/include/" -w -c "/little/git/cl-fad/packages.c" -o "/little/git/cl-fad/packages.o"
;;; Finished compiling /little/git/cl-fad/packages.lisp.
;;; Note: Scanning #P"/little/git/cl-fad/packages.o"
;;; Note: Found tag: "_eclOsVfxxoSOSY7W_DfHTygy" for /little/git/cl-fad/packages.o
;;; Note: Invoking external command:
;;;   gcc  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC -D_THREAD_SAFE  -Dlinux -O "-I/usr/include/" -w -c "/little/home/deepfire/ECLINITlZz5K3.c" -o "/little/home/deepfire/ECLINITlZz5K3.o"
;;; Note: Invoking external command:
;;;   gcc -o "/little/git/cl-fad/packages.fas" -L"/usr/lib/" "/little/home/deepfire/ECLINITlZz5K3.o" "/little/git/cl-fad/packages.o"  -shared    -lecl -lpthread -ldl  -lm  
;;; Loading "/little/git/cl-fad/packages.fas"
;;; Compiling /little/git/cl-fad/fad.lisp.
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;; Compiling (DEFUN COMPONENT-PRESENT-P ...).
;;; Compiling (DEFUN DIRECTORY-PATHNAME-P ...).
;;; Compiling (DEFUN PATHNAME-AS-DIRECTORY ...).
;;; Compiling (DEFUN DIRECTORY-WILDCARD ...).
;;; Compiling (DEFUN LIST-DIRECTORY ...).
;;; Compiling (DEFUN PATHNAME-AS-FILE ...).
;;; Compiling (DEFUN FILE-EXISTS-P ...).
;;; Compiling (DEFUN DIRECTORY-EXISTS-P ...).
;;; Compiling (DEFUN WALK-DIRECTORY ...).
;;; Compiling (DEFVAR *STREAM-BUFFER-SIZE* ...).
;;; Compiling (DEFUN COPY-STREAM ...).
;;; Compiling (DEFUN COPY-FILE ...).
;;; Compiling (DEFUN DELETE-DIRECTORY-AND-FILES ...).
;;; Compiling (DEFVAR *HYPERDOC-BASE-URI* ...).
;;; End of Pass 1.
;;; Note: Creating tag: "_eclimpiXWuw1f52W_NoHTygy" for #P"/little/git/cl-fad/fad.o"
;;; Emitting code for COMPONENT-PRESENT-P.
;;; Emitting code for DIRECTORY-PATHNAME-P.
Internal error: A bug was found in the compiler.
Broken at SI:BYTECODES.Available restarts:
1. (ABORT) ABORT
2. (TRY-RECOMPILING) Try recompiling fad
3. (RETRY) Retry performing #<ASDF:COMPILE-OP NIL 38092400> on #<ASDF:CL-SOURCE-FILE "fad" "cl-fad" 37958544>.
4. (ACCEPT) Continue, treating #<ASDF:COMPILE-OP NIL 38092400> on #<ASDF:CL-SOURCE-FILE "fad" "cl-fad" 37958544> as having been successful.
Broken at SI:BYTECODES.
CL-FAD>> 

:backtrace shows nothing interesting beyond si:bytecodes, an all cases.


regards, Samium Gromoff


1. http://weitz.de/files/cl-fad.tar.gz