projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.41.42: ppc: Documentation and NEWS updates for threading.
[sbcl.git]
/
src
/
code
/
octets.lisp
diff --git
a/src/code/octets.lisp
b/src/code/octets.lisp
index
d8c0376
..
bb63673
100644
(file)
--- a/
src/code/octets.lisp
+++ b/
src/code/octets.lisp
@@
-183,9
+183,8
@@
one-past-the-end"
finally (return elements)))
;; Find the smallest character code such that the corresponding
;; byte is != to the code.
finally (return elements)))
;; Find the smallest character code such that the corresponding
;; byte is != to the code.
- (lowest-non-equivalent-code (position-if-not #'(lambda (pair)
- (apply #'= pair))
- pairs))
+ (lowest-non-equivalent-code
+ (caar (sort (copy-seq exceptions) #'< :key #'car)))
;; Sort them for our lookup table.
(sorted-pairs (sort (subseq pairs lowest-non-equivalent-code)
#'< :key #'car))
;; Sort them for our lookup table.
(sorted-pairs (sort (subseq pairs lowest-non-equivalent-code)
#'< :key #'car))
@@
-199,9
+198,9
@@
one-past-the-end"
,(make-array 256 :element-type t #+nil 'char-code
:initial-contents (loop for byte below 256
collect
,(make-array 256 :element-type t #+nil 'char-code
:initial-contents (loop for byte below 256
collect
- (let ((exception (cadr (assoc byte exceptions))))
+ (let ((exception (cdr (assoc byte exceptions))))
(if exception
(if exception
- exception
+ (car exception)
byte)))))
(code-to-byte-table
,(make-array (length sorted-lookup-table)
byte)))))
(code-to-byte-table
,(make-array (length sorted-lookup-table)