From: Christophe Rhodes <csr21@cantab.net>
Date: Sun, 17 Mar 2013 09:23:36 +0000 (+0000)
Subject: delete now-unused code from ucd.dat
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e2421360f10166ed8573e44a9b2d4478dd3789f4;p=sbcl.git

delete now-unused code from ucd.dat
---

diff --git a/tools-for-build/ucd.lisp b/tools-for-build/ucd.lisp
index 8b7c3e5..1a717f7 100644
--- a/tools-for-build/ucd.lisp
+++ b/tools-for-build/ucd.lisp
@@ -344,11 +344,6 @@
                                        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)
@@ -400,15 +395,7 @@
                      (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