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