(byte-compile-lapcode): Use

unibyte-string instead of string-make-unibyte.

lisp/ChangeLog

@@ -6,6 +6,9 @@
 
 2008-02-12  Kenichi Handa  <handa@ni.aist.go.jp>
 
+	* emacs-lisp/bytecomp.el (byte-compile-lapcode): Use
+	unibyte-string instead of string-make-unibyte.
+
 	* Makefile.in (AUTOGENEL): Remove charprop.el and uni-*.el.
 
 2008-02-12  Stefan Monnier  <monnier@iro.umontreal.ca>

lisp/emacs-lisp/bytecomp.el

@@ -864,7 +864,7 @@ otherwise pop it")
 	       (setcar (cdr bytes) (logand pc 255))
 	       (setcar bytes (lsh pc -8))))
 	(setq patchlist (cdr patchlist))))
-    (string-make-unibyte (concat (nreverse bytes)))))
+    (apply 'unibyte-string (nreverse bytes))))
 
 
 ;;; compile-time evaluation