freebsd-ports/textproc/cl-ppcre/files/patch-util.lisp
Edwin Groothuis a5432df574 New Port: Portable Perl-Compatible Regexps for Common Lisp
cl-ppcre is a pure ANSI Common Lisp implementation of
	Perl-compatible regular expressions.

	This port depends on the previously submitted ASDF port.
	It installs the sources and the .asd file. There are other
	ports for binaries for the supported Lisp implementations.

PR:		ports/52369
Submitted by:	Henrik Motakef <henrik.motakef@web.de>
2003-09-28 09:49:33 +00:00

17 lines
749 B
Common Lisp

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