From 8fba7071223fb6744407789c1b1ae5a4549779e5 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 12 Mar 2022 14:17:17 -0600 Subject: built and ran refactored client app --- lib/oneliner.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lib/oneliner.lisp') 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)) -- cgit v1.2.3