added define and cond as lisp keywords

Author: [email protected]

src/lang-lisp.js

@@ -77,7 +77,7 @@ PR.registerLangHandler(
          [PR.PR_STRING,      /^\"(?:[^\"\\]|\\[\s\S])*(?:\"|$)/, null, '"']
         ],
         [
-         [PR.PR_KEYWORD,     /^(?:block|c[ad]+r|catch|cons|defun|do|eq|eql|equal|equalp|eval-when|flet|format|go|if|labels|lambda|let|load-time-value|locally|macrolet|multiple-value-call|nil|progn|progv|quote|require|return-from|setq|symbol-macrolet|t|tagbody|the|throw|unwind)\b/, null],
+         [PR.PR_KEYWORD,     /^(?:block|c[ad]+r|catch|con[ds]|def(?:ine|un)|do|eq|eql|equal|equalp|eval-when|flet|format|go|if|labels|lambda|let|load-time-value|locally|macrolet|multiple-value-call|nil|progn|progv|quote|require|return-from|setq|symbol-macrolet|t|tagbody|the|throw|unwind)\b/, null],
          [PR.PR_LITERAL,
           /^[+\-]?(?:0x[0-9a-f]+|\d+\/\d+|(?:\.\d+|\d+(?:\.\d*)?)(?:[ed][+\-]?\d+)?)/i],
          // A single quote possibly followed by a word that optionally ends with

tests/prettify_test.html

@@ -945,6 +945,9 @@ <h1>Bug 42 - Lisp Syntax Highlighting</h1>
      (turn-on-auto-fill)
    )
 )
+
+;; Define and cond are keywords in scheme
+(define (sqt x) (sqrt-iter 1.0 2.0 x))
 </pre>
 
 <h1>Bug 45 - Square brackets in strings</h1>
@@ -2488,7 +2491,12 @@ <h1>Scala mode</h1>
       '&nbsp; &nbsp; &nbsp;`END`OPN(`END`PLNturn-on-auto-fill`END' +
            '`CLO)`END`PLN<br>' +
       '&nbsp; &nbsp;`END`CLO)`END`PLN<br>' +
-      '`END`CLO)`END'),
+      '`END`CLO)`END`PLN<br>' +
+      '<br>' +
+      '`END`COM;; Define and cond are keywords in scheme`END`PLN<br>' +
+      '`END`OPN(`END`KWDdefine`END`PLN `END`OPN(`END`PLNsqt x`END`CLO)`END' +
+           '`PLN `END`OPN(`END`PLNsqrt-iter `END`LIT1.0`END`PLN `END' +
+           '`LIT2.0`END`PLN x`END`CLO))`END'),
   issue45: (
       '`KWDthrow`END`PLN `END`KWDnew`END`PLN `END`TYPRuntimeException`END' +
            '`PUN(`END`STR"Element ["`END`PLN `END`PUN+`END`PLN element`END' +