Mark VandenBrink 12 лет назад
Родитель
Сommit
2f7de8c949
1 измененных файлов с 3 добавлено и 1 удалено
  1. 3 1
      profile.lisp

+ 3 - 1
profile.lisp

@@ -7,8 +7,10 @@
 ;;; running programs, type "profile-report" to get a profile listing.
 ;;; "profile-reset" clears counters
 ;;; "profil-off" turns of profiling
+(in-package #:cl-user)
+
 (defun profile-on ()
-  (dolist (p '("MP4-ATOM" "MPEG" "AUDIO-STREAMS" "ID3-FRAME" "UTILS" "LOGGING" "ISO-639-2" "MP3-TAG" "MP4-TAG" "FLAC-FRAME"))
+  (dolist (p '("MP4-ATOM" "MPEG" "AUDIO-STREAMS" "ID3-FRAME" "UTILS" "LOGGING" "ISO-639-2" "ABSTRACT-TAG" "FLAC-FRAME"))
     (let ((pkg (find-package p)))
       (mon:monitor-all pkg)
       (format t "Package ~a, ~:d~%" pkg (length mon:*monitored-functions*)))))