1 files changed, 70 insertions, 0 deletions
diff --git a/src/clojure/contrib/pred.clj b/src/clojure/contrib/pred.clj
new file mode 100644
index 00000000..9760ec0e
--- /dev/null
+++ b/src/clojure/contrib/pred.clj
@@ -0,0 +1,70 @@
+;;  Copyright (c) Stephen C. Gilardi. All rights reserved.
+;;  The use and distribution terms for this software are covered by the
+;;  Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
+;;  which can be found in the file CPL.TXT at the root of this distribution.
+;;  By using this software in any fashion, you are agreeing to be bound by
+;;  the terms of this license.
+;;  You must not remove this notice, or any other, from this software.
+;;
+;;  pred.clj
+;;
+;;  Some clojure predicates
+;;
+;;  Items commented out below are defined in the clojure namespace
+;;
+;;  scgilardi (gmail)
+;;  28 June 2008
+
+(ns clojure.contrib.pred)
+
+;; coll?
+;; list?
+;; map?
+;; set?
+
+(defn stack?
+  "Returns true if x implements IPersistentStack"
+  [x]
+  (instance? clojure.lang.IPersistentStack x))
+
+;; vector?
+
+(defn ref?
+  "Returns true if x implements IRef"
+  [x]
+  (instance? clojure.lang.IRef x))
+
+;; seq?
+;; var?
+
+(defn map-entry?
+  "Returns true if x is a MapEntry"
+  [x]
+  (instance? clojure.lang.MapEntry x))
+
+(defn atom?
+  "Returns true if x is not a collection"
+  [x]
+  (not (coll? x)))
+
+;; number?
+;; ratio?
+
+(defn range?
+  "Returns true if x is a Range"
+  [x]
+  (instance? clojure.lang.Range x))
+
+;; function? -> fn?
+
+(defmacro macro?
+  "Returns true if x is a function and the symbol of the
+  same name can be resolved and has its :macro metadata
+  set"
+  [x]
+  `(and (fn? ~x) (boolean (:macro ^#'~x))))
+
+;; integer?
+;; even?
+;; odd?
+;; empty?