     (contains? mc :not-key) => falsey
 
     (find mc :key) => [:key "value"]))
-    
+
 (fact "Associate extends some of Seqable and IPersistentCollection"
   (let [mc (Metaconstant. 'm {:key "value"})]
     (count mc) => 1


;;; Metaconstant symbols

(tabular 
  (fact "metaconstant symbols begin and end with dots"
    '?candidate   ?arrow metaconstant-symbol?)
     ?candidate   ?arrow
     ...foo...      => 
     .foo.          => 
     foo            =not=>
     .foo           =not=>
     foo.           =not=>

     ...            =not=>)

(tabular "or they begin and end with dashes"
  (fact
    '?candidate   ?arrow metaconstant-symbol?)
     ?candidate   ?arrow
     ---foo---      =>
     -foo-          =>
     -a-b-          =>
     foo            =not=>
     -foo           =not=>
