From: Rudi S. <ru...@us...> - 2005-05-07 10:32:44
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11110/src/code Modified Files: fd-stream.lisp Log Message: 0.9.0.24 Don't silently assume LATIN-1 for unknown / misspelled :external-format argument Index: fd-stream.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/fd-stream.lisp,v retrieving revision 1.67 retrieving revision 1.68 diff -u -d -r1.67 -r1.68 --- fd-stream.lisp 6 May 2005 12:20:45 -0000 1.67 +++ fd-stream.lisp 7 May 2005 10:32:34 -0000 1.68 @@ -1350,7 +1350,12 @@ "LATIN-1") "KEYWORD"))) (dolist (entry *external-formats* - (setf (fd-stream-external-format fd-stream) :latin-1)) + (restart-case + (error "Invalid external-format ~A" + (fd-stream-external-format fd-stream)) + (use-default () + :report "Set external format to LATIN-1" + (setf (fd-stream-external-format fd-stream) :latin-1)))) (when (member (fd-stream-external-format fd-stream) (first entry)) (return))) |