Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83 v7 ucbtopaz-1.8; site ucbtopaz.CC.Berkeley.ARPA
Path: utzoo!linus!decvax!ucbvax!ucbtopaz!mwm
From: mwm@ucbtopaz.CC.Berkeley.ARPA (Mike (I'll be mellow when I'm dead) Meyer)
Newsgroups: net.sources.bugs,net.lang.lisp
Subject: bug in cond in xlisp 1.4
Message-ID: <1024@ucbtopaz.CC.Berkeley.ARPA>
Date: Sun, 21-Jul-85 02:49:46 EDT
Article-I.D.: ucbtopaz.1024
Posted: Sun Jul 21 02:49:46 1985
Date-Received: Sun, 21-Jul-85 23:28:18 EDT
Reply-To: mwm@ucbtopaz.UUCP (Mike (I'll be mellow when I'm dead) Meyer)
Organization: Missionaria Phonibalonica
Lines: 12
Xref: linus net.sources.bugs:394 net.lang.lisp:453

cond's return nil for cases that don't have a list following the test
expression. For instance, (cond (t)) should return t, but will return
nil if this bug exists in your version of xlisp. The fix is in the
file xlcont.c, in the function xcond; the one if statement should read

	if (val = xlevarg(&list.n_ptr)) {

instead of

	if (xlevarg(&list.n_ptr)) {

	<mike