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/jjgarcia/tmp/nbsd32/ecl-test/bugs/doit.lsp"
;;; Loading #P"/home/jjgarcia/tmp/nbsd32/lib/ecl-9.12.3/cmp.fas"
;;; Loading #P"/home/jjgarcia/tmp/nbsd32/lib/ecl-9.12.3/sysfun.lsp"
;;; Loading #P"/home/jjgarcia/tmp/nbsd32/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/jjgarcia/tmp/nbsd32/include/" -I/usr/pkg/include -g -O2 -fPIC  -Dnetbsd -O -w -c "/home/jjgarcia/tmp/nbsd32/ecl-test/bugs/ECL00104290a.c" -o "/home/jjgarcia/tmp/nbsd32/ecl-test/bugs/ECL00104290a.o"
;;; Warning: Redefining test MOP-0004-DEFCLASS-OPTIONS
;;; Note: Invoking external command:
;;;   gcc -o "/home/jjgarcia/tmp/nbsd32/ecl-test/bugs/ECL00104290a.fas" -L"/home/jjgarcia/tmp/nbsd32/lib/" "/home/jjgarcia/tmp/nbsd32/ecl-test/bugs/ECL00104290a.o"  "-Wl,--rpath,/home/jjgarcia/tmp/nbsd32/lib/" -shared -L/usr/pkg/lib -L/usr/pkg/lib  -lecl  -lgmp -lgc   -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
69 
49 
87 
50 
76 
68 
79 
92 
51 
86 
39 
101 
82 
91 
71 
63 
37 
44 
87 
96 
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 0856ee88> 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
                  #<bytecompiled-closure #<bytecompiled-function 0856ee88>> 12
                  "hola" :A T NIL)
                 (MOST-POSITIVE-FIXNUM
                  #<bytecompiled-closure #<bytecompiled-function 0856ee88>> 12
                  "hola" :A T NIL))
Actual value: ((536870911 #<bytecompiled-function 0856ee88> 12 "hola" :A T NIL)
               (MOST-POSITIVE-FIXNUM #<bytecompiled-function 0856ee88> 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 : 3.724 secs
run time  : 0.152 secs
gc count  : 23 times
consed    : 463185560 bytes
#P"/home/jjgarcia/tmp/nbsd32/ecl-test/bugs/doit.lsp"
>