(defun utf-8-file-encoding (pathname ef-spec buffer length)
  (declare (ignore pathname buffer length))
  (system:merge-ef-specs ef-spec :utf-8))

(setq system:*file-encoding-detection-algorithm*
      (substitute 'utf-8-file-encoding
                  'system:locale-file-encoding
                  system:*file-encoding-detection-algorithm*))
(set-default-character-element-type 'simple-char)

(in-package :cl-user)

(format t "~&CURDIR: ~a~%" (truename "."))
(load-all-patches)
(load "~/quicklisp/setup.lisp")
(ql:quickload '(:cells :drakma :lquery :fwoar-lisputils :alexandria :serapeum))
(compile-file "/Users/edwlan/git_repos/git.fiddlerwoaroof.com/lisp-sandbox/cells-html-scraper.lisp")
(load "/Users/edwlan/git_repos/git.fiddlerwoaroof.com/lisp-sandbox/cells-html-scraper")
(deliver (intern "STARTUP" "CELLS-HTML-SCRAPER")
         (create-macos-application-bundle
          "HNReader.app"
          :document-types nil
          :identifier "fwoar.cj.HNReader"
          :version "0.0.never")
         0
;;         :keep-conditions :all
  ;;       :keep-pretty-printer t
         :interface :capi
    ;;     :keep-modules t
      ;;   :packages-to-keep-symbol-names '(:mfa-tool)
        ;; :packages-to-keep '(:mfa-tool :swank)
         ;;:startup-bitmap-file nil
         )