[Q] #'featurep byte-optimisation

[Steve Youngs]

* Michael Sperber <sperber at informatik.uni-tuebingen.de> writes:

  > Generally, the change seems fine.  But do we really need to use regexps
  > for this kind of thing?

The regexp was the only way I could think of to have it work for both
the standard #'featurep use (featurep 'foo), and the
advanced... (featurep '(or foo bar))

  > (defvar features-always-true '(xemacs sxemacs))
  > ...
  > (defun byte-optimize-featurep (form)
  >    (if (and (consp (cdr form))
  >             (eq? 'quote (cadr form))
  >             (consp (cddr form))
  >             (memq (caddr form) features-always-true))
  >      ...))

Wouldn't that return t even on XEmacs for (featurep 'sxemacs)?

-- 
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
|       SXEmacs - The only _______ you'll ever need.       |
|         Fill in the blank, yes, it's THAT good!          |
|------------------------------------<steve at sxemacs.org>---|
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 312 bytes
Desc: not available
Url : http://lists.xemacs.org/pipermail/xemacs-patches/attachments/20070904/85fe2af6/attachment.pgp