blob: 31e85706b56b17f4ed7da7fb1282fcaa9074a0a2 [file] [log] [blame]
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