List validator

clavier.lisp

@@ -7,6 +7,9 @@
     (funcall func)))
 
 (defmacro with-signal-validation-errors ((&optional (signal t)) &body body)
+  "Enables/disables validation errors in body
+
+   Args: - signal(boolean) : If **T**, errors are signaled. If **NIL**, they are not."
   `(call-with-signal-validation-errors (lambda () ,@body) ,signal))
 
 (defmacro collecting-validation-errors ((errors found-p) expr &body body)
@@ -167,6 +170,15 @@
 	      (format nil "~A is not a keyword" object)))
   (:metaclass closer-mop:funcallable-standard-class))
 
+(defclass list-validator (type-validator)
+  ()
+  (:default-initargs
+   :type 'list
+   :message (lambda (validator object)
+	      (format nil "~A is not a list" object)))
+  (:metaclass closer-mop:funcallable-standard-class))
+
+
 (defclass function-validator (validator)
   ((function :initarg :function
 	     :accessor validator-function
@@ -518,6 +530,11 @@
 	 (when message
 	   (list :message (apply #'format nil message args)))))
 
+(defun is-a-list (&optional message &rest args)
+  (apply #'make-instance 'list-validator
+	 (when message
+	   (list :message (apply #'format nil message args)))))
+
 (defun valid-email (&optional message &rest args)
   (apply #'make-instance 'email-validator 
 	 (when message

package.lisp

@@ -25,6 +25,7 @@
 	   #:integer-validator
 	   #:symbol-validator
 	   #:keyword-validator
+	   #:list-validator
 	   #:function-validator
 	   #:true-validator
 	   #:false-validator
@@ -61,6 +62,7 @@
 	   #:is-an-integer
 	   #:is-a-symbol
 	   #:is-a-keyword
+	   #:is-a-list
 	   #:valid-email
 	   #:matches-regex
 	   #:valid-url