[Openmcl-cvs-notifications] r10136 - /trunk/source/level-1/l1-sockets.lisp

[rme at clozure.com]

Author: rme
Date: Sat Jul 19 01:07:19 2008
New Revision: 10136

Log:
Conditionalize VERIFY-SOCKET-BUFFER for x8632.

Modified:
    trunk/source/level-1/l1-sockets.lisp

Modified: trunk/source/level-1/l1-sockets.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-sockets.lisp (original)
+++ trunk/source/level-1/l1-sockets.lisp Sat Jul 19 01:07:19 2008
@@ -866,6 +866,8 @@
                                 (<=3D subtype ppc32::max-8-bit-ivector-sub=
tag))
             #+ppc64-target (=3D (the fixnum (logand subtype ppc64::fulltag=
mask))
                               ppc64::ivector-class-8-bit)
+            #+x8632-target (and (<=3D x8632::min-8-bit-ivector-subtag subt=
ype)
+                                (<=3D subtype x8632::max-8-bit-ivector-sub=
tag))
             #+x8664-target (and (>=3D subtype x8664::min-8-bit-ivector-sub=
tag)
                                 (<=3D subtype x8664::max-8-bit-ivector-sub=
tag))
       (report-bad-arg buf `(or (array character)