Diff of /contrib/ecl-cdb/ecl-help.lisp [758f8c] .. [fef47c] Maximize Restore

  Switch to side-by-side view

--- a/contrib/ecl-cdb/ecl-help.lisp
+++ b/contrib/ecl-cdb/ecl-help.lisp
@@ -18,7 +18,7 @@
 			     :element-type '(unsigned-byte 8)
 			     :initial-element 0))
 	 (stream (ext:make-sequence-output-stream
-		  vector :external-format :utf-8)))
+		  vector :external-format #+unicode :utf-8 #-unicode :default)))
     (with-standard-io-syntax
       (let ((si::*print-package* (find-package "CL")))
 	(write object :stream stream :pretty nil
@@ -27,7 +27,7 @@
 
 (defun from-cdb-vector (vector)
   (let* ((stream (ext:make-sequence-input-stream
-		  vector :external-format :utf-8)))
+		  vector :external-format #+unicode :utf-8 #-unicode :default)))
     (read stream nil nil nil)))
 
 (defun search-help-file (string path)