Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17454/src/compiler

Modified Files:
	fndb.lisp 
Log Message:
0.8.16.14:
	External format support
	... not latin9, though -- need to think about how that might work
		in a character-poor sbcl.
	... delete accented characters in comments from 
		package-locks.impure.lisp -- Something Will Have To Be Done

	This patch brought to you by the letters U, T, F and the number 8.


Index: fndb.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -d -r1.97 -r1.98
--- fndb.lisp	13 Sep 2004 05:40:29 -0000	1.97
+++ fndb.lisp	29 Oct 2004 09:00:39 -0000	1.98
@@ -1192,7 +1192,7 @@
 					   :rename-and-delete :overwrite
 					   :append :supersede nil))
 		       (:if-does-not-exist (member :error :create nil))
-		       (:external-format (member :default)))
+		       (:external-format keyword))
   (or stream null))
 
 (defknown rename-file (pathname-designator filename)