+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (when (find :kmr-cl-wav-synth cl:*features*)
+ (setq cl:*features* (delete :kmr-cl-wav-synth cl:*features*))))
+
+
+;;; Functions requiring CGN, a plotting package
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (when (find-package '#:cgn)
+ (pushnew :kmr-cgn cl:*features*)))
+
+#+:kmr-cgn