   (when-let [features (:features spec)] 
     ;vzctl set 170 --features "nfs:on" --save 
     (doseq [f features] 
-      (.vzctl this (<< "set ~{vmid} --features \"~{f}\" --save")))) )
+      (vzctl this (<< "set ~{vmid} --features \"~{f}\" --save")))) )
 
-(deftype Container [node spec]
+(defmacro action [aname dm & ])
+
+(defrecord Container [node spec]
   Vm
   (create [this] 
-    (use-ns)
     (debug "creating" (:vmid spec))
     (validate spec)
     (try+ 


  Openvz
  (unmount [this]
    (use-ns)
    (debug "unmounting" (:vmid spec))
    (try+
      (safe 
        (prox-post (str "/nodes/" node "/openvz/" (:vmid spec) "/status/umount")))
      (catch [:type :proxmox.provider/task-failed] e 
        (debug "no container to unmount")))) 
  (vzctl [this action] 
    (execute (config :hypervisor) [(<< "vzctl ~{action}")])
    )
  ) 


  (:require 
    [closchema.core :as schema])
  (:use 
    [clojure.core.memoize :only (memo-ttl)]
    [taoensso.timbre :only (debug info error warn)]
    clojure.core.strint
