X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprofile.lisp;h=8229b1ce720a4432ab7961548554c322add579c2;hb=01044af1b8d69fc3899dc0417064c1512223223d;hp=0a257b35aa656dd51c0932cdb7abd674d6fc3cda;hpb=835e0272eaedd4764be992fe2d1cde078d581ce1;p=sbcl.git

diff --git a/src/code/profile.lisp b/src/code/profile.lisp
index 0a257b3..8229b1c 100644
--- a/src/code/profile.lisp
+++ b/src/code/profile.lisp
@@ -233,7 +233,9 @@
       (string (let ((package (find-undeleted-package-or-lose name)))
 		(do-symbols (symbol package)
 		  (when (eq (symbol-package symbol) package)
-		    (when (fboundp symbol)
+		    (when (and (fboundp symbol)
+			       (not (macro-function symbol))
+			       (not (special-operator-p symbol)))
 		      (funcall function symbol))
 		    (let ((setf-name `(setf ,symbol)))
 		      (when (fboundp setf-name)