(defun parse-configuration-stream (stream)
  (read-char stream) #| eat the quote |#
  (read stream))

(defun read-configuration-file (path)
  (with-open-file (stream path)
    (parse-configuration-stream stream)))

(read-configuration-file #P"/tmp/c.sexp")
;; --> (:configuration (:directory (:root "/home/bob/documents/website/bob/")) (:misc (:username-length 4) (:try-again-time 3)) (:database (:name "bobs site") (:user "bob") (:address "localhost") (:password "")) (:html (:title "im a title") (:standard-image "/images/bobbing.gif")) (:data (:filename "data")) (:passwords (:login "bigyeetus3") (:totals "yeetusmcbeetus2")))