Mercurial > hg > xemacs-beta

comparison lisp/byte-optimize.el @ 4288:9eb558ffe8ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-11-27 15:38:39 by aidan] Remove a useless let binding in byte-optimize-featurep, eliminating a byte-compile-time warning.
author aidan
date Tue, 27 Nov 2007 15:38:40 +0000
parents ce594b233b20
children 7c7262c47538
comparison
equal deleted inserted replaced
4287:89e64783d068 4288:9eb558ffe8ff
1172 (defvar byte-optimize-ever-present-features 1172 (defvar byte-optimize-ever-present-features
1173 '(xemacs cl cl-extra cl-19 backquote)) 1173 '(xemacs cl cl-extra cl-19 backquote))
1174 1174
1175 (put 'featurep 'byte-optimizer 'byte-optimize-featurep) 1175 (put 'featurep 'byte-optimizer 'byte-optimize-featurep)
1176 (defun byte-optimize-featurep (form) 1176 (defun byte-optimize-featurep (form)
1177 (let ((to-check (cdr-safe form))) 1177 (if (memq (car-safe
1178 (if (memq (car-safe 1178 (cdr-safe
1179 (cdr-safe 1179 (car-safe
1180 (car-safe 1180 (cdr-safe
1181 (cdr-safe 1181 form))))
1182 form)))) 1182 byte-optimize-ever-present-features)
1183 byte-optimize-ever-present-features) 1183 t
1184 t 1184 form))
1185 form)))
1186 1185
1187 1186
1188 ;;; enumerating those functions which need not be called if the returned 1187 ;;; enumerating those functions which need not be called if the returned
1189 ;;; value is not used. That is, something like 1188 ;;; value is not used. That is, something like
1190 ;;; (progn (list (something-with-side-effects) (yow)) 1189 ;;; (progn (list (something-with-side-effects) (yow))