Common Lisp validation syntax

gistfile1.txt

(defclass venue (validatable)
  ((zip :col-type string :initarg :zip :accessor zip)
   (phone :col-type string :initarg :phone :accessor phone)
   (website :col-type (or db-null string) :initarg :website :accessor website))
  (:metaclass pomo:dao-class)
  (:keys id))

(defvalidators venue ()
  (website (start-with "https://"))
  (phone (match "(\\d\\d\\d)-\\d\\d\\d-\\d\\d\\d"))
  (zip (match "\\d\\d\\d\\d\\d")))

(valid? (make-instance 'venue))
=> ((WEBSITE "NIL doesn't START-WITH (https://)")
    (PHONE "NIL doesn't MATCH ((ddd)-ddd-ddd)") (ZIP "NIL doesn't MATCH (ddddd)"))

http://digitalinfodigital.blogspot.com