[STUMP] [PATCH] Fixed non-implementation specific version of bytes-to-string.

[Ben Spencer]

I'm not really sure if this is the right thing to do, but it seems to
work for me under CCL.  The old version was totally broken.

---
 wrappers.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/wrappers.lisp b/wrappers.lisp
index fb5b7dc..e88427f 100644
--- a/wrappers.lisp
+++ b/wrappers.lisp
@@ -196,7 +196,7 @@
    (make-array (length data) :element-type '(unsigned-byte 8) 
:initial-contents data)
    custom:*terminal-encoding*)
   #-(or sbcl clisp)
-  (map 'list #'code-char string))
+  (map 'string #'code-char data))
 
 (defun string-to-bytes (string)
   "Convert a string to a vector of octets."
-- 
1.6.3.1