diff --git a/src/package.lisp b/src/package.lisp index 01555d8..edafc94 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -33,6 +33,7 @@ :getf-cadrs :get-colon-values + :get-colon-value :remove-colon-values :replace-colon-value diff --git a/src/string/string.lisp b/src/string/string.lisp index 42f95c6..78fcfd8 100644 --- a/src/string/string.lisp +++ b/src/string/string.lisp @@ -365,6 +365,12 @@ Example: (get-colon-values (line-cdr colon-lines)))))))) +;; STRING COLON_VARIABLE_NAME --> COLON_VALUE +(defun get-colon-value (string variable) + "Return a value of a `colon variable`." + + (getf (get-colon-values string) (read-from-string variable))) + ;; STRING COLON_VARIABLE_NAME --> STRING_WITHOUT_COLON_VARIABLE (defun remove-colon-values (string)