[COMMIT] If #'special-form-p is available in advice.el, call it

[Aidan Kehoe]

APPROVE COMMIT

NOTE: This patch has been committed.

xemacs-packages/xemacs-base/ChangeLog addition:

2007-12-18  Aidan Kehoe  <kehoea at parhasard.net>

	* advice.el (ad-special-form-p):
	If #'special-form-p is available, don't hardcode the list of
	special forms, call on the function in question instead. 


XEmacs Packages source patch:
Diff command:   cvs -q diff -Nu
Files affected: xemacs-packages/xemacs-base/advice.el
===================================================================
RCS

Index: xemacs-packages/xemacs-base/advice.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/advice.el,v
retrieving revision 1.1.1.1
diff -u -u -r1.1.1.1 advice.el
--- xemacs-packages/xemacs-base/advice.el	1998/01/14 06:32:18	1.1.1.1
+++ xemacs-packages/xemacs-base/advice.el	2007/12/18 20:52:15
@@ -2470,7 +2470,13 @@
 
 (defmacro ad-special-form-p (definition)
   ;;"non-nil if DEFINITION is a special form."
-  (list 'memq definition 'ad-special-forms))
+  (if (fboundp #'if-fboundp)
+      `(if-fboundp #'special-form-p
+        (special-form-p ,definition)
+        (memq ,definition ad-special-forms))
+    `(if (fboundp #'special-form-p)
+      (special-form-p ,definition)
+      (memq ,definition ad-special-forms))))
 
 (defmacro ad-interactive-p (definition)
   ;;"non-nil if DEFINITION can be called interactively."

-- 
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?