cl-stream/unistd-stream

diff --git a/fd-stream.lisp b/fd-stream.lisp
index fb2656c..40f85bc 100644
--- a/fd-stream.lisp
+++ b/fd-stream.lisp
@@ -31,13 +31,13 @@
 
 (defmethod stream-blocking-p ((stream fd-stream))
   (or (when (slot-boundp stream 'blocking-p)
-	(slot-value stream 'blocking))
+	(slot-value stream 'blocking-p))
       (setf (slot-value stream 'blocking-p)
 	    (let ((flags (fcntl:getfl (stream-fd stream))))
 	      (not (= 0 (logand fcntl:+o-nonblock+ flags)))))))
 
 (defmethod (setf stream-blocking-p) (value (stream fd-stream))
-  (let* ((fd (fd-stream-fd stream))
+  (let* ((fd (stream-fd stream))
 	 (flags (fcntl:getfl fd))
 	 (o-nonblock (not (= 0 (logand fcntl:+o-nonblock+ flags)))))
     (cond