mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

do not warn about the PROFILE function, because this is also used in UNPROFILE

Browse source
This commit is contained in:
Diogo Franco 2016-07-20 11:54:06 +01:00
parent 60a864ce3b
commit 54a614bf34
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

@ -256,7 +256,7 @@ extern ECL_API size_t GC_get_total_bytes();
(let ((setf-name `(setf ,symbol)))
(when (fboundp setf-name)
(funcall function setf-name)))))))
(t (warn "ignoring invalid argument to PROFILE: ~S" name))))
(t (warn "ignoring invalid argument: ~S" name))))
(values))
;;; Profile the named function, which should exist and not be profiled