addressbook.clj

(require 'clojure.string)

(def records {})
(def commands {})

(def commands
  (assoc commands "add"
    (fn [k v] (def records (assoc records k v)))))

(def commands
  (assoc commands "delete"
    (fn [person] (def records (dissoc records person)))))

(def commands
  (assoc commands "print"
    (fn [] (println records))))

(while true
  (print "> ")
  (flush)
  (def line (clojure.string/trim (read-line)))
  (def tokens (clojure.string/split line #"\s"))
  (if (contains? commands (first tokens)) (
     (defn command [& args] (get commands (first tokens)))
     (println command)
     (def args (rest tokens))
     (println args)
     (apply command args)
     (flush))))

it should be (apply (command) args)