adjoin

[procedure] adjoin x xs (o test iso)

(def adjoin (x xs (o test iso))
  (if (some [test x _] xs)
      xs
      (cons x xs)))