Changeset 13072 for trunk/abcl/src/org


Ignore:
Timestamp:
11/30/10 20:43:05 (11 years ago)
Author:
Mark Evenson
Message:

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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/socket.lisp

    r11434 r13072  
    3636EXTERNAL-FORMAT must be of the same format as specified for OPEN."
    3737  (cond ((eq element-type 'character))
    38         ((equal element-type '(unsigned-byte 8)))
     38        ((reduce #'equal
     39                (mapcar #'sys::normalize-type
     40                        (list element-type '(unsigned-byte 8)))))
    3941        (t
    4042         (error 'simple-type-error
Note: See TracChangeset for help on using the changeset viewer.