projects
/
sbcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f41b718
)
delete now-unused code from ucd.dat
author
Christophe Rhodes
<csr21@cantab.net>
Sun, 17 Mar 2013 09:23:36 +0000
(09:23 +0000)
committer
Christophe Rhodes
<csr21@cantab.net>
Sat, 18 May 2013 19:04:03 +0000
(20:04 +0100)
tools-for-build/ucd.lisp
patch
|
blob
|
history
diff --git
a/tools-for-build/ucd.lisp
b/tools-for-build/ucd.lisp
index
8b7c3e5
..
1a717f7
100644
(file)
--- a/
tools-for-build/ucd.lisp
+++ b/
tools-for-build/ucd.lisp
@@
-344,11
+344,6
@@
decimal-digit digit bidi-mirrored
nil decomposition-info))))))
decimal-digit digit bidi-mirrored
nil decomposition-info))))))
-(defun write-3-byte (triplet stream)
- (write-byte (ldb (byte 8 0) triplet) stream)
- (write-byte (ldb (byte 8 8) triplet) stream)
- (write-byte (ldb (byte 8 16) triplet) stream))
-
(defun write-4-byte (quadruplet stream)
(write-byte (ldb (byte 8 24) quadruplet) stream)
(write-byte (ldb (byte 8 16) quadruplet) stream)
(defun write-4-byte (quadruplet stream)
(write-byte (ldb (byte 8 24) quadruplet) stream)
(write-byte (ldb (byte 8 16) quadruplet) stream)
@@
-400,15
+395,7
@@
(dpb (if entry (aref *misc-mapping* (ucd-misc entry)) #x7ff)
(byte 11 21)
(if entry (ucd-transform entry) 0))
(dpb (if entry (aref *misc-mapping* (ucd-misc entry)) #x7ff)
(byte 11 21)
(if entry (ucd-transform entry) 0))
- stream)
- #+nil #+nil
- do (write-byte (if entry
- (aref *misc-mapping* (ucd-misc entry))
- 255)
- stream)
- #+nil #+nil
- do (write-3-byte (if entry (ucd-transform entry) 0)
- stream))))))
+ stream))))))
(with-open-file (f (make-pathname :name "ucd-names" :type "lisp-expr"
:defaults *output-directory*)
:direction :output
(with-open-file (f (make-pathname :name "ucd-names" :type "lisp-expr"
:defaults *output-directory*)
:direction :output