From 9382296aa8a4f315d07f124e34974e32ebb762fe Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 30 Jun 2009 19:42:20 +0200 Subject: [PATCH] The code profile.lsp still used an SBCL-propietary function. --- contrib/profile/profile.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/profile/profile.lisp b/contrib/profile/profile.lisp index 699e726bc..b0bc8dad1 100644 --- a/contrib/profile/profile.lisp +++ b/contrib/profile/profile.lisp @@ -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)