| diff -u cl-regex-1.orig/macs.lisp cl-regex-1/macs.lisp |
| --- cl-regex-1.orig/macs.lisp 2002-10-06 13:30:14.000000000 -0500 |
| +++ cl-regex-1/macs.lisp 2003-10-15 13:20:18.790073928 -0500 |
| @@ -516,14 +516,11 @@ |
| (clrhash *pattern-cache*)
|
| nil)
|
|
|
| -
|
| -(defconstant +special-class-names+
|
| - '((":alpha:" alpha) (":upper:" upper) (":lower:" lower) (":digit:" digit)
|
| - (":alnum:" alnum) (":xdigit:" xdigit) (":odigit:" odigit) (":punct:" punct)
|
| - (":space:" space) (":word:" wordchar)))
|
| -
|
| -
|
| -
|
| +(eval-when (:compile-toplevel)
|
| + (defconstant +special-class-names+
|
| + '((":alpha:" alpha) (":upper:" upper) (":lower:" lower) (":digit:" digit)
|
| + (":alnum:" alnum) (":xdigit:" xdigit) (":odigit:" odigit) (":punct:" punct)
|
| + (":space:" space) (":word:" wordchar))))
|
|
|
| (defun expand-char-class (chars)
|
| "Expand an encoded char class into an explicit enumeration of all
|
