sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

delete broken list case in profile module. warn and ignore invalid names.

Browse source
This commit is contained in:
Diogo Franco 2016-07-20 11:38:43 +01:00
parent 6db5c3b672
commit 60a864ce3b
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
contrib/profile/profile.lisp
View file

@ -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