example is working.

src/example/example.clj

@@ -1,5 +1,6 @@
 (ns pail-graph.example
   (:require
+   [pail-graph.type :as type]
    [pail-graph.base :as thrift]
    [pail-graph.core :as pail]
    )
@@ -68,7 +69,7 @@
 (defn get-names [pail-connection]
     (let [fntap (pail/get-tap pail-connection :first_name)]
       (??<- [?id ?first-name]
-            (fntap ?fn-data)
+            (fntap _ ?fn-data)
             (sprop ?fn-data :> ?id ?first-name))))
 
 
@@ -81,18 +82,33 @@
           (sprop ?fn-data :> ?id ?first-name)
           (sprop ?ln-data :> ?id ?last-name))))
 
+(defn get-location [pail-connection]
+  (let [loctap (pail/get-tap pail-connection :location)]
+    (??<- [!address !city !county !state !country !zip]
+          (loctap _ ?loc-data)
+          (locprop ?loc-data :> ?id !address !city !county !state !country !zip))))
+
+(??<- [!address !city !county !state !country !zip]
+      (loctap _ ?data)
+      (locprop ?data :> !id !address !city !county !state !country !zip))
+
+(defn get-slocation [pail-connection]
+  (let [loctap (pail/get-tap pail-connection :location)]
+    (??<- [?id ?data]
+          (loctap _ ?loc-data)
+          (sprop ?loc-data :> ?id !data))))
 
 (defn get-everything [pail-connection]
   (let [fntap (pail/get-tap pail-connection :first_name)
         lntap (pail/get-tap pail-connection :last_name)
-        loctap (pail/get-tap pail-connection :locaton)]
+        loctap (pail/get-tap pail-connection :location)]
     (??<- [?first-name ?last-name !address !city !county !state !country !zip]
           (fntap _ ?fn-data)
           (lntap _ ?ln-data)
           (loctap _ ?loc-data)
           (sprop ?fn-data :> ?id ?first-name)
           (sprop ?ln-data :> ?id ?last-name)
-          (structprop ?loc-data :> ?id !address !city !county !state !country !zip))))
+          (locprop ?loc-data :> ?id !address !city !county !state !country !zip))))
 
 
 (defn tests []

src/pail_graph/type.clj

@@ -37,7 +37,7 @@
   [type field-name]
   (get (field-enum-map type) field-name))
 
-(defn field-id-meta [type field-name]
+(defn field-meta [type field-name]
   "Returns a map of field id and name of the named field"
   (when-let [f (field type (keyword field-name))]
     {:id   (.getThriftFieldId #^TFieldIdEnum f)
@@ -46,7 +46,7 @@
 (defn field-meta-list
   "Returns an ordered vector of field id meta maps for a given Thrift type."
   [type]
-  (vec (sort-by :id (map (partial field-id-meta type) (field-names type)))))
+  (vec (sort-by :id (map (partial field-meta type) (field-names type)))))
 
 ;;;;;;;;;;;;;;;;;;; - clj-thrift code ends here.