*Hello I work with parenscript and UCW, I need validate some input text and I have control the submit of the form.*
*Here use parenscript, it's a code for my function "validate"
** ( setf xvalue document.form1.mac.value ) (setf result ((@(regex "/([A-Fa-f0-9]{2,2}:{1}){5}([A-Fa-f0-9]{2})$/") test) xvalue )) (if (eql F **result** ) ((alert "Fail") (setf document.form1.mac.style.background-color "red") F ) ; ==> javascript return false; (alert "Ok") T)) ; ==> javascript return true;*
*Html code , called function validate **<form id="form1" onsubmit="return validate();" > Here, I have a question, How I do same with parenscript *>> *"return validate();"*
(<ucw:form :name "form1" :onsubmit (ps (validate) ; *Here I have a problem* * *>> *"return validate();"* *(*defun validate () * ( setf xvalue document.form1.mac.value ) (setf result ((@(regex "/([A-Fa-f0-9]{2,2}:{1}){5}([A-Fa-f0-9]{2})$/") test) xvalue )) (if (eql F **result** ) ((alert "Fail") (setf document.form1.mac.style.background-color "red") F ) ; ==> javascript return false; (alert "Ok") T))) ; ==> javascript return true;*