diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-12 14:17:17 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-12 14:17:17 -0600 |
| commit | 8fba7071223fb6744407789c1b1ae5a4549779e5 (patch) | |
| tree | 4ec5fd7d2e07877ce6020e268499d0119d2ae735 /lib/oneliner.lisp | |
| parent | 6d706967f1de63de80c83766053e896ab4792420 (diff) | |
built and ran refactored client app
Diffstat (limited to 'lib/oneliner.lisp')
| -rw-r--r-- | lib/oneliner.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/oneliner.lisp b/lib/oneliner.lisp index ccfd3dc..39aad0d 100644 --- a/lib/oneliner.lisp +++ b/lib/oneliner.lisp @@ -48,11 +48,13 @@ (ppcre:all-matches-as-strings "#[A-Za-z][A-Za-z0-9_]*" (oneliner-oneliner ol)) :test #'equal)) + + ;;; VALIDATION OF ONELINER SLOT VALUES (defun valid-oneliner-string-p (string) (and (not (find #\newline string)) - (tags-from-oneliner string))) + (parse-oneliner-tags string))) (defun valid-brief-description-p (string) (<= (length string) 72)) |