diff options
Diffstat (limited to 'textproc/cl-ppcre/files/patch-util.lisp')
| -rw-r--r-- | textproc/cl-ppcre/files/patch-util.lisp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/textproc/cl-ppcre/files/patch-util.lisp b/textproc/cl-ppcre/files/patch-util.lisp new file mode 100644 index 000000000000..abc7bb843b6b --- /dev/null +++ b/textproc/cl-ppcre/files/patch-util.lisp @@ -0,0 +1,17 @@ +--- util.lisp.orig Fri May 16 23:16:22 2003 ++++ util.lisp Fri May 16 23:16:42 2003 +@@ -155,10 +155,10 @@ + (loop with min1 and min2 and min3 + and max1 and max2 and max3 + ;; loop through all characters in HASH, sorted by CHAR< +- for chr in (sort (loop for chr being the hash-keys of hash +- collect (if downcasep +- (char-downcase chr) +- chr)) ++ for chr in (sort (the list (loop for chr being the hash-keys of hash ++ collect (if downcasep ++ (char-downcase chr) ++ chr))) + #'char<) + for code = (char-code chr) + ;; MIN1, MAX1, etc. are _exclusive_ |