[osicat-cvs] CVS update: src/ports.lisp

[Julian E. C. Squires]

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