Skip to content
Snippets Groups Projects
Commit f4e5e2f1 authored by wlott's avatar wlott
Browse files

Fixed unix-select to shift the masks by -32 instead of shifting -32 by the

masks.
parent 3038960b
Branches
Tags
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.18 1992/03/06 11:57:54 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.19 1992/07/11 16:05:08 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -840,7 +840,7 @@
(macrolet ((frob (lisp-var alien-var)
`(setf (deref (slot ,alien-var 'fds-bits) index)
(ldb (byte 32 0) ,lisp-var)
,lisp-var (ash -32 ,lisp-var))))
,lisp-var (ash ,lisp-var -32))))
(frob rdfds rdf)
(frob wrfds wrf)
(frob xpfds xpf)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment