Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

handle identifiers that contain unicode letters

  • Loading branch information...
commit 02bc35cf84e963ae12e57c61ce0976ef7d6929c1 1 parent d70fb07
@mishoo authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  cl-uglify-js.asd
  2. +1 −1  src/constants.lisp
View
2  cl-uglify-js.asd
@@ -1,7 +1,7 @@
(asdf:defsystem #:cl-uglify-js
:description "JavaScript compressor/beautifier on top of PARSE-JS"
:author "Mihai Bazon <mihai.bazon@gmail.com>"
- :depends-on (#:parse-js #:cl-ppcre #:parse-number #:iterate)
+ :depends-on (#:parse-js #:cl-ppcre #:cl-ppcre-unicode #:parse-number #:iterate)
:components
((:module "src" :serial t
:components ((:file "package")
View
2  src/constants.lisp
@@ -87,7 +87,7 @@
(defun is-identifier (name)
(declare (inline is-identifier))
(and (not (gethash name hash))
- (ppcre:scan "^[a-zA-Z_$][a-zA-Z0-9_$]*$" name))))
+ (ppcre:scan "^(\\p{Letter}|[_$])(\\p{Letter}|[0-9_$])*$" name))))
(defun curry (func &rest a1)
(lambda (&rest a2)
Please sign in to comment.
Something went wrong with that request. Please try again.