;;; Loading #P"C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/doit.lsp" ;;; Loading #P"c:/cygwin/home/Jjgarcia/tmp/ecl.def/cmp.fas" ;;; Loading #P"c:/cygwin/home/Jjgarcia/tmp/ecl.def/sysfun.lsp" ;;; Loading #P"c:/cygwin/home/Jjgarcia/tmp/ecl.def/RT.fas" ;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0 ;;; End of Pass 1. ;;; Note: Invoking external command: ;;; cl -I"c:/cygwin/home/Jjgarcia/tmp/ecl.def/" /EHsc /DGC_DLL /DGC_BUILD /nologo /D_CRT_SECURE_NO_DEPRECATE /DNDEBUG /MD /O2 /O2 -w -c "C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEA7.c" -Fo"C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEA7.obj"ECLFEA7.c ;;; Note: Invoking external command: ;;; cl -Fe"C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEA7.fas" "C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEA7.obj" /LD /link /incremental:no /nologo /nodefaultlib:libcmt /nodefaultlib:libcmtd /nodefaultlib:libc /nodefaultlib:libcd /nodefaultlib:msvcrtd.lib ecl.lib user32.lib ws2_32.lib shell32.lib /EXPORT:init_fas_CODE /LIBPATH:c:/cygwin/home/Jjgarcia/tmp/ecl.def/ /IMPLIB:C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEA7.implib Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEA7.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEA7.exp ECLFEAA.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEAA.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEAA.exp ECLFEAD.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEAD.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEAD.exp ECLFEB0.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEB0.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEB0.exp ;;; Warning: Redefining test MOP-0004-DEFCLASS-OPTIONS Doing 52 pending tests of 52 tests total. CL-0001-IMPORTaux-cl-0002.c Creating library C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/aux-cl-0002.implib and object C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/aux-cl-0002.exp CL-0002-MACRO-SHADOW CL-0003-APROPOS CL-0004-STREAMP CL-0005-SUBTYPEP-STREAM CL-0006-ENOUGH-NAMESTRING CL-0007-ADJUSTABLE-ARRAY CL-0008-PARSE-NAMESTRING CL-0010-HASH-ITERATOR CL-0011-MAKE-PATHNAME-WITH-BACK 46 100 67 75 61 98 50 45 98 79 57 89 57 62 85 96 52 87 56 85 Test CL-0012-COPY-READTABLE failed Form: (LET ((FROM-READTABLE (COPY-READTABLE)) (TO-READTABLE (COPY-READTABLE)) (CHAR-LIST 'NIL)) (DOTIMES (I 20) (LET* ((CODE (PRINT (+ 32 (RANDOM 70)))) (C (CODE-CHAR CODE))) (PUSH C CHAR-LIST) (SET-MACRO-CHARACTER (CODE-CHAR CODE) (EVAL (SI:QUASIQUOTE (LAMBDA (STR CH) (SI:UNQUOTE CODE)))) NIL FROM-READTABLE))) (COPY-READTABLE FROM-READTABLE TO-READTABLE) (LOOP FOR C IN CHAR-LIST UNLESS (AND (EQL (CODE-CHAR C) (LET ((*READTABLE* FROM-READTABLE)) (READ-FROM-STRING C))) (EQ (GET-MACRO-CHARACTER C FROM-READTABLE) (GET-MACRO-CHARACTER C TO-READTABLE))) COLLECT C)) Expected value: NIL Actual value: #. Condition: #\U is not of type INTEGER.'rm' is not recognized as an internal or external command, operable program or batch file. Test CL-0013-TRUENAME failed Form: (PROGN (SI:SYSTEM "rm -rf foo; ln -sf //usr/ foo") (NAMESTRING (TRUENAME "./foo"))) Expected value: "/usr/" Actual value: #. Condition: Filesystem error with pathname "./foo". Either 1) the file does not exist, or 2) we are not allow to access the file, or 3) the pathname points to a broken symbolic link. Test CL-0014-SHARP-DOT failed Form: (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LET ((*PRINT-CIRCLE* T)) (READ-FROM-STRING "'#.(princ (list '#1=(1 2) '#1#))"))) Expected value: "(#1=(1 2) #1#)" Actual value: "(#1=(1 2) (1 . #1#))". CL-0015-SETF-EXPANDER CL-0016-DEFSTRUCT-INCLUDE Test CL-0017-LOAD-SPECIAL failed Form: (HANDLER-CASE (AND (LOAD "/dev/null") T) (SERIOUS-CONDITION (C) NIL)) Expected value: T Actual value: NIL. Test CL-0018-SHARP-EQ failed Form: (HANDLER-CASE (VALUES (READ-FROM-STRING "(#1=(0 1 2) #.(length '#1#))")) (SERIOUS-CONDITION (C) NIL)) Expected value: ((0 1 2) 3) Actual value: ((0 1 2) 4). CL-0019-FDEFINITION CL-0020-MAKE-INSTANCES-OBSOLETE CL-0021-RATIO-TO-FLOAT INT-0001-GLOBAL-SETQECLFEB5.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEB5.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEB5.exp CMP-0001-BLOCK CMP-0002-PATHNAME'rm' is not recognized as an internal or external command, operable program or batch file. Test CMP-0003-PATHS failed Form: (LET* ((OUTPUT (COMPILE-FILE-PATHNAME "tmp/aux" :TYPE :FASL)) (H-FILE (COMPILE-FILE-PATHNAME OUTPUT :TYPE :H)) (C-FILE (COMPILE-FILE-PATHNAME OUTPUT :TYPE :C)) (DATA-FILE (COMPILE-FILE-PATHNAME OUTPUT :TYPE :DATA))) (AND (ZEROP (SI:SYSTEM "rm -rf tmp; mkdir tmp")) (WITH-COMPILER ("aux-cmp-0003-paths.lsp" :OUTPUT-FILE OUTPUT :C-FILE T :H-FILE T :DATA-FILE T) '(DEFUN FOO (X) (1+ X))) (PROBE-FILE OUTPUT) (PROBE-FILE C-FILE) (PROBE-FILE H-FILE) (PROBE-FILE DATA-FILE) (DELETE-FILE "aux-cmp-0003-paths.lsp") T)) Expected value: T Actual value: NIL. aux-cmp-0004.c Creating library C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/aux-cmp-0004.implib and object C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/aux-cmp-0004.exp CMP-0004-DEFCONSTANT-WARNECLFEB9.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEB9.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEB9.exp CMP-0005-DECLARATIONECLFEBC.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEBC.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEBC.exp CMP-0006-CALL-ARGUMENTS-LIMIT CMP-0007-CIRCULAR-LOAD-FORM # # # # aux-cmp-0008.c Creating library C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/aux-cmp-0008.implib and object C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/aux-cmp-0008.exp CMP-0008-MAKE-LOAD-FORMECLFEC1.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEC1.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEC1.exp ECLFEC4.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEC4.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEC4.exp CMP-0009-MACROLET Test CMP-0010-MACROLET failed Form: (FLET ((EVAL-WITH-ERROR (FORM) (HANDLER-CASE (EVAL FORM) (ERROR (C) 'ERROR)))) (MAKUNBOUND 'FOO) (FMAKUNBOUND 'FOO) (LET ((FAA 1)) (DECLARE (SPECIAL FAA)) (MAPCAR #'EVAL-WITH-ERROR '((LET ((FAA 2)) (MACROLET ((M () FAA)) (M))) (LET ((FAA 4)) (DECLARE (SPECIAL FAA)) (MACROLET ((M () FAA)) (M))) (LET ((FAA 4)) (DECLARE (SPECIAL FOO)) (MACROLET ((M () FOO)) (M))) (LET ((FAA 5)) (MACROLET ((M () FOO)) (M))) (MACROLET ((FOO () 6)) (MACROLET ((M () (FOO))) (M))) (MACROLET ((F1 () 7) (F2 () 8)) (MACROLET ((F1 () 9) (F2 () 10) (M () (LIST 'QUOTE (LIST (F1) (F2))))) (M))) (FLET ((FOO () 1)) (MACROLET ((M () (FOO))) (M))) (LABELS ((FOO () 1)) (MACROLET ((M () (FOO))) (M))))))) Expected value: (ERROR 1 ERROR ERROR 6 (7 8) ERROR ERROR) Actual value: #. Condition: Cannot unbind the constant FOO.ECLFEC7.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEC7.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEC7.exp ECLFECA.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFECA.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFECA.exp ECLFECD.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFECD.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFECD.exp ECLFED0.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFED0.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFED0.exp ECLFED3.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFED3.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFED3.exp ECLFED6.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFED6.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFED6.exp ECLFED9.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFED9.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFED9.exp ECLFEDC.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEDC.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEDC.exp ;;; Internal error: ecl_make_cfun: function requires too many arguments. Test CMP-0011-C-ARGUMENTS-LIMIT failed Form: (MAPCAR #'(LAMBDA (NARGS) (LET* ((ARG-LIST (LOOP FOR I FROM 0 BELOW NARGS COLLECT (INTERN (FORMAT NIL "arg~d" I)))) (DATA (LOOP FOR I FROM 0 BELOW NARGS COLLECT I)) (LAMBDA-FORM (SI:QUASIQUOTE (LAMBDA (SI:UNQUOTE ARG-LIST) (AND (EQUALP (LIST (SI:UNQUOTE-SPLICE ARG-LIST)) '(SI:UNQUOTE DATA)) (SI:UNQUOTE NARGS))))) (*COMPILE-VERBOSE* NIL) (*COMPILE-PRINT* NIL) (FUNCTION (COMPILE 'FOO LAMBDA-FORM))) (LIST (APPLY FUNCTION (SUBSEQ DATA 0 NARGS)) (HANDLER-CASE (APPLY FUNCTION (MAKE-LIST (1+ NARGS))) (ERROR (C) :ERROR)) (HANDLER-CASE (APPLY FUNCTION (MAKE-LIST (1- NARGS))) (ERROR (C) :ERROR))))) '(10 20 30 40 50 63 64 65 70)) Expected value: ((10 :ERROR :ERROR) (20 :ERROR :ERROR) (30 :ERROR :ERROR) (40 :ERROR :ERROR) (50 :ERROR :ERROR) (63 :ERROR :ERROR) (64 :ERROR :ERROR) (65 :ERROR :ERROR) (70 :ERROR :ERROR)) Actual value: #. Condition: Wrong number of arguments passed to function #.aux-cmp-0003-paths.c Creating library C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/aux-cmp-0003-paths.implib and object C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/aux-cmp-0003-paths.exp CMP-0012-COMPUTE-CLOSUREECLFEE1.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEE1.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEE1.exp ECLFEE4.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEE4.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEE4.exp CMP-0013-FTYPE-USER-TYPEECLFEE7.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEE7.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEE7.exp CMP-0014-COERCEECLFEEA.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEEA.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEEA.exp CMP-0015-COERCEECLFEED.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEED.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEED.exp CMP-0016-LET-WITH-SPECIALS CMP-0017-DOCSTRINGSECLFEF1.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEF1.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEF1.exp ECLFEF4.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEF4.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEF4.exp ECLFEF7.c Creating library C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEF7.implib and object C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEF7.exp CMP-0018-IGNORABLEECLFEFA.c C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEFA.c(29) : error C2466: cannot allocate an array of constant size 0 C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEFA.c(29) : error C2133: 'x' : unknown size LINK : fatal error LNK1181: cannot open input file 'C:/DOCUME~1/Jjgarcia/LOCALS~1/Temp/ECLFEFA.obj' ;;; Error: The C compiler failed to compile the intermediate code for NIL. Test CMP-0019-BYTECODES-ENTRY-POSITION failed Form: (LET ((INDICES (FUNCALL (COMPILE NIL '(LAMBDA () (FFI:C-INLINE NIL NIL LIST " union cl_lispunion x[0]; cl_index bytecodes = (char*)(&(x->bytecodes.entry)) - (char*)x; cl_index bclosure = (char*)(&(x->bclosure.entry)) - (char*)x; cl_index cfun = (char*)(&(x->cfun.entry)) - (char*)x; cl_index cfunfixed = (char*)(&(x->cfunfixed.entry)) - (char*)x; cl_index cclosure = (char*)(&(x->cclosure.entry)) - (char*)x; @(return) = cl_list(5, MAKE_FIXNUM(bytecodes), MAKE_FIXNUM(bclosure), MAKE_FIXNUM(cfun), MAKE_FIXNUM(cfunfixed), MAKE_FIXNUM(cclosure));" :ONE-LINER NIL)))))) (AND (APPLY #'= INDICES) T)) Expected value: T Actual value: #. Condition: The function NIL is undefined. MOP-0001-FIXUP MOP-0002-METACLASSES MOP-0003-SYMBOLS MOP-0004-DEFCLASS-OPTIONS MOP-0005-SETF-SPECIALIZER Test MOP-0006-METHOD-SPECIALIZER failed Form: (PROGN (DEFMETHOD FOO (A)) (PROG1 (METHOD-SPECIALIZERS (FIRST (GENERIC-FUNCTION-METHODS #'FOO))) (FMAKUNBOUND 'FOO))) Expected value: '(T) Actual value: #. Condition: The symbol FOO is bound to an ordinary function and is not a valid name for a generic function MOP-0007-SLOT-INHERITANCE MOP-0008-DEFCLASS-OPTION-QUOTE Test MOP-0009-DEFCLASS-INITFORM failed Form: (LOOP FOR QUOTING IN '(NIL T) COLLECT (LOOP FOR F IN '(MOST-POSITIVE-FIXNUM # 12 "hola" :A T NIL) COLLECT (PROG1 (EVAL (SI:QUASIQUOTE (PROGN (DEFCLASS FOO NIL ((A :INITFORM (SI:UNQUOTE (IF QUOTING (LIST 'QUOTE F) F))))) (SLOT-VALUE (MAKE-INSTANCE 'FOO) 'A)))) (DELETE-CLASS 'FOO)))) Expected value: ((536870911 #> 12 "hola" :A T NIL) (MOST-POSITIVE-FIXNUM #> 12 "hola" :A T NIL)) Actual value: ((536870911 # 12 "hola" :A T NIL) (MOST-POSITIVE-FIXNUM # 12 "hola" :A T NIL)). 'rm' is not recognized as an internal or external command, operable program or batch file. a.c b.c ECLFEFB.c LINK : fatal error LNK1181: cannot open input file 'ecl.lib' Test FFI-001-CALLBACK failed Form: (AND (ZEROP (SI:SYSTEM "rm -rf tmp; mkdir tmp")) (WITH-OPEN-FILE (S "tmp/a.lsp" :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE :IF-DOES-NOT-EXIST :CREATE) (PRINT '(FFI:DEFCALLBACK FOO :VOID NIL NIL) S)) (WITH-OPEN-FILE (S "tmp/b.lsp" :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE :IF-DOES-NOT-EXIST :CREATE) (PRINT '(FFI:DEFCALLBACK FOO :VOID NIL NIL) S)) (COMPILE-FILE "tmp/a.lsp" :SYSTEM-P T) (COMPILE-FILE "tmp/b.lsp" :SYSTEM-P T) (C:BUILD-PROGRAM "tmp/foo" :LISP-FILES (LIST (COMPILE-FILE-PATHNAME "tmp/a.lsp" :TYPE :OBJECT) (COMPILE-FILE-PATHNAME "tmp/b.lsp" :TYPE :OBJECT))) (PROBE-FILE (COMPILE-FILE-PATHNAME "tmp/foo" :TYPE :PROGRAM)) (ZEROP (SI:SYSTEM "rm -rf tmp")) T) Expected value: T Actual value: NIL. 'rm' is not recognized as an internal or external command, operable program or batch file. c.c Creating library C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/tmp/c.implib and object C:/cygwin/home/Jjgarcia/src/ecl-test/bugs/tmp/c.exp FFI-002-CALLBACK Test MP-0001-WITH-LOCK failed Form: (PROGN (DEFPARAMETER *MP-0001-WITH-LOCK-A* T) (DEFPARAMETER *MP-0001-WITH-LOCK-B* (MP:MAKE-LOCK)) (MP:WITH-LOCK (*MP-0001-WITH-LOCK-B*) (LET ((BACKGROUND-PROCESS (MP:PROCESS-RUN-FUNCTION 'MP-0001-WITH-LOCK (COERCE '(LAMBDA () (HANDLER-CASE (PROGN (SETF *MP-0001-WITH-LOCK-A* 1) (MP:WITH-LOCK (*MP-0001-WITH-LOCK-B*) (SETF *MP-0001-WITH-LOCK-A* 1))) (ERROR (C) (PRINC C) (TERPRI) (SETF *MP-0001-WITH-LOCK-A* C))) (SETF *MP-0001-WITH-LOCK-A* 2)) 'FUNCTION)))) (AND (MP:PROCESS-KILL BACKGROUND-PROCESS) (PROGN (SLEEP 1) (NOT (MP:PROCESS-ACTIVE-P BACKGROUND-PROCESS))) (EQ *MP-0001-WITH-LOCK-A* 1))))) Expected value: T Actual value: #. Condition: Cannot interrupt the inactive process # 13 out of 52 total tests failed: CL-0012-COPY-READTABLE, CL-0013-TRUENAME, CL-0014-SHARP-DOT, CL-0017-LOAD-SPECIAL, CL-0018-SHARP-EQ, CMP-0003-PATHS, CMP-0010-MACROLET, CMP-0011-C-ARGUMENTS-LIMIT, CMP-0019-BYTECODES-ENTRY-POSITION, MOP-0006-METHOD-SPECIALIZER, MOP-0009-DEFCLASS-INITFORM, FFI-001-CALLBACK, MP-0001-WITH-LOCK. real time : 21.961 secs run time : 0.711 secs gc count : 21 times consed : 50579456 bytes