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 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -1047,7 +1047,8 @@
(:print t) (:progress t) (:print t) (:progress t)
(:block-compile (member t nil :specified)) (:block-compile (member t nil :specified))
(:entry-points list) (: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)) (values (or pathname null) boolean boolean))
(defknown disassemble (callable &key (:stream stream) (:backend backend) (defknown disassemble (callable &key (:stream stream) (:backend backend)
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -1655,6 +1655,7 @@
(trace-file nil) (trace-file nil)
(error-output t) (error-output t)
(load nil) (load nil)
(external-format :default)
((:verbose *compile-verbose*) *compile-verbose*) ((:verbose *compile-verbose*) *compile-verbose*)
((:print *compile-print*) *compile-print*) ((:print *compile-print*) *compile-print*)
((:progress *compile-progress*) *compile-progress*) ((:progress *compile-progress*) *compile-progress*)
...@@ -1701,6 +1702,7 @@ ...@@ -1701,6 +1702,7 @@
slower. If :MAYBE, then only byte-compile when SPEED is 0 and slower. If :MAYBE, then only byte-compile when SPEED is 0 and
DEBUG <= 1. The default is the value of EXT:*BYTE-COMPILE-DEFAULT*, DEBUG <= 1. The default is the value of EXT:*BYTE-COMPILE-DEFAULT*,
which is initially :MAYBE." which is initially :MAYBE."
(declare (ignore external-format))
(let* ((fasl-file nil) (let* ((fasl-file nil)
(error-file-stream nil) (error-file-stream nil)
(output-file-pathname 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