Common Lisp Validation Projects
-
InfluxDB
Power Real-Time Data Analytics at Scale. Get real-time insights from all types of time series data with InfluxDB. Ingest, query, and analyze billions of data points in real-time with unbounded cardinality.
(defun validate-all (validators object) "Run all validators in turn. Return two values: the status (boolean), and a list of messages. Allow a keyword validator: :allow-blank. Accepts a blank value. If not blank, validate." ;; I wanted this to be part of clavier, but well. ;; https://github.com/mmontone/clavier/pull/10 (let ((messages nil) (valid t)) (loop for validator in validators if (and (eql :allow-blank validator) (str:blankp object)) return t else do (unless (symbolp validator) (multiple-value-bind (status message) (clavier:validate validator object :error-p nil) (unless status (setf valid nil)) (when message (push message messages))))) (values valid (reverse (uiop:ensure-list messages)))))
Common Lisp Validation related posts
Index
Project | Stars | |
---|---|---|
1 | clavier | 17 |
Sponsored