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

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
Show stats 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))) (let ((setf-name `(setf ,symbol)))
(when (fboundp setf-name) (when (fboundp setf-name)
(funcall function setf-name))))))) (funcall function setf-name)))))))
(t (warn "ignoring invalid argument to PROFILE: ~S" name)))) (t (warn "ignoring invalid argument: ~S" name))))
(values)) (values))
;;; Profile the named function, which should exist and not be profiled ;;; Profile the named function, which should exist and not be profiled