Skip to content

Instantly share code, notes, and snippets.

@aboekhoff

aboekhoff/Cons as deftype

Created January 24, 2010 01:35
Show Gist options
  • Save aboekhoff/284930 to your computer and use it in GitHub Desktop.
Save aboekhoff/284930 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Cons as deftype
(deftype ConsType [_first _more] [ISeq] :as this
ISeq
(first ([] _first))
(next ([] (when (first _more) _more))
(seq ([] this))
(cons ([x] (ConsType. x this)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment