svn: r9903

original commit: c169844e99638d754325353b3f2ce1a2b3d8e310
This commit is contained in:
Eli Barzilay 2008-05-20 07:54:47 +00:00
parent a6ae0c0f3f
commit 892fc9b77d

View File

@ -99,7 +99,7 @@
[v (regexp-replace* #rx"[A-Z.]" v ".&")]
[v (regexp-replace* #rx" " v "._")]
[v (regexp-replace* #rx"\"" v ".'")]
[v (regexp-replace* #rx"[^-a-zA-Z0-9_!+*='()/.,]" v encode-str)])
[v (regexp-replace* #rx"[^-a-zA-Z0-9_!+*'()/.,]" v encode-str)])
v)))
(define-serializable-struct literal-anchor (string))