Commit 32c1c66d authored by Wheeler Root's avatar Wheeler Root
Browse files

fixed bug with determining if file is a fifo

parent f024f237
......@@ -23,12 +23,12 @@
(defun fifo-p (filename)
(if
(equal 4096
(logand 4096
(SB-POSIX:STAT-MODE
(sb-posix:stat
filename)))
t ()))
))
(defun open-fifo (filename)
(let ((fifofd
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment