diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 8a89ba3fbbb9cf796623821bd7b79f0932627f3d..6b86ec184f001de529635a83f873d12b01e32d95 100644 --- a/compiler/fndb.lisp +++ b/compiler/fndb.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.97 2002/02/22 14:55:14 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.98 2002/03/07 00:04:40 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1047,7 +1047,8 @@ (:print t) (:progress t) (:block-compile (member t nil :specified)) (:entry-points list) - (:byte-compile (member t nil :maybe))) + (:byte-compile (member t nil :maybe)) + (:external-format (member :default))) (values (or pathname null) boolean boolean)) (defknown disassemble (callable &key (:stream stream) (:backend backend) diff --git a/compiler/main.lisp b/compiler/main.lisp index 93f110b4620b8123b8332d4909eaf0be02e5fdf4..8c25f821b5d076ce705b13dd3e4e56ffb38841fb 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.123 2001/05/17 22:08:48 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.124 2002/03/07 00:04:41 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1655,6 +1655,7 @@ (trace-file nil) (error-output t) (load nil) + (external-format :default) ((:verbose *compile-verbose*) *compile-verbose*) ((:print *compile-print*) *compile-print*) ((:progress *compile-progress*) *compile-progress*) @@ -1701,6 +1702,7 @@ slower. If :MAYBE, then only byte-compile when SPEED is 0 and DEBUG <= 1. The default is the value of EXT:*BYTE-COMPILE-DEFAULT*, which is initially :MAYBE." + (declare (ignore external-format)) (let* ((fasl-file nil) (error-file-stream nil) (output-file-pathname nil)