X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fliece-clfns.el;h=f8031ea6eebb5489aa567974664fc8f48fe97a5c;hb=6879f232702886831c0d9038a1037fff0e290dce;hp=38589498afaf50212e8af04e2dd75af0ba6d63bc;hpb=ce92c7af769b9e0c3f3081025ead58bc93b3a26c;p=elisp%2Fliece.git

diff --git a/lisp/liece-clfns.el b/lisp/liece-clfns.el
index 3858949..f8031ea 100644
--- a/lisp/liece-clfns.el
+++ b/lisp/liece-clfns.el
@@ -32,10 +32,11 @@
 
 (require 'pym)
 
-(defmacro liece-clfns-subr-fboundp (symbol)
+(defun liece-clfns-subr-fboundp (symbol)
   "Return t if SYMBOL's function definition is a basic function."
-  (or (subr-fboundp symbol)
-      (string-equal (symbol-file symbol) "subr")))
+  (and (fboundp symbol)
+       (or (subrp (symbol-function symbol-function))
+	   (string-equal (symbol-file symbol) "subr"))))
 
 (if (featurep 'xemacs)
     nil