>From 73502e40ebf05c282e2e81ba3b946879ecc24cb9 Mon Sep 17 00:00:00 2001 From: James Vasile Date: Fri, 17 Dec 2010 20:02:28 -0500 Subject: [PATCH 1/2] Stop ignoring pathname parameter in sbcl make-fd-stream --- src/fd-streams.lisp | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/src/fd-streams.lisp b/src/fd-streams.lisp index 2d1c086..26ccf4b 100644 --- a/src/fd-streams.lisp +++ b/src/fd-streams.lisp @@ -38,11 +38,12 @@ #+sbcl (defun make-fd-stream (fd &key direction element-type external-format pathname file) - (declare (ignore pathname file)) + (declare (ignore file)) (let ((in-p (member direction '(:io :input))) (out-p (member direction '(:io :output)))) (sb-sys:make-fd-stream fd :input in-p :output out-p :element-type element-type + :pathname pathname :external-format external-format))) #+cmu -- 1.7.2.3