[Maxima-bugs] [ maxima-Bugs-2965201 ] run_testsuite() causes Lisp error

[SourceForge.net <no...@so...>]

Bugs item #2965201, was opened at 2010-03-07 18:20
Message generated for change (Comment added) made by rtoy
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=2965201&group_id=4933

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: Lisp Core
Group: None
>Status: Closed
>Resolution: Fixed
Priority: 5
Private: No
Submitted By: Dieter Kaiser (crategus)
Assigned to: Nobody/Anonymous (nobody)
Summary: run_testsuite() causes Lisp error

Initial Comment:
If we specify a file as argument to the routine run_testsuite we get a Lisp error. The file must be behind the file rtest9.mac.

(%i1) run_testsuite(tests=[rtest16]);
Maxima encountered a Lisp error:

 The value ((MLIST) "rtest9" 82)
 is not of type
   (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER).

I have observed this problem with the following build:

Maxima version: 5.20post
Maxima build date: 23:22 3/7/2010
Host type: i686-pc-linux-gnu
Lisp implementation type: SBCL
Lisp implementation version: 1.0.29.11.debian

Dieter Kaiser

----------------------------------------------------------------------

>Comment By: Raymond Toy (rtoy)
Date: 2010-03-11 17:25

Message:
Sorry for the trouble.  The bug was introduced in the last commit that
replaced INTERSECTION with simple code to ensure the order of the tests
didn't change.

This is now fixed in mload.lisp, rev 1.60.

----------------------------------------------------------------------

Comment By: Dieter Kaiser (crategus)
Date: 2010-03-11 14:35

Message:
This is a complete session including a backtrace

Maxima 5.20post http://maxima.sourceforge.net
using Lisp SBCL 1.0.29.11.debian
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
(%i1) :lisp (setq *debugger-hook* nil)
NIL

(%i1) run_testsuite(tests=[rtest16]);
debugger invoked on a TYPE-ERROR in thread #<THREAD "initial thread"
RUNNING {C252B21}>:
  The value ((MLIST) "rtest9" 82)
  is not of type
    (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER).

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [MACSYMA-QUIT] Maxima top-level
  1: [CONTINUE    ] Ignore runtime option --eval "(cl-user::run)".
  2: [ABORT       ] Skip rest of --eval and --load options.
  3:                Skip to toplevel READ/EVAL/PRINT loop.
  4: [QUIT        ] Quit SBCL (calling #'QUIT, killing the process).

(STRING= "rtest16" ((MLIST) "rtest9" 82))[:EXTERNAL]
0] backtrace

0: (STRING= "rtest16" ((MLIST) "rtest9" 82))[:EXTERNAL]
1: (FIND
    "rtest16"
    ("rtestnset" "rtest1" "rtest1a" "rtest2" "rtest4" "rtest5" "rtest6"
     "rtest6a" "rtest6b" "rtest7" ((MLIST) "rtest9" 82) "rtest9a"
...))[:EXTERNAL]
2: (INTERSECT-TESTS ((MLIST SIMP) $RTEST16))
3: (RUN-TESTSUITE)[:EXTERNAL]
4: (MEVAL1 #<unavailable argument>)
5: (MEVAL (($RUN_TESTSUITE) ((MEQUAL) $TESTS ((MLIST) $RTEST16))))
6: (MEVAL* (($RUN_TESTSUITE) ((MEQUAL) $TESTS ((MLIST) $RTEST16))))
7: (TOPLEVEL-MACSYMA-EVAL
    (($RUN_TESTSUITE) ((MEQUAL) $TESTS ((MLIST) $RTEST16))))
8: (CONTINUE #<unavailable argument> #<unavailable argument>)
9: (MACSYMA-TOP-LEVEL #<unavailable argument> #<unavailable argument>)
10: (RUN)
11: (SB-INT:SIMPLE-EVAL-IN-LEXENV (RUN) #<NULL-LEXENV>)
12: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(cl-user::run)")))
13: (SB-IMPL::TOPLEVEL-INIT)
14: ((LABELS SB-IMPL::RESTART-LISP))

Dieter Kaiser

----------------------------------------------------------------------

Comment By: Raymond Toy (rtoy)
Date: 2010-03-11 00:20

Message:
Can you provide a backtrace?  That would probably isolate the problem.  I
suspect it's an incorrect declaration of base-string instead of just
string.

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=2965201&group_id=4933