From xemacs-m  Mon Aug 25 03:44:32 1997
Received: from mercury.Sun.COM (mercury.Sun.COM [192.9.25.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id DAA11464
	for <xemacs-beta@xemacs.org>; Mon, 25 Aug 1997 03:44:31 -0500 (CDT)
Received: from Eng.Sun.COM ([129.146.1.25]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id BAA27176; Mon, 25 Aug 1997 01:44:00 -0700
Received: from kindra.eng.sun.com by Eng.Sun.COM (SMI-8.6/SMI-5.3)
	id BAA24379; Mon, 25 Aug 1997 01:43:58 -0700
Received: from xemacs.eng.sun.com by kindra.eng.sun.com (SMI-8.6/SMI-SVR4)
	id BAA09949; Mon, 25 Aug 1997 01:43:57 -0700
Received: by xemacs.eng.sun.com (SMI-8.6/SMI-SVR4)
	id BAA17232; Mon, 25 Aug 1997 01:43:55 -0700
Date: Mon, 25 Aug 1997 01:43:55 -0700
Message-Id: <199708250843.BAA17232@xemacs.eng.sun.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
From: Martin Buchholz <mrb@Eng.Sun.COM>
To: Dave Gillespie <daveg@synaptics.com>
cc: XEmacs Beta Test <xemacs-beta@xemacs.org>
Subject: BUG FIX: cl-macs.el/ignore-errors
X-Mailer: VM 6.33 under 20.3 "Vienna" XEmacs  Lucid (beta14)
Reply-To: Martin Buchholz <mrb@Eng.Sun.COM>

The following trivial change will be in the next XEmacs beta.  Am I
missing anything obvious?  This fixes the problem:

(defun foo () (ignore-errors (bar)))
(byte-compile 'foo)

==>  ** variable G56627 bound but not referenced

--- lisp/cl/cl-macs.el.old
+++ lisp/cl/cl-macs.el
@@ -2404,8 +2404,7 @@
 (defmacro ignore-errors (&rest body)
   "Execute FORMS; if an error occurs, return nil.
 Otherwise, return result of last FORM."
-  (let ((err (gensym)))
-    (list 'condition-case err (cons 'progn body) '(error nil))))
+  (list 'condition-case nil (cons 'progn body) '(error nil)))
 
 
 ;;; Some predicates for analyzing Lisp forms.  These are used by various

