From 57c550d54f55d6bf9d89b5ed24d83ccdcd39d8cd Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Thu, 7 Mar 2002 00:04:41 +0000 Subject: [PATCH] Add EXTERNAL-FORMAT keyword to COMPILE-FILE, and ignoring it. Based on a patch by Eric Marsden. --- compiler/fndb.lisp | 5 +++-- compiler/main.lisp | 4 +++- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 8a89ba3fb..6b86ec184 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 93f110b46..8c25f821b 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) -- GitLab