made utf8-urlencode behave more like php. no longer escaping dashes

taoeffect · Jun 22, 2013 · 2891dfd · 2891dfd
1 parent a5dc269
commit 2891dfd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/example-site/dragonfly-framework/dragonfly.lsp b/example-site/dragonfly-framework/dragonfly.lsp
@@ -1,6 +1,6 @@
 ;; @module dragonfly.lsp
 ;; @description The heart of Dragonfly - A newLISP web framework for rapid web development.
-;; @version 0.70
+;; @version 0.71
 ;; @author Team Dragonfly 2009
 ;; @location http://code.google.com/p/dragonfly-newlisp/
 ;; <br>This file is the main entry-point of the Dragonfly framework and
@@ -109,7 +109,7 @@
 ; DF is a convenient shorthand to the Dragonfly context
 (constant (global 'DF) Dragonfly)
 (constant (global 'DRAGONFLY_MAJOR) 0)
-(constant (global 'DRAGONFLY_MINOR) 70)
+(constant (global 'DRAGONFLY_MINOR) 71)
 (constant (global 'DRAGONFLY_VERSION) (format "Version %d.%d" DRAGONFLY_MAJOR DRAGONFLY_MINOR))
 
 ; make sure these two are defined

diff --git a/example-site/dragonfly-framework/lib/request.lsp b/example-site/dragonfly-framework/lib/request.lsp
@@ -70,7 +70,7 @@
 ; !UTF8 Compatible URL encoding/decoding
 ;===============================================================================
 
-(constant 'REGEX_HTTP_SPECIAL_STR (regex-comp {([^.0-9a-z]+)} 1))
+(constant 'REGEX_HTTP_SPECIAL_STR (regex-comp {([^.0-9a-z-]+)} 1))
 (constant 'REGEX_HEX_ENCODED_CHAR (regex-comp {%([0-9A-F][0-9A-F])} 1))
 
 (define (hex-encode-str str , cnvrt)