       (assoc :db.install/_attribute :db.part/db)))
 
 (defn make-enum
-  "Assocs :db/id to the enum map."
+  "Assocs :db/id to the enum."
   [enum]
   (assoc-tempid {:db/ident enum} :db.part/user))
 

     :db/valueType :db.type/ref
     :db/cardinality :db.cardinality/one
     :db/doc "The sex of a subject."}]

   :functions
   [(func :add-subject

(defn prepare-schema [schema]
  (-> (mapv make-part (concat (:partitions subject)
                              (:partitions schema)))
      (into (map make-attr (concat (:attributes subject)
                                    (:attributes schema))))
      (into (map make-enum (:enums subject)))
      (into (map make-func (:functions subject)))
      (into (:functions schema))))

(defn load-base-schema
