cleanup

id3-frame.lisp

@@ -241,9 +241,9 @@ Note: extended headers are subject to unsynchronization, so make sure that INSTR
 
 (defun print-frame-flags (version flags stream)
   (ecase version
-	(2 (format stream "None"))
+	(2 (format stream "None, "))
 	(3 (format stream
-			   "flags: 0x~4,'0x: ~:[0/~;tag-alter-preservation/~]~:[0/~;file-alter-preservation/~]~:[0/~;read-only/~]~:[0/~;compress/~]~:[0/~;encypt/~]~:[0~;group~]"
+			   "flags: 0x~4,'0x: ~:[0/~;tag-alter-preservation/~]~:[0/~;file-alter-preservation/~]~:[0/~;read-only/~]~:[0/~;compress/~]~:[0/~;encypt/~]~:[0~;group~], "
 			   flags
 			   (frame-23-altertag-p flags)
 			   (frame-23-alterfile-p flags)

packages.lisp

@@ -2,6 +2,10 @@
 ;;; Copyright (c) 2013, Mark VandenBrink. All rights reserved.
 (in-package #:cl-user)
 
+(defpackage #:utils
+  (:export #:warn-user)
+  (:use #:common-lisp))
+
 (defpackage #:iso-639-2
   (:export #:get-iso-639-2-language)
   (:use #:common-lisp))
@@ -52,9 +56,6 @@
 		   #:+itunes-track-n+)
   (:use #:common-lisp #:audio-streams #:utils))
 
-(defpackage #:utils
-  (:export #:warn-user)
-  (:use #:common-lisp))
 
 (defpackage #:id3-frame
   (:export #:id3-frame #:find-id3-frames #:id3-frame-condition #:vpprint #:header #:get-frame-info

taglib.asd

@@ -8,13 +8,13 @@
   :depends-on (#:log5 #:alexandria)
   :components ((:file "packages")
 			   (:file "utils"         :depends-on ("packages"))
-			   (:file "audio-streams" :depends-on ("packages"))
-			   (:file "mpeg"          :depends-on ("packages" "audio-streams"))
-			   (:file "iso-639-2"     :depends-on ("packages"))
-			   (:file "id3-frame"     :depends-on ("packages"))
-			   (:file "mp3-tag"       :depends-on ("packages" "id3-frame" "audio-streams"))
-			   (:file "logging"       :depends-on ("packages" "mp4-atom" "audio-streams"))
-			   (:file "mp4-atom"      :depends-on ("packages"))
-			   (:file "mp4-tag"       :depends-on ("packages"))))
+			   (:file "audio-streams" :depends-on ("packages" "utils"))
+			   (:file "mpeg"          :depends-on ("packages" "audio-streams" "utils"))
+			   (:file "iso-639-2"     :depends-on ("packages" "utils"))
+			   (:file "id3-frame"     :depends-on ("packages" "utils"))
+			   (:file "mp3-tag"       :depends-on ("packages" "id3-frame" "audio-streams" "utils"))
+			   (:file "logging"       :depends-on ("packages" "mp4-atom" "audio-streams" "utils"))
+			   (:file "mp4-atom"      :depends-on ("packages" "utils"))
+			   (:file "mp4-tag"       :depends-on ("packages" "utils"))))