svn: r9903

This commit is contained in:
Eli Barzilay 2008-05-20 07:54:47 +00:00
parent 5238b6db16
commit c169844e99

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))