mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-04 03:21:06 -08:00
Code Issues Projects Releases Packages Wiki Activity

The code profile.lsp still used an SBCL-propietary function.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-30 19:42:20 +02:00
parent a5d610105a
commit 9382296aa8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
contrib/profile/profile.lisp
View file

@ -232,7 +232,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-undeleted-package-or-lose name)))
(string (let ((package (find-package name)))
(do-symbols (symbol package)
(when (eq (symbol-package symbol) package)
(when (and (fboundp symbol)