Changeset 112 for trunk

Timestamp:

10/13/05 18:33:13 (19 years ago)

Author:

lisppaste

Message:

MORE REGEXPS

File:

• trunk/example/cliki.lisp (modified) (1 diff)

trunk/example/cliki.lisp ¶

@@ -679 +679 @@
                      (and str
                           (lookup-advice (elt str 0))))
-                   (let ((str (nth-value 1 (scan-to-strings "^(?i)what\\s+does\\s+([a-zA-Z]+)\\s+(mean|stand\\s+for)$" first-pass))))
+                   (let ((str
+                          (or
+                           (nth-value 1 (scan-to-strings "^(?i)what\\s+does\\s+([a-zA-Z]+)\\s+(mean|stand\\s+for)$" first-pass))
+                           (nth-value 1 (scan-to-strings "^(?i)what\\s+([a-zA-Z]+)\\s+(means|stands\\s+for)$" first-pass)))))
                      (and str
                           (let ((letters (elt str 0)))