7 Jul
2008
7 Jul
'08
3:48 p.m.
On Mon, 7 Jul 2008 09:45:11 -0400, Gary King gwking@metabang.com wrote:
Try something like this:
(defun full-match-p (regex string) (multiple-value-bind (start end array-1 array-2) (cl-ppcre:scan regex string) (declare (ignore array-1 array-2)) (and (= start 0) (= end (length string)))))
Simpler:
(scan "^ABC$" "ABC") (scan "^ABC$" "ABCD")
The first return value of SCAN serves as a generalized boolean.