- cmucl-cvs - mailman3.common-lisp.net

[cmucl-cvs] CMUCL commit: src/i18n/locale/en@piglatin/LC_MESSAGES (cmucl.po)
by Raymond Toy 27 Sep '10

27 Sep '10

Date: Sunday, September 26, 2010 @ 20:15:51 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale/en@piglatin/LC_MESSAGES Modified: cmucl.po Regenerate from sources. ----------+ cmucl.po | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) Index: src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po diff -u src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po:1.10 src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po:1.11 --- src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po:1.10 Mon Sep 20 16:34:05 2010 +++ src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po Sun Sep 26 20:15:51 2010 @@ -25405,7 +25405,12 @@ "default\n" " is the value of C:*RECORD-XREF-INFO*\n" " :External-Format\n" -" The external format to use when opening the source file" +" The external format to use when opening the source file\n" +" :Decoding-Error\n" +" How to handle decoding errors in the external format when reading the\n" +" source file. Default (T) is to signal an error. Nil means silently\n" +" continue, replacing the invalid sequence with a suitable replacment\n" +" character." msgstr "" "Ompilescay Ourcesay, oducingpray away orrespondingcay .FASL ilefay. " "Ourcesay aymay ebay away istlay\n" @@ -25477,7 +25482,15 @@ " isway ethay aluevay ofway C:*RECORD-XREF-INFO*\n" " :Externalway-Ormatfay\n" " Ethay externalway ormatfay otay useway enwhay openingway ethay " -"ourcesay ilefay" +"ourcesay ilefay\n" +" :Ecodingday-Errorway\n" +" Owhay otay andlehay ecodingday errorsway inway ethay externalway " +"ormatfay enwhay eadingray ethay\n" +" ourcesay ilefay. Efaultday (T) isway otay ignalsay anway errorway. " +"Ilnay eansmay ilentlysay\n" +" ontinuecay, eplacingray ethay invalidway equencesay ithway away " +"uitablesay eplacmentray\n" +" aracterchay." #: src/compiler/main.lisp msgid "~2&; ~A written.~%"

1 0

[cmucl-cvs] CMUCL commit: src/i18n/locale (cmucl.pot ko/LC_MESSAGES/cmucl.po)
by Raymond Toy 26 Sep '10

26 Sep '10

Date: Sunday, September 26, 2010 @ 19:47:45 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Modified: cmucl.pot ko/LC_MESSAGES/cmucl.po Regenerate from sources. -------------------------+ cmucl.pot | 7 ++++++- ko/LC_MESSAGES/cmucl.po | 7 ++++++- 2 files changed, 12 insertions(+), 2 deletions(-) Index: src/i18n/locale/cmucl.pot diff -u src/i18n/locale/cmucl.pot:1.14 src/i18n/locale/cmucl.pot:1.15 --- src/i18n/locale/cmucl.pot:1.14 Mon Sep 20 16:25:09 2010 +++ src/i18n/locale/cmucl.pot Sun Sep 26 19:47:45 2010 @@ -17602,7 +17602,12 @@ "default\n" " is the value of C:*RECORD-XREF-INFO*\n" " :External-Format\n" -" The external format to use when opening the source file" +" The external format to use when opening the source file\n" +" :Decoding-Error\n" +" How to handle decoding errors in the external format when reading the\n" +" source file. Default (T) is to signal an error. Nil means silently\n" +" continue, replacing the invalid sequence with a suitable replacment\n" +" character." msgstr "" #: src/compiler/main.lisp Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.12 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.13 --- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.12 Mon Sep 20 16:34:05 2010 +++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Sun Sep 26 19:47:45 2010 @@ -17638,7 +17638,12 @@ "default\n" " is the value of C:*RECORD-XREF-INFO*\n" " :External-Format\n" -" The external format to use when opening the source file" +" The external format to use when opening the source file\n" +" :Decoding-Error\n" +" How to handle decoding errors in the external format when reading the\n" +" source file. Default (T) is to signal an error. Nil means silently\n" +" continue, replacing the invalid sequence with a suitable replacment\n" +" character." msgstr "" #: src/compiler/main.lisp

1 0

[cmucl-cvs] CMUCL commit: src/code (save.lisp)
by Raymond Toy 26 Sep '10

26 Sep '10

Date: Sunday, September 26, 2010 @ 16:40:51 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: save.lisp Actually set the library search list to the saved value. Previously we weren't because *cmucl-lib* is almost always bound. Normally *old-cmucl-library-search-list* is unbound, but when a core is made, it becomes bound. We use that to indicate that the library search list should be set to *old-cmucl-library-search-list*. -----------+ save.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) Index: src/code/save.lisp diff -u src/code/save.lisp:1.70 src/code/save.lisp:1.71 --- src/code/save.lisp:1.70 Sun May 16 08:28:31 2010 +++ src/code/save.lisp Sun Sep 26 16:40:51 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/save.lisp,v 1.70 2010-05-16 12:28:31 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/save.lisp,v 1.71 2010-09-26 20:40:51 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -110,7 +110,9 @@ (list (default-directory)))) (setf (search-list "library:") - (if (boundp '*cmucl-lib*) + (if (and (boundp '*cmucl-lib*) + #+:executable + (not (boundp '*old-cmucl-library-search-list*))) (parse-unix-search-path *cmucl-lib*) (or #+:executable

1 0

[cmucl-cvs] CMUCL commit: src/lisp (lisp.c)
by Raymond Toy 26 Sep '10

26 Sep '10

Date: Sunday, September 26, 2010 @ 16:38:45 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: lisp.c Clean up code using FEATURE_EXECUTABLE. Since builtin_image_flag is always part of the build now, we can remove most of the conditionalization on FEATURE_EXECUTABLE. Only need to preserve the part about calling map_core_sections, which is only defined if FEATURE_EXECUTABLE is defined. --------+ lisp.c | 117 +++++++++++++++++++++++++++++---------------------------------- 1 file changed, 55 insertions(+), 62 deletions(-) Index: src/lisp/lisp.c diff -u src/lisp/lisp.c:1.77 src/lisp/lisp.c:1.78 --- src/lisp/lisp.c:1.77 Sun Aug 1 23:58:59 2010 +++ src/lisp/lisp.c Sun Sep 26 16:38:45 2010 @@ -1,7 +1,7 @@ /* * main() entry point for a stand alone lisp image. * - * $Header: /project/cmucl/cvsroot/src/lisp/lisp.c,v 1.77 2010-08-02 03:58:59 agoncharov Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/lisp.c,v 1.78 2010-09-26 20:38:45 rtoy Exp $ * */ @@ -477,13 +477,12 @@ argptr = argv; while ((arg = *++argptr) != NULL) { if (strcmp(arg, "-core") == 0) { -#if defined FEATURE_EXECUTABLE if (builtin_image_flag) { fprintf(stderr, "Cannot specify core file in executable image --- sorry about that.\n"); exit(1); } -#endif + if (core != NULL) { fprintf(stderr, "can only specify one core file.\n"); exit(1); @@ -559,14 +558,19 @@ exit(1); } - if (strcmp(str, "auto") == 0) { - fpu_mode = AUTO; - } else if (strcmp(str, "x87") == 0) { - fpu_mode = X87; - } else if (strcmp(str, "sse2") == 0) { - fpu_mode = SSE2; + if (builtin_image_flag != 0) { + fprintf(stderr, + "Warning: -fpu cannot change the fpu mode of an executable image\n"); } else { - fprintf(stderr, "Unknown fpu type: `%s'. Using auto\n", str); + if (strcmp(str, "auto") == 0) { + fpu_mode = AUTO; + } else if (strcmp(str, "x87") == 0) { + fpu_mode = X87; + } else if (strcmp(str, "sse2") == 0) { + fpu_mode = SSE2; + } else { + fprintf(stderr, "Unknown fpu type: `%s'. Using auto\n", str); + } } } #endif @@ -629,70 +633,63 @@ libvar = getenv("CMUCLLIB"); if (libvar != NULL) { cmucllib = strdup(libvar); - } else -#if defined FEATURE_EXECUTABLE + } else { /* * The following doesn't make sense for executables. They * need to use the saved library path from the lisp from * which they were dumped. */ - if (builtin_image_flag == 0) -#endif - { - const char *newlib = NULL; + if (builtin_image_flag == 0) { + const char *newlib = NULL; - /* - * We need to use our default search path. If a core file - * is given, we prepend the directory of the core file to - * the search path. - */ - cmucllib = default_cmucllib(argv[0]); - if (core != NULL) { - newlib = prepend_core_path(cmucllib, core); - } else if (getenv("CMUCLCORE") != NULL) { - core = getenv("CMUCLCORE"); - newlib = prepend_core_path(cmucllib, core); - } + /* + * We need to use our default search path. If a core file + * is given, we prepend the directory of the core file to + * the search path. + */ + cmucllib = default_cmucllib(argv[0]); + if (core != NULL) { + newlib = prepend_core_path(cmucllib, core); + } else if (getenv("CMUCLCORE") != NULL) { + core = getenv("CMUCLCORE"); + newlib = prepend_core_path(cmucllib, core); + } - if (newlib != NULL) { - free((void *) cmucllib); - cmucllib = newlib; - } - } + if (newlib != NULL) { + free((void *) cmucllib); + cmucllib = newlib; + } + } + } } /* Only look for a core file if we're not using a built-in image. */ -#if defined FEATURE_EXECUTABLE if (builtin_image_flag == 0) { -#endif /* * If no core file specified, search for it in CMUCLLIB */ - { - const char* found_core; + const char* found_core; - found_core = locate_core(cmucllib, core, default_core); + found_core = locate_core(cmucllib, core, default_core); #ifdef FEATURE_SSE2 - if ((found_core == NULL) && (fpu_mode == AUTO)) { - /* - * If we support SSE2 but couldn't find the SSE2 core, try - * to fall back to the x87 core. - */ - found_core = locate_core(cmucllib, core, "lisp-x87.core"); - if (found_core == NULL) { - core_failure(core, argv); - } - fprintf(stderr, "Warning: Chip supports SSE2, but could not find SSE2 core.\n"); - fprintf(stderr, " Falling back to x87 core.\n"); - } -#endif - if (!found_core) { + if ((found_core == NULL) && (fpu_mode == AUTO)) { + /* + * If we support SSE2 but couldn't find the SSE2 core, try + * to fall back to the x87 core. + */ + found_core = locate_core(cmucllib, core, "lisp-x87.core"); + if (found_core == NULL) { core_failure(core, argv); } - core = found_core; + fprintf(stderr, "Warning: Chip supports SSE2, but could not find SSE2 core.\n"); + fprintf(stderr, " Falling back to x87 core.\n"); } -#if defined FEATURE_EXECUTABLE +#endif + if (!found_core) { + core_failure(core, argv); + } + core = found_core; } else { /* * The "core file" is the executable. We have to save the @@ -701,11 +698,9 @@ */ core = argv[0]; } -#endif globals_init(); -#if defined FEATURE_EXECUTABLE if (builtin_image_flag != 0) { extern int image_dynamic_space_size; long allocation_pointer = @@ -718,9 +713,6 @@ } else { initial_function = load_core_file(core, &fpu_type); } -#else - initial_function = load_core_file(core, &fpu_type); -#endif #ifdef i386 if ((fpu_type == SSE2) && !arch_support_sse2()) { @@ -771,15 +763,16 @@ SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp)); /* Set cmucllib and cmuclcore appropriately */ -#if defined FEATURE_EXECUTABLE /* * This test will preserve the library: search list dumped with * the executable unless the user specifically overrides it with * the -lib flag or by setting the CMUCLLIB environment variable. */ - if (cmucllib) -#endif + + if (cmucllib) { SetSymbolValue(CMUCL_LIB, alloc_string(cmucllib)); + } + SetSymbolValue(CMUCL_CORE_PATH, alloc_string(core)); /*

1 0

[cmucl-cvs] CMUCL commit: src/tools (make-extra-dist.sh)
by Raymond Toy 25 Sep '10

25 Sep '10

Date: Saturday, September 25, 2010 @ 14:47:33 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: make-extra-dist.sh Don't need to install the po files since they're not used by anything. --------------------+ make-extra-dist.sh | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) Index: src/tools/make-extra-dist.sh diff -u src/tools/make-extra-dist.sh:1.13 src/tools/make-extra-dist.sh:1.14 --- src/tools/make-extra-dist.sh:1.13 Wed Sep 15 22:29:37 2010 +++ src/tools/make-extra-dist.sh Sat Sep 25 14:47:33 2010 @@ -122,12 +122,12 @@ done # Install po files. (Do we really need to distribute the po files?) -for f in `(cd $TARGET/i18n; find locale -type f -print | egrep -v 'CVS|~.*~|.*~')` -do - FILE=`basename $f` - DIR=`dirname $f` - install ${GROUP} ${OWNER} -m 0644 $TARGET/i18n/$f $DESTDIR/lib/cmucl/lib/$DIR -done +#for f in `(cd $TARGET/i18n; find locale -type f -print | egrep -v 'CVS|~.*~|.*~')` +#do +# FILE=`basename $f` +# DIR=`dirname $f` +# install ${GROUP} ${OWNER} -m 0644 $TARGET/i18n/$f $DESTDIR/lib/cmucl/lib/$DIR +#done if [ -z "$INSTALL_DIR" ]; then sync ; sleep 1 ; sync ; sleep 1 ; sync

1 0

[cmucl-cvs] CMUCL commit: src/tools (build.sh)
by Raymond Toy 25 Sep '10

25 Sep '10

Date: Saturday, September 25, 2010 @ 14:03:16 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: build.sh Set LANG=C before compiling the C code. For some reason on my openSuSE 11.2 system, gcc messages are garbled unless I do this. (Perhaps, I'm missing some localization info? But I have the gcc localization package installed.) ----------+ build.sh | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) Index: src/tools/build.sh diff -u src/tools/build.sh:1.34 src/tools/build.sh:1.35 --- src/tools/build.sh:1.34 Wed Sep 15 20:43:33 2010 +++ src/tools/build.sh Sat Sep 25 14:03:15 2010 @@ -32,7 +32,7 @@ # # For more information see src/BUILDING. # -# $Header: /project/cmucl/cvsroot/src/tools/build.sh,v 1.34 2010-09-16 00:43:33 rtoy Exp $ +# $Header: /project/cmucl/cvsroot/src/tools/build.sh,v 1.35 2010-09-25 18:03:15 rtoy Exp $ # ENABLE2="yes" @@ -120,7 +120,11 @@ then $TOOLDIR/clean-target.sh $CLEAN_FLAGS $TARGET || { echo "Failed: $TOOLDIR/clean-target.sh"; exit 1; } time $BUILDWORLD $TARGET $OLDLISP $BOOT || { echo "Failed: $BUILDWORLD"; exit 1; } - $MAKE -C $TARGET/lisp $MAKE_TARGET || { echo "Failed: $MAKE -C $TARGET/lisp"; exit 1; } + # Set the LANG to C. For whatever reason, if I (rtoy) don't + # do this on my openSuSE system, any messages from gcc are + # basically garbled. This should be harmless on other + # systems. + LANG=C $MAKE -C $TARGET/lisp $MAKE_TARGET || { echo "Failed: $MAKE -C $TARGET/lisp"; exit 1; } if [ "$BUILD_WORLD2" = "yes" ]; then $BUILDWORLD $TARGET $OLDLISP $BOOT || { echo "Failed: $BUILDWORLD"; exit 1; }

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (index.html)
by Raymond Toy 24 Sep '10

24 Sep '10

Date: Friday, September 24, 2010 @ 17:47:19 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: index.html Fix typo. ------------+ index.html | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) Index: cmucl-www/cmucl-www/www/index.html diff -u cmucl-www/cmucl-www/www/index.html:1.11 cmucl-www/cmucl-www/www/index.html:1.12 --- cmucl-www/cmucl-www/www/index.html:1.11 Tue Sep 7 11:04:34 2010 +++ cmucl-www/cmucl-www/www/index.html Fri Sep 24 17:47:19 2010 @@ -80,7 +80,7 @@ NaN. This matches what happens for x87. </li> <li> For SSE2 builds, <code>SIGCONTEXT-FLOAT-REGISTER</code> returned the wrong - value for single-floats. Easily noticead when tracing a function + value for single-floats. Easily noticed when tracing a function with single-float arguments. </li> <li> Trac issue #36: file-position broken for utf16 and utf32.

1 0

[cmucl-cvs] CMUCL commit: src/pcl/simple-streams/external-formats (crlf.lisp)
by Raymond Toy 24 Sep '10

24 Sep '10

Date: Friday, September 24, 2010 @ 17:45:33 Author: rtoy Path: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats Modified: crlf.lisp Add some declarations to get rid of compiler notes. -----------+ crlf.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) Index: src/pcl/simple-streams/external-formats/crlf.lisp diff -u src/pcl/simple-streams/external-formats/crlf.lisp:1.5 src/pcl/simple-streams/external-formats/crlf.lisp:1.6 --- src/pcl/simple-streams/external-formats/crlf.lisp:1.5 Mon Jul 12 10:42:11 2010 +++ src/pcl/simple-streams/external-formats/crlf.lisp Fri Sep 24 17:45:33 2010 @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/crlf.lisp,v 1.5 2010-07-12 14:42:11 rtoy Exp $") +(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/crlf.lisp,v 1.6 2010-09-24 21:45:33 rtoy Exp $") (in-package "STREAM") (intl:textdomain "cmucl") @@ -17,9 +17,11 @@ (input (state input unput tmp1 tmp2 tmp3 tmp4) `(multiple-value-bind (,tmp1 ,tmp2) ,input + (declare (type kernel:index ,tmp2)) (when (= ,tmp1 (char-code #\return)) (multiple-value-bind (,tmp3 ,tmp4) ,input + (declare (type kernel:index ,tmp4)) ;; @@ tmp3 may be NIL, if file ends in LF (if (= ,tmp3 (char-code #\newline)) (setq ,tmp1 ,tmp3

1 0

[cmucl-cvs] CMUCL commit: src (3 files)
by Raymond Toy 24 Sep '10

24 Sep '10

Date: Friday, September 24, 2010 @ 08:12:05 Author: rtoy Path: /project/cmucl/cvsroot/src Modified: compiler/fndb.lisp compiler/main.lisp general-info/release-20c.txt Add :decoding-error arg to compile-file to specify how decoding errors should be handled. compiler/main.lisp: o Add DECODING-ERROR slot to SOURCE-INFO structure. o MAKE-FILE-SOURCE-INFO requires a decoding error argument so the SOURCE-INFO structure can be properly initialized. o Add :DECODING-ERROR keyword arg to COMPILE-FILE to specify how decoding errors are handled. Default is T, which means to signal an error. compiler/fndb.lisp: o Tell compiler about the new parameter. general-info/release-20c.txt: o Document change. ------------------------------+ compiler/fndb.lisp | 3 ++- compiler/main.lisp | 29 ++++++++++++++++++++++------- general-info/release-20c.txt | 11 ++++++++++- 3 files changed, 34 insertions(+), 9 deletions(-) Index: src/compiler/fndb.lisp diff -u src/compiler/fndb.lisp:1.146 src/compiler/fndb.lisp:1.147 --- src/compiler/fndb.lisp:1.146 Mon Jul 26 13:20:26 2010 +++ src/compiler/fndb.lisp Fri Sep 24 08:12:05 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/fndb.lisp,v 1.146 2010-07-26 17:20:26 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/fndb.lisp,v 1.147 2010-09-24 12:12:05 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1152,6 +1152,7 @@ (:entry-points list) (:byte-compile (member t nil :maybe)) (:external-format symbol) + (:decoding-error (or null symbol function)) (:xref t)) (values (or pathname null) boolean boolean)) Index: src/compiler/main.lisp diff -u src/compiler/main.lisp:1.158 src/compiler/main.lisp:1.159 --- src/compiler/main.lisp:1.158 Wed Sep 15 11:47:29 2010 +++ src/compiler/main.lisp Fri Sep 24 08:12:05 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.158 2010-09-15 15:47:29 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.159 2010-09-24 12:12:05 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -718,14 +718,19 @@ ;; ;; External format to use for the stream if the stream hasn't been opened #+unicode - (external-format :default)) + (external-format :default) + ;; + ;; How to handle decoding errors when reading the source file. + ;; Default is T to signal an error. + #+unicode + (decoding-error t)) ;;; Make-File-Source-Info -- Internal ;;; ;;; Given a list of pathnames, return a Source-Info structure. ;;; -(defun make-file-source-info (files external-format) +(defun make-file-source-info (files external-format decoding-error) (declare (list files)) (let ((file-info (mapcar #'(lambda (x) @@ -739,7 +744,9 @@ :current-file file-info #+unicode :external-format #+unicode (stream::ef-name - (stream::find-external-format external-format))))) + (stream::find-external-format external-format)) + #+unicode :decoding-error + #+unicode decoding-error))) ;;; MAKE-LISP-SOURCE-INFO -- Interface @@ -880,7 +887,9 @@ (setf (source-info-stream info) (open name :direction :input #+unicode :external-format - #+unicode (source-info-external-format info))))))) + #+unicode (source-info-external-format info) + #+unicode :decoding-error + #+unicode (source-info-decoding-error info))))))) ;;; CLOSE-SOURCE-INFO -- Internal ;;; @@ -1744,6 +1753,7 @@ (error-output t) (load nil) (external-format :default) + (decoding-error t) ((:verbose *compile-verbose*) *compile-verbose*) ((:print *compile-print*) *compile-print*) ((:progress *compile-progress*) *compile-progress*) @@ -1796,7 +1806,12 @@ If non-NIL, enable recording of cross-reference information. The default is the value of C:*RECORD-XREF-INFO* :External-Format - The external format to use when opening the source file" + The external format to use when opening the source file + :Decoding-Error + How to handle decoding errors in the external format when reading the + source file. Default (T) is to signal an error. Nil means silently + continue, replacing the invalid sequence with a suitable replacment + character." (let* ((fasl-file nil) (error-file-stream nil) (output-file-pathname nil) @@ -1805,7 +1820,7 @@ (compile-won nil) (error-severity nil) (source (verify-source-files source)) - (source-info (make-file-source-info source external-format)) + (source-info (make-file-source-info source external-format decoding-error)) (default (pathname (first source)))) (unwind-protect (progn Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.3 src/general-info/release-20c.txt:1.4 --- src/general-info/release-20c.txt:1.3 Fri Sep 17 12:01:05 2010 +++ src/general-info/release-20c.txt Fri Sep 24 08:12:05 2010 @@ -20,11 +20,20 @@ * Known issues: - * Feature enhancements: + * Feature enhancements - Update to Unicode 5.2.0. - Add support for character name completion. This can be used by Slime to do character name completion. + * Changes + - COMPILE-FILE now accepts a :DECODING-ERROR argument that + indicates how to handle decoding errors when reading the file. + It has the same meaning and effect as the :DECODING-ERROR + argument to OPEN. This defaults to T here so that decoding + errors are signaled on invalid sequences instead of silently + replacing the bad sequence with some kind of replacement + character. + * ANSI compliance fixes: * Bugfixes:

1 0

[cmucl-cvs] CMUCL commit: src/lisp (save.c)
by Raymond Toy 24 Sep '10

24 Sep '10

Date: Friday, September 24, 2010 @ 00:08:39 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: save.c Include libgen.h on Darwin/x86 to get rid of a compiler warning about dirname being undefined. --------+ save.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/lisp/save.c diff -u src/lisp/save.c:1.28 src/lisp/save.c:1.29 --- src/lisp/save.c:1.28 Mon Aug 2 17:45:36 2010 +++ src/lisp/save.c Fri Sep 24 00:08:39 2010 @@ -1,6 +1,6 @@ /* - $Header: /project/cmucl/cvsroot/src/lisp/save.c,v 1.28 2010-08-02 21:45:36 rtoy Exp $ + $Header: /project/cmucl/cvsroot/src/lisp/save.c,v 1.29 2010-09-24 04:08:39 rtoy Exp $ This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. @@ -29,7 +29,7 @@ #ifdef FEATURE_EXECUTABLE #include "elf.h" -#if !defined(DARWIN) +#if !(defined(DARWIN) && defined(__ppc__)) #include <libgen.h> #endif #endif

1 0