[ clocc-Bugs-933171 ] clunit selftest failure

"SourceForge.net" <[email protected]> Sun, 11 Apr 2004 05:18:15 -0700
Newsgroups gmane.lisp.clocc.devel
Message-ID <[email protected]>
Bugs item #933171, was opened at 2004-04-11 14:18
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101802&aid=933171&group_id=1802

Category: ansi-test
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Henrik Ekelund (ekelund)
Assigned to: Peter Van Eynde (pvaneynd)
Summary: clunit selftest failure

Initial Comment:
I have just installed clocc for the first time, with
cmucl 18e on debian. When loading clunit, the self
tests fail on the test  "Test compare-fn" (see below).
It a bit rusty with lisp programming, but it seems that
since AND is a macro, it can not be an argument to reduce. 

I modified the failing form to:
(REDUCE #'EQ (CONS T (MAPCAR #'STRING-EQUAL RLIST1
RLIST2))) which solved the problem. 

 / Henrik Ekelund
------------------------------------------------------

; Loading
#p"/usr/share/common-lisp/clocc/src/tools/clunit/clunit.lisp".

; In: DEFTEST "Test compare-fn"

;   #'AND
; Error: Found macro name AND as the argument to FUNCTION.
; 
;   (REDUCE #'AND (MAPCAR #'STRING-EQUAL RLIST1 RLIST2))
; Note: The first argument never returns a value.
Execution of a form compiled with errors:
 #'AND occurred in test "Test compare-fn"

Error in function NIL:  Dummy error occurred in test
"Error test"
1 test run; 0 tests passed; 1 test failed.

Error in function NIL:  Dummy error occurred in test
"Error test"
1 test run; 0 tests passed; 1 test failed.
2 tests run; 2 tests passed; 0 tests failed.
11 tests run; 10 tests passed; 1 test failed.

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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101802&aid=933171&group_id=1802


-------------------------------------------------------
This SF.Net email is sponsored by: IBM Linux Tutorials
Free Linux tutorial presented by Daniel Robbins, President and CEO of
GenToo technologies. Learn everything from fundamentals to system
administration.http://ads.osdn.com/?ad_id=1470&alloc_id=3638&op=click