From jsquires at common-lisp.net  Thu Oct  6 22:15:01 2005
From: jsquires at common-lisp.net (Julian E. C. Squires)
Date: Fri,  7 Oct 2005 00:15:01 +0200 (CEST)
Subject: [osicat-cvs] CVS update: src/ports.lisp 
Message-ID: <20051006221501.AE93988561@common-lisp.net>

Update of /project/osicat/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv9797

Modified Files:
	ports.lisp 
Log Message:
CMUCL lacks :external-format for make-fd-stream.

Date: Fri Oct  7 00:15:01 2005
Author: jsquires

Index: src/ports.lisp
diff -u src/ports.lisp:1.2 src/ports.lisp:1.3
--- src/ports.lisp:1.2	Mon Sep 26 12:58:02 2005
+++ src/ports.lisp	Fri Oct  7 00:15:00 2005
@@ -34,11 +34,11 @@
 #+cmu
 (progn
   (defun make-fd-stream (fd &key direction element-type external-format)
+    (declare (ignore external-format))
     (let ((in-p (member direction '(:io :input)))
 	  (out-p (member direction '(:io :output))))
       (sys:make-fd-stream fd :input in-p :output out-p
-			  :element-type element-type
-			  :external-format external-format)))
+			  :element-type element-type)))
   (pushnew 'fd-streams *features*))
 
 #+openmcl