Date: Wednesday, February 16, 2011 @ 21:47:22 Author: rtoy Path: /project/cmucl/cvsroot/src
Modified: compiler/fndb.lisp general-info/release-20c.txt
The :OUTPUT-FILE for COMPILE-FILE can be a stream. This fixes ansi-test COMPILE-FILE.14.
compiler/fndb.lisp: o Tell compiler that :OUTPUT-FILE can also be a stream.
general-info/release-20c.txt: o Update.
------------------------------+ compiler/fndb.lisp | 4 ++-- general-info/release-20c.txt | 1 + 2 files changed, 3 insertions(+), 2 deletions(-)
Index: src/compiler/fndb.lisp diff -u src/compiler/fndb.lisp:1.147 src/compiler/fndb.lisp:1.148 --- src/compiler/fndb.lisp:1.147 Fri Sep 24 08:12:05 2010 +++ src/compiler/fndb.lisp Wed Feb 16 21:47:21 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/fndb.lisp,v 1.147 2010-09-24 12:12:05 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/compiler/fndb.lisp,v 1.148 2011-02-17 02:47:21 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1144,7 +1144,7 @@ (deftype optional-filename () '(or filename (member t nil)))
(defknown compile-file - ((or optional-filename stream list) &key (:output-file optional-filename) + ((or optional-filename stream list) &key (:output-file (or optional-filename stream)) (:error-file optional-filename) (:trace-file optional-filename) (:error-output t) (:load t) (:verbose t) (:print t) (:progress t) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.16 src/general-info/release-20c.txt:1.17 --- src/general-info/release-20c.txt:1.16 Wed Feb 2 08:08:25 2011 +++ src/general-info/release-20c.txt Wed Feb 16 21:47:22 2011 @@ -70,6 +70,7 @@ it should not. - DEFSTRUCT allows multiple keyword constructors as required by the spec.. + - In COMPILE-FILE, the :OUTPUT-FILE can also be a stream.
* Bugfixes: - The pairwise composition table is now correctly built.