Skip to content
Snippets Groups Projects
Commit 57c550d5 authored by pw's avatar pw
Browse files

Add EXTERNAL-FORMAT keyword to COMPILE-FILE, and ignoring it.

Based on a patch by Eric Marsden.
parent 9597f54f
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment