       join-metadata
       whales-model
       {:ocean oceans-model}
-      (fn [id version ^Whale whale [[^Ocean ocean]]]
-	  (JoinImpl. id version whale ocean)
-	  ;; (let [[type length weight] (if whale [(.type whale)(.length whale)(.weight whale)][nil 0 0])
-	  ;; 	[ocean-id ocean-max-depth ocean-area] (if ocean [(.id ocean)(.max-depth ocean)(.area ocean)] [nil 0 0])]
-	  ;;   (Join. id version type length weight ocean-id ocean-area ocean-max-depth)
-	  ;;   )
-	  )))
+      (fn [id version ^Whale whale [[^Ocean ocean]]] (JoinImpl. id version whale ocean))))
 
 (insert *metamodel* joins-model)
 

;; to use:
;; load-eval this file using dada/bin/clj
;; run dada/bin/client

(ns 
 ^{:author "Jules Gosnell" :doc "Demo domain for DADA"}
 org.dada.demo.whales

     ^{:tag int}                     ocean-max-depth]
    (fn [^Integer lhs ^Integer rhs] (- (int lhs) (int rhs))))

(deftype
  JoinImpl
  [^int id ^int version ^Whale whale ^Ocean ocean]
