(in-package :cl-user)
 (setf *default-pathname-defaults*
  (make-pathname :directory (pathname-directory *load-pathname*)))
 (format t "~&CURDIR: ~a~%" (truename "."))
 (load-all-patches)
 (compile-file "fancy-listener.lisp" :load t)
 
 (deliver 'fancy-listener:fancy-listener
          #+:cocoa
          (create-macos-application-bundle
           "~/desktop/FancyListener.app"
           :document-types nil
           :identifier "fwoar.FancyListener")
          #-:cocoa "~/fancy-listener"
          0
          :interface :capi
          :keep-modules t)