[COMMIT] Remove a useless let binding in byte-optimize-featurep

APPROVE COMMIT NOTE: This patch has been committed. lisp/ChangeLog addition: 2007-11-27 Aidan Kehoe <kehoea(a)parhasard.net&gt; * byte-optimize.el (byte-optimize-featurep): Remove a useless let binding that was a hangover from an earlier version of the code. Eliminates a byte-compile time warning. XEmacs Trunk source patch: Diff command: cvs -q diff -u Files affected: lisp/byte-optimize.el =================================================================== RCS Index: lisp/byte-optimize.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/byte-optimize.el,v retrieving revision 1.13 diff -u -r1.13 byte-optimize.el --- lisp/byte-optimize.el 2007/10/15 10:55:49 1.13 +++ lisp/byte-optimize.el 2007/11/27 15:28:58 ＠＠ -1174,15 +1174,14 ＠＠ (put 'featurep 'byte-optimizer 'byte-optimize-featurep) (defun byte-optimize-featurep (form) - (let ((to-check (cdr-safe form))) - (if (memq (car-safe - (cdr-safe - (car-safe - (cdr-safe - form)))) - byte-optimize-ever-present-features) - t - form))) + (if (memq (car-safe + (cdr-safe + (car-safe + (cdr-safe + form)))) + byte-optimize-ever-present-features) + t + form))  ;;; enumerating those functions which need not be called if the returned -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches