From 60a864ce3bd92d630ac6fdbd022ceabd1f3e4f0b Mon Sep 17 00:00:00 2001 From: Diogo Franco Date: Wed, 20 Jul 2016 11:38:43 +0100 Subject: [PATCH] delete broken list case in profile module. warn and ignore invalid names. --- contrib/profile/profile.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/contrib/profile/profile.lisp b/contrib/profile/profile.lisp index 4c9df807e..153f52b0d 100644 --- a/contrib/profile/profile.lisp +++ b/contrib/profile/profile.lisp @@ -246,10 +246,6 @@ extern ECL_API size_t GC_get_total_bytes(); (dolist (name names) (etypecase name (symbol (funcall function name)) - (list - (legal-fun-name-or-type-error name) - ;; Then we map onto it. - (funcall function name)) (string (let ((package (si:coerce-to-package name))) (do-symbols (symbol package) (when (eq (symbol-package symbol) package) @@ -259,7 +255,8 @@ extern ECL_API size_t GC_get_total_bytes(); (funcall function symbol)) (let ((setf-name `(setf ,symbol))) (when (fboundp setf-name) - (funcall function setf-name))))))))) + (funcall function setf-name))))))) + (t (warn "ignoring invalid argument to PROFILE: ~S" name)))) (values)) ;;; Profile the named function, which should exist and not be profiled