Commit 42ee6c5f authored by Stelian Ionescu's avatar Stelian Ionescu
Browse files

MAKE-FD-STREAM: fix for openmcl/clozurecl.

parent 44a97bcc
Loading
Loading
Loading
Loading
+4 −3
Original line number Diff line number Diff line
@@ -68,8 +68,9 @@
;;; exported from CCL in OpenMCL.  However, it seems to have been
;;; around for a while, and the developers have said that they don't
;;; have any plans to change it any time soon.
#+openmcl
(defun make-fd-stream (fd &key direction element-type external-format)
  (declare (ignore external-format))
#+(or ccl openmcl)
(defun make-fd-stream (fd &key direction element-type external-format
                       pathname file)
  (declare (ignore external-format pathname file))
  (ccl::make-fd-stream fd :direction direction :element-type element-type
                       :class 'file-stream))