 (defn get-big-source-lines
   "doc"
   [file-name]
-  (let [lines (clojure.string/split-lines (slurp file-name :encoding "ibm850"))]
+  (let [lines (string/split-lines (slurp file-name :encoding "ibm850"))]
     lines))
 
 (defn first-line-of-object-source?

(defn make-single-file-name
  "Returns a file name built from object meta data."
  [object-metadata]
  (let [file-name (clojure.string/join "-" (map object-metadata [:type-id :type :id]))]
    (str file-name source-file-extension)))
    
(defn save-single-source-file

        (println current)
        (if (first-line-of-object-source? current)
          (def current-object-source current)
          (def current-object-source (string/join "\n" [current-object-source current])))
        (recur (first buffer) (rest buffer)))
      nil)))

