ECL (Embeddable Common-Lisp) 9.12.3
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.
> 
;;; Loading "/home/cfmac/jjgarcia/tmp/ia64/ecl-test/bugs/doit.lsp"
;;; Loading #P"/home/cfmac/jjgarcia/tmp/ia64/lib/ecl-9.12.3/cmp.fas"
;;; Loading #P"/home/cfmac/jjgarcia/tmp/ia64/lib/ecl-9.12.3/sysfun.lsp"
;;; Loading #P"/home/cfmac/jjgarcia/tmp/ia64/lib/ecl-9.12.3/rt.fas"
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;; End of Pass 1.
;;; Note: Invoking external command:
;;;   gcc "-I/home/cfmac/jjgarcia/tmp/ia64/include/"  -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -g -O2 -fPIC  -Dlinux -O -w -c "/scratch/jjgarcia/112586.masterha.csic.es/ECL001Gfqa9C.c" -o "/scratch/jjgarcia/112586.masterha.csic.es/ECL001Gfqa9C.o"
;;; Warning: Redefining test MOP-0004-DEFCLASS-OPTIONS
;;; Note: Invoking external command:
;;;   gcc -o "/scratch/jjgarcia/112586.masterha.csic.es/ECL001Gfqa9C.fas" -L"/home/cfmac/jjgarcia/tmp/ia64/lib/" "/scratch/jjgarcia/112586.masterha.csic.es/ECL001Gfqa9C.o"  "-Wl,--rpath,/home/cfmac/jjgarcia/tmp/ia64/lib/" -shared    -lecl  -lgmp -ldl  -lm 
Doing 51 pending tests of 51 tests total.
 CL-0001-IMPORT 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 
82 
49 
95 
62 
65 
33 
99 
50 
100 
41 
77 
101 
53 
84 
47 
71 
93 
69 
36 
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: #<a TYPE-ERROR>.
Condition: #\$ is not of type INTEGER. CL-0013-TRUENAME
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 CL-0017-LOAD-SPECIAL
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-SETQ CMP-0001-BLOCK
 CMP-0002-PATHNAME CMP-0003-PATHS CMP-0004-DEFCONSTANT-WARN
 CMP-0005-DECLARATION CMP-0006-CALL-ARGUMENTS-LIMIT
 CMP-0007-CIRCULAR-LOAD-FORM
#<a CMP-007-CLASS> 
#<a CMP-007-CLASS> 
#<a CMP-007-CLASS> 
#<a CMP-007-CLASS>  CMP-0008-MAKE-LOAD-FORM 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: #<a SIMPLE-ERROR>.
Condition: Cannot unbind the constant FOO.
;;; 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: #<a SIMPLE-PROGRAM-ERROR>.
Condition: Wrong number of arguments passed to function #<compiled-function FOO>.
 CMP-0012-COMPUTE-CLOSURE CMP-0013-FTYPE-USER-TYPE CMP-0014-COERCE
 CMP-0015-COERCE CMP-0016-LET-WITH-SPECIALS CMP-0017-DOCSTRINGS
 CMP-0018-IGNORABLE CMP-0019-BYTECODES-ENTRY-POSITION 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: #<a SIMPLE-PROGRAM-ERROR>.
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
                    #<bytecompiled-function 6000000000886f00> 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: ((2305843009213693951
                  #<bytecompiled-closure #<bytecompiled-function 6000000000886f00>>
                  12 "hola" :A T NIL)
                 (MOST-POSITIVE-FIXNUM
                  #<bytecompiled-closure #<bytecompiled-function 6000000000886f00>>
                  12 "hola" :A T NIL))
Actual value: ((2305843009213693951 #<bytecompiled-function 6000000000886f00>
                12 "hola" :A T NIL)
               (MOST-POSITIVE-FIXNUM #<bytecompiled-function 6000000000886f00>
                12 "hola" :A T NIL)).


 FFI-001-CALLBACK FFI-002-CALLBACK
7 out of 51 total tests failed: CL-0012-COPY-READTABLE, CL-0014-SHARP-DOT, CL-0018-SHARP-EQ, 
   CMP-0010-MACROLET, CMP-0011-C-ARGUMENTS-LIMIT, 
   MOP-0006-METHOD-SPECIALIZER, MOP-0009-DEFCLASS-INITFORM.
real time : 7.991 secs
run time  : 0.585 secs
gc count  : 22 times
consed    : 107079232 bytes
#P"/home/cfmac/jjgarcia/tmp/ia64/ecl-test/bugs/doit.lsp"
>