<b>Hello<br>I work with parenscript and UCW, I need validate some input text and  I have control the submit of the  form.</b><br> <br><b>Here use parenscript, it's a code for my function "<span style="color:rgb(153,102,51)">validate</span>"<br>
<br></b><font style="font-family:comic sans ms,sans-serif;color:rgb(0,102,0)" size="2"><i> ( setf <b style="color:rgb(204,0,0)">xvalue</b> document.form1.mac.value )<br>                                       (setf <b style="color:rgb(255,102,0)">result</b><span style="color:rgb(255,102,0)"> </span>((@(regex "/([A-Fa-f0-9]{2,2}:{1}){5}([A-Fa-f0-9]{2})$/") test)<b><span style="color:rgb(204,0,0)"> xvalue</span></b> ))<br>
                                       (if (eql F </i></font><font style="font-family:comic sans ms,sans-serif;color:rgb(0,102,0)" size="2"><i><b style="color:rgb(255,102,0)">result</b></i></font><font style="font-family:comic sans ms,sans-serif;color:rgb(0,102,0)" size="2"><i> )<br>
                                       ((alert "Fail")<br>                                        (setf document.form1.mac.style.background-color "red")<br>                                        F ) ; <span style="color:rgb(0,0,153)">==> javascript  return false;</span><br>
                                       (alert "Ok")<br>                                       T)) ; <span style="color:rgb(0,0,153)">==> javascript  return true;</span></i></font><br><br><b>Html code , called function validate<br>
</b><font style="color:rgb(102,51,102)" size="2"><b><form id="form1"  onsubmit="return validate();"  >   Here, I have a question, How I do same with parenscript  </b></font>>> <b style="color:rgb(0,0,153)">"return validate();"</b><br>
<br>(<ucw:form :name "form1" <br>:onsubmit<br>(ps (validate) ; <b>Here I have a problem</b>  <font style="color:rgb(102,51,102)" size="2"><b> </b></font>>>   <b style="color:rgb(0,0,153)">"return validate();"</b><br>
     <b style="color:rgb(0,0,0)">(</b>defun validate ()<br><font style="font-family:comic sans ms,sans-serif;color:rgb(0,102,0)" size="2"><i>       ( setf <b style="color:rgb(204,0,0)">xvalue</b> document.form1.mac.value )<br>
       (setf <b style="color:rgb(255,102,0)">result</b><span style="color:rgb(255,102,0)"> </span>((@(regex "/([A-Fa-f0-9]{2,2}:{1}){5}([A-Fa-f0-9]{2})$/") test)<b><span style="color:rgb(204,0,0)"> xvalue</span></b> ))<br>
       (if (eql F </i></font><font style="font-family:comic sans ms,sans-serif;color:rgb(0,102,0)" size="2"><i><b style="color:rgb(255,102,0)">result</b></i></font><font style="font-family:comic sans ms,sans-serif;color:rgb(0,102,0)" size="2"><i> )<br>
         ((alert "Fail")<br>         (setf document.form1.mac.style.background-color "red")<br>            F ) ; <span style="color:rgb(0,0,153)">==> javascript  return false;</span><br>        (alert "Ok")<br>
       T))<b style="color:rgb(0,0,0)">) </b>; <span style="color:rgb(0,0,153)">==> javascript  return true;</span></i></font><br><br>      <br><br><br><br><br><br><br>-- <br><div style="text-align:center"><div style="text-align:left">
<div style="text-align:left"><font style="color:rgb(0,153,0)" color="#888888" size="1"><font style="color:rgb(255,0,0);font-family:arial black,sans-serif"><span style="color:rgb(0,153,0)">I.S.C.  Juan Reynoso Elias</span></font></font><br>
</div><font style="color:rgb(0,153,0)" color="#888888" size="1"><font style="color:rgb(255,0,0);font-family:arial black,sans-serif"><span style="color:rgb(0,153,0)"></span></font></font></div><font style="color:rgb(0,153,0)" color="#888888" size="1"><font style="color:rgb(255,0,0);font-family:arial black,sans-serif"><span style="color:rgb(0,153,0)"> </span></font></font><font size="1"><br style="color:rgb(0,153,0)">
</font></div><font style="color:rgb(0,153,0)" color="#888888"><font style="color:rgb(255,0,0);font-family:arial black,sans-serif" size="1"><span style="color:rgb(0,153,0)">Departamento de Soporte Técnico del Instituto de la Función  Registral del Estado de México.<br style="color:rgb(0,153,0)">
</span><span style="color:rgb(0,153,0)">Vicente Guerrero 102, Col Santa Ana Tlapaltitlán, </span><span style="color:rgb(0,153,0)">Toluca, Méx. C.P. 50160. Tel. 2106852</span>.<br></font><br></font><font style="color:rgb(0,153,0)" color="#888888"></font><br>
<br>