Skip to content
Browse files

handle identifiers that contain unicode letters

  • Loading branch information...
1 parent d70fb07 commit 02bc35cf84e963ae12e57c61ce0976ef7d6929c1 @mishoo committed
Showing with 2 additions and 2 deletions.
  1. +1 −1 cl-uglify-js.asd
  2. +1 −1 src/constants.lisp
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 <>"
- :depends-on (#:parse-js #:cl-ppcre #:parse-number #:iterate)
+ :depends-on (#:parse-js #:cl-ppcre #:cl-ppcre-unicode #:parse-number #:iterate)
((:module "src" :serial t
:components ((:file "package")
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)

0 comments on commit 02bc35c

Please sign in to comment.
Something went wrong with that request. Please try again.