[armedbear-cvs] r13072 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Tue Nov 30 15:43:05 2010
New Revision: 13072

Log:
Sockets can be created with :element-type equivalent to (UNSIGNED-BYTE 8).

Fixes error reported by Cyrus Harmon where passing an :ELEMENT-TYPE of
FLEXI-STREAMS:OCTET to the GET-SOCKET-STREAM call would fail.

Modified:
   trunk/abcl/src/org/armedbear/lisp/socket.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/socket.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/socket.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/socket.lisp	Tue Nov 30 15:43:05 2010
@@ -35,7 +35,9 @@
   ":ELEMENT-TYPE must be CHARACTER or (UNSIGNED-BYTE 8); the default is CHARACTER.
 EXTERNAL-FORMAT must be of the same format as specified for OPEN."
   (cond ((eq element-type 'character))
-        ((equal element-type '(unsigned-byte 8)))
+        ((reduce #'equal
+                (mapcar #'sys::normalize-type 
+                        (list element-type '(unsigned-byte 8)))))
         (t
          (error 'simple-type-error
                 :format-control