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
