From bcfc29799200e48d467f263b2babd95b2f497b7d Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 12 Jan 2013 00:23:55 +0100 Subject: [PATCH] The profiler chockes on (SETF ...) function names and on symbol names without package name (stassats) --- contrib/profile/profile.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/contrib/profile/profile.lisp b/contrib/profile/profile.lisp index 280ba2ad3..385834e62 100644 --- a/contrib/profile/profile.lisp +++ b/contrib/profile/profile.lisp @@ -250,7 +250,7 @@ extern ECL_API size_t GC_get_total_bytes(); (legal-fun-name-or-type-error name) ;; Then we map onto it. (funcall function name)) - (string (let ((package (find-package name))) + (string (let ((package (si:coerce-to-package name))) (do-symbols (symbol package) (when (eq (symbol-package symbol) package) (when (and (fboundp symbol) @@ -411,7 +411,10 @@ Lisp process." "~%These functions were not called:~%~{~<~%~:; ~S~>~}~%" (sort no-call-name-list #'string< :key (lambda (name) - (symbol-name name))))) + (symbol-name + (if (consp name) + (cadr name) + name)))))) (values)))