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

[cmucl-cvs] CMUCL commit: src/lisp (solaris-os.c)
by Raymond Toy 12 Nov '10

12 Nov '10

Date: Friday, November 12, 2010 @ 07:57:32 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: solaris-os.c Print out the PC when we get a real protection violation. --------------+ solaris-os.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) Index: src/lisp/solaris-os.c diff -u src/lisp/solaris-os.c:1.25 src/lisp/solaris-os.c:1.26 --- src/lisp/solaris-os.c:1.25 Mon Feb 1 11:04:43 2010 +++ src/lisp/solaris-os.c Fri Nov 12 07:57:32 2010 @@ -1,5 +1,5 @@ /* - * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.25 2010-02-01 16:04:43 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.26 2010-11-12 12:57:32 rtoy Exp $ * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. @@ -260,7 +260,9 @@ } /* a *real* protection fault */ - fprintf(stderr, "segv_handler: Real protection violation: %p\n", addr); + fprintf(stderr, "segv_handler: Real protection violation: %p, PC = %p\n", + addr, + context->uc_mcontext.gregs[1]); segv_handle_now(signal, code, context); } #else

1 0

[cmucl-cvs] CMUCL commit: src/compiler/generic (new-genesis.lisp)
by Raymond Toy 11 Nov '10

11 Nov '10

Date: Thursday, November 11, 2010 @ 16:48:24 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/generic Modified: new-genesis.lisp When storing strings to the core file, swap the bytes of Unicode strings if the byte order of the backend and the native backend are different. ------------------+ new-genesis.lisp | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) Index: src/compiler/generic/new-genesis.lisp diff -u src/compiler/generic/new-genesis.lisp:1.90 src/compiler/generic/new-genesis.lisp:1.91 --- src/compiler/generic/new-genesis.lisp:1.90 Mon Jul 19 19:08:37 2010 +++ src/compiler/generic/new-genesis.lisp Thu Nov 11 16:48:24 2010 @@ -4,7 +4,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.90 2010-07-19 23:08:37 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.91 2010-11-11 21:48:24 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -434,6 +434,13 @@ ;;(format t "s-t-c: len = ~d, ~S~%" len string) (dotimes (k len) (setf (aref bytes k) (logand #xffff (char-code (aref string k))))) + (unless (eq (c:backend-byte-order c:*backend*) + (c:backend-byte-order c:*native-backend*)) + ;; Swap byte order of unicode strings. + (dotimes (k len) + (let ((x (aref bytes k))) + (setf (aref bytes k) (+ (ldb (byte 8 8) x) + (ash (ldb (byte 8 0) x) 8)))))) (copy-to-system-area bytes (* vm:vector-data-offset ;; the word size of the native backend which ;; may be different from the target backend

1 0

[cmucl-cvs] CMUCL commit: src/compiler/sparc (float.lisp)
by Raymond Toy 11 Nov '10

11 Nov '10

Date: Thursday, November 11, 2010 @ 07:59:51 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/sparc Modified: float.lisp Vops for adding a real to a complex was totally messed up. The real part of the result was the real, and the imaginary part of the result was garbage. ------------+ float.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/compiler/sparc/float.lisp diff -u src/compiler/sparc/float.lisp:1.63 src/compiler/sparc/float.lisp:1.64 --- src/compiler/sparc/float.lisp:1.63 Fri Mar 19 11:19:01 2010 +++ src/compiler/sparc/float.lisp Thu Nov 11 07:59: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/compiler/sparc/float.lisp,v 1.63 2010-03-19 15:19:01 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/compiler/sparc/float.lisp,v 1.64 2010-11-11 12:59:51 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2084,7 +2084,7 @@ (inst ,load zero zero-val (- (* ,slot vm:word-bytes) vm:other-pointer-type)) (inst ,fop rr xr y) - (inst ,fop rr xr zero))))))) + (inst ,fop ri xi zero))))))) (frob single fadds 1) (frob double faddd 2))

1 0

[cmucl-cvs] CMUCL commit: src (4 files)
by Raymond Toy 10 Nov '10

10 Nov '10

Date: Wednesday, November 10, 2010 @ 14:51:24 Author: rtoy Path: /project/cmucl/cvsroot/src Added: bootfiles/20b/boot-2010-11-1-cross.lisp Modified: code/exports.lisp compiler/backend.lisp compiler/dump.lisp Add new slots to the backend to hold the foreign linkage space start and entry size. Not yet used anywhere. This change needs a cross-compile; use boot-2010-11-1-cross.lisp as the cross-compile script. compiler/backend.lisp: o Add the two new slots to the backend. compiler/dump.lisp: o DUMP-DATA-MAYBE-BYTE-SWAPPING needs to handle (unicode) strings o DUMP-DATA-MAYBE-BYTE-SWAPPING should not swap bytes of a string. Genesis will make that happen. code/exports.lisp: o Export BACKEND-FOREIGN-LINKAGE-SPACE-START and BACKEND-FOREIGN-LINKAGE-ENTRY-SIZE. bootfiles/20b/boot-2010-11-1-cross.lisp: o Cross-compile script for this change. -----------------------------------------+ bootfiles/20b/boot-2010-11-1-cross.lisp | 10 ++++++++++ code/exports.lisp | 7 +++++-- compiler/backend.lisp | 11 +++++++++-- compiler/dump.lisp | 29 +++++++++++++++++++---------- 4 files changed, 43 insertions(+), 14 deletions(-) Index: src/bootfiles/20b/boot-2010-11-1-cross.lisp diff -u /dev/null src/bootfiles/20b/boot-2010-11-1-cross.lisp:1.1 --- /dev/null Wed Nov 10 14:51:24 2010 +++ src/bootfiles/20b/boot-2010-11-1-cross.lisp Wed Nov 10 14:51:23 2010 @@ -0,0 +1,10 @@ +;;; Adding slots to the backend requires a cross-compile. +;;; +;;; Answer CLOBBER-IT for the restart about changing the size of the +;;; backend structure. + +#+x86 +(load "target:tools/cross-scripts/cross-x86-x86") + +#+sparc +(load "target:tools/cross-scripts/cross-sparc-sparc") Index: src/code/exports.lisp diff -u src/code/exports.lisp:1.301 src/code/exports.lisp:1.302 --- src/code/exports.lisp:1.301 Fri Sep 17 19:29:00 2010 +++ src/code/exports.lisp Wed Nov 10 14:51:23 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/exports.lisp,v 1.301 2010-09-17 23:29:00 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/exports.lisp,v 1.302 2010-11-10 19:51:23 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1666,7 +1666,10 @@ "BACKEND-ASSEMBLER-RESOURCES" "BACKEND-BYTE-ORDER" "BACKEND-DISASSEM-PARAMS" "BACKEND-FASL-FILE-IMPLEMENTATION" "BACKEND-FASL-FILE-TYPE" "BACKEND-FASL-FILE-VERSION" - "BACKEND-FEATURES" "BACKEND-INFO-ENVIRONMENT" + "BACKEND-FEATURES" + "BACKEND-FOREIGN-LINKAGE-SPACE-START" + "BACKEND-FOREIGN-LINKAGE-ENTRY-SIZE" + "BACKEND-INFO-ENVIRONMENT" "BACKEND-INSTRUCTION-FLAVORS" "BACKEND-INSTRUCTION-FORMATS" "BACKEND-NAME" "BACKEND-REGISTER-SAVE-PENALTY" "BACKEND-SPECIAL-ARG-TYPES" "BACKEND-VERSION" "BIND" "BRANCH" Index: src/compiler/backend.lisp diff -u src/compiler/backend.lisp:1.35 src/compiler/backend.lisp:1.36 --- src/compiler/backend.lisp:1.35 Tue Apr 20 13:57:46 2010 +++ src/compiler/backend.lisp Wed Nov 10 14:51:24 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/backend.lisp,v 1.35 2010-04-20 17:57:46 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/compiler/backend.lisp,v 1.36 2010-11-10 19:51:24 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -26,6 +26,8 @@ backend-assembler-resources backend-special-arg-types backend-disassem-params backend-internal-errors backend-assembler-params backend-page-size + backend-foreign-linkage-space-start + backend-foreign-linkage-entry-size ;; The various backends need to call these support routines def-vm-support-routine make-stack-pointer-tn primitive-type @@ -226,7 +228,12 @@ (assembler-params nil :type t) ;; The maximum number of bytes per page on this system. Used by genesis. - (page-size 0 :type index)) + (page-size 0 :type index) + + ;; The foreign linkage space start and size + + (foreign-linkage-space-start 0 :type (unsigned-byte 32)) + (foreign-linkage-entry-size 0 :type index)) (defprinter backend Index: src/compiler/dump.lisp diff -u src/compiler/dump.lisp:1.88 src/compiler/dump.lisp:1.89 --- src/compiler/dump.lisp:1.88 Tue Oct 12 17:52:44 2010 +++ src/compiler/dump.lisp Wed Nov 10 14:51:24 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/dump.lisp,v 1.88 2010-10-12 21:52:44 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.89 2010-11-10 19:51:24 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1634,15 +1634,24 @@ (declare (type (integer 1 #.most-positive-fixnum) bytes-per-element) (type unsigned-byte elements)) - (dotimes (index elements) - (let ((element (aref data-vector index)) - (new-element 0)) - (dotimes (i bytes-per-element) - (setf new-element - (logior (ash new-element vm:byte-bits) - (ldb (byte vm:byte-bits 0) element))) - (setf element (ash element (- vm:byte-bits)))) - (setf (aref result index) new-element))) + (if (stringp data-vector) + ;; Don't swap string bytes. We get here only if we're + ;; cross-compiling from one arch to a different endian + ;; arch. To be able to load the fasls, we need to keep + ;; strings in the native format. When genesis is done, + ;; genesis will swap string bytes when creating the + ;; core so that the bytes are in the correct order. + (dotimes (index elements) + (setf (aref result index) (char-code (aref data-vector index)))) + (dotimes (index elements) + (let ((element (aref data-vector index)) + (new-element 0)) + (dotimes (i bytes-per-element) + (setf new-element + (logior (ash new-element vm:byte-bits) + (ldb (byte vm:byte-bits 0) element))) + (setf element (ash element (- vm:byte-bits)))) + (setf (aref result index) new-element)))) (dump-bytes result bytes file))) (t (let* ((elements-per-byte (/ vm:byte-bits element-size))

1 0

[cmucl-cvs] CMUCL commit: src/bootfiles/20b [new]
by Raymond Toy 10 Nov '10

10 Nov '10

Date: Wednesday, November 10, 2010 @ 14:50:04 Author: rtoy Path: /project/cmucl/cvsroot/src/bootfiles/20b Directory /project/cmucl/cvsroot/src/bootfiles/20b added to the repository

1 0

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

10 Nov '10

Date: Wednesday, November 10, 2010 @ 14:17:55 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: build.sh Update bootfiles version from 20a to 20b. There won't be anymore bootfiles for 20a. ----------+ build.sh | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/tools/build.sh diff -u src/tools/build.sh:1.37 src/tools/build.sh:1.38 --- src/tools/build.sh:1.37 Wed Nov 3 11:11:57 2010 +++ src/tools/build.sh Wed Nov 10 14:17:55 2010 @@ -32,14 +32,14 @@ # # For more information see src/BUILDING. # -# $Header: /project/cmucl/cvsroot/src/tools/build.sh,v 1.37 2010-11-03 15:11:57 rtoy Exp $ +# $Header: /project/cmucl/cvsroot/src/tools/build.sh,v 1.38 2010-11-10 19:17:55 rtoy Exp $ # ENABLE2="yes" ENABLE3="yes" ENABLE4="yes" -version=20a +version=20b SRCDIR=src TOOLDIR=$SRCDIR/tools VERSION="CVS Head `date '+%Y-%m-%d %H:%M:%S'`"

1 0

[cmucl-cvs] CMUCL commit: src/code (filesys.lisp)
by Raymond Toy 08 Nov '10

08 Nov '10

Date: Monday, November 8, 2010 @ 17:29:00 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: filesys.lisp Fix typo in ENUMERATE-MATCHES. It's verify-existence, not verify-existance. --------------+ filesys.lisp | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) Index: src/code/filesys.lisp diff -u src/code/filesys.lisp:1.112 src/code/filesys.lisp:1.113 --- src/code/filesys.lisp:1.112 Mon Jun 7 18:52:17 2010 +++ src/code/filesys.lisp Mon Nov 8 17:28:59 2010 @@ -6,7 +6,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/filesys.lisp,v 1.112 2010-06-07 22:52:17 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/filesys.lisp,v 1.113 2010-11-08 22:28:59 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -660,18 +660,18 @@ ;;;; Wildcard matching stuff. (defmacro enumerate-matches ((var pathname &optional result - &key (verify-existance t) (follow-links t)) + &key (verify-existence t) (follow-links t)) &body body) (let ((body-name (gensym))) `(block nil (flet ((,body-name (,var) ,@body)) (%enumerate-matches (pathname ,pathname) - ,verify-existance ,follow-links + ,verify-existence ,follow-links #',body-name) ,result)))) -(defun %enumerate-matches (pathname verify-existance follow-links function) +(defun %enumerate-matches (pathname verify-existence follow-links function) (when (pathname-type pathname) (unless (pathname-name pathname) (error (intl:gettext "Cannot supply a type without a name:~% ~S") pathname))) @@ -680,20 +680,20 @@ (ecase (car directory) (:absolute (%enumerate-directories "/" (cdr directory) pathname - verify-existance follow-links + verify-existence follow-links nil function)) (:relative (%enumerate-directories "" (cdr directory) pathname - verify-existance follow-links + verify-existence follow-links nil function))) - (%enumerate-files "" pathname verify-existance function)))) + (%enumerate-files "" pathname verify-existence function)))) ;;; %enumerate-directories -- Internal ;;; ;;; The directory node and device numbers are maintained for the current path ;;; during the search for the detection of path loops upon :wild-inferiors. ;;; -(defun %enumerate-directories (head tail pathname verify-existance +(defun %enumerate-directories (head tail pathname verify-existence follow-links nodes function) (declare (simple-string head)) (macrolet ((unix-xstat (name) @@ -727,11 +727,11 @@ (with-directory-node-noted (head) (%enumerate-directories (concatenate 'string head "/") (cdr tail) pathname - verify-existance follow-links + verify-existence follow-links nodes function)))) ((member :wild-inferiors) (%enumerate-directories head (rest tail) pathname - verify-existance follow-links + verify-existence follow-links nodes function) (do-directory-entries (name head) (let ((subdir (concatenate 'string head name))) @@ -746,7 +746,7 @@ (let ((nodes (cons (cons dev ino) nodes)) (subdir (concatenate 'string subdir "/"))) (%enumerate-directories subdir tail pathname - verify-existance follow-links + verify-existence follow-links nodes function)))))))) ((or pattern (member :wild)) (do-directory-entries (name head) @@ -760,24 +760,24 @@ (let ((nodes (cons (cons dev ino) nodes)) (subdir (concatenate 'string subdir "/"))) (%enumerate-directories subdir (rest tail) pathname - verify-existance follow-links + verify-existence follow-links nodes function)))))))) ((member :up) (let ((head (concatenate 'string head ".."))) (with-directory-node-noted (head) (%enumerate-directories (concatenate 'string head "/") (rest tail) pathname - verify-existance follow-links + verify-existence follow-links nodes function)))))) - (%enumerate-files head pathname verify-existance function)))) + (%enumerate-files head pathname verify-existence function)))) -(defun %enumerate-files (directory pathname verify-existance function) +(defun %enumerate-files (directory pathname verify-existence function) (declare (simple-string directory)) (let ((name (%pathname-name pathname)) (type (%pathname-type pathname)) (version (%pathname-version pathname))) (cond ((member name '(nil :unspecific)) - (when (or (not verify-existance) + (when (or (not verify-existence) (unix:unix-file-kind directory)) (funcall function directory))) ((or (pattern-p name) @@ -822,7 +822,7 @@ (setf file (concatenate 'string file ".~" (quick-integer-to-string version) "~"))) - (when (or (not verify-existance) + (when (or (not verify-existence) (unix:unix-file-kind file t)) (funcall function file))))))) @@ -868,7 +868,7 @@ (enumerate-search-list (pathname path) (collect ((names)) - (enumerate-matches (name pathname nil :verify-existance for-input + (enumerate-matches (name pathname nil :verify-existence for-input :follow-links t) (when (or (not executable-only) (and (eq (unix:unix-file-kind name) :file)

1 0

[cmucl-cvs] CMUCL commit: src/i18n/locale (3 files)
by Raymond Toy 08 Nov '10

08 Nov '10

Date: Monday, November 8, 2010 @ 09:02:41 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Modified: cmucl.pot en(a)piglatin/LC_MESSAGES/cmucl.po ko/LC_MESSAGES/cmucl.po Regenerated from current sources. ----------------------------------+ cmucl.pot | 11 ++++------- en(a)piglatin/LC_MESSAGES/cmucl.po | 37 ++++++++++++++++++++++--------------- ko/LC_MESSAGES/cmucl.po | 23 ++++++++++++++--------- 3 files changed, 40 insertions(+), 31 deletions(-) Index: src/i18n/locale/cmucl.pot diff -u src/i18n/locale/cmucl.pot:1.16 src/i18n/locale/cmucl.pot:1.17 --- src/i18n/locale/cmucl.pot:1.16 Wed Oct 27 08:50:04 2010 +++ src/i18n/locale/cmucl.pot Mon Nov 8 09:02:40 2010 @@ -5554,10 +5554,6 @@ msgstr "" #: src/code/misc.lisp -msgid "" -msgstr "" - -#: src/code/misc.lisp msgid "Returns a string describing the implementation version." msgstr "" @@ -6574,12 +6570,13 @@ " read-eval-print loop. If the function returns the lisp will exit.\n" " \n" " :load-init-file\n" -" If true, then look for an init.lisp or init.fasl file when the core\n" -" file is resumed.\n" +" If true, then look for an init file when the core file is resumed.\n" +" Look for home:init first and then home:.cmucl-init. No error if\n" +" there is no init file.\n" "\n" " :site-init\n" " If true, then the name of the site init file to load. The default is\n" -" library:site-init. No error if this does not exist.\n" +" library:site-init. No error if this does not exist.\n" "\n" " :print-herald\n" " If true (the default), print out the lisp system herald when " Index: src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po diff -u src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po:1.11 src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po:1.12 --- src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po:1.11 Sun Sep 26 20:15:51 2010 +++ src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po Mon Nov 8 09:02:40 2010 @@ -7874,15 +7874,15 @@ msgstr "Eturnsray away ingstray escribingday ethay implementationway ypetay." #: src/code/misc.lisp +msgid " Unicode" +msgstr " Unicodeway" + +#: src/code/misc.lisp msgid "Returns a string describing the implementation version." msgstr "" "Eturnsray away ingstray escribingday ethay implementationway ersionvay." #: src/code/misc.lisp -msgid " Unicode" -msgstr " Unicodeway" - -#: src/code/misc.lisp msgid "Returns a string giving the name of the local machine." msgstr "" "Eturnsray away ingstray ivinggay ethay amenay ofway ethay ocallay achinemay." @@ -9418,12 +9418,13 @@ " read-eval-print loop. If the function returns the lisp will exit.\n" " \n" " :load-init-file\n" -" If true, then look for an init.lisp or init.fasl file when the core\n" -" file is resumed.\n" +" If true, then look for an init file when the core file is resumed.\n" +" Look for home:init first and then home:.cmucl-init. No error if\n" +" there is no init file.\n" "\n" " :site-init\n" " If true, then the name of the site init file to load. The default is\n" -" library:site-init. No error if this does not exist.\n" +" library:site-init. No error if this does not exist.\n" "\n" " :print-herald\n" " If true (the default), print out the lisp system herald when " @@ -9481,14 +9482,16 @@ "isplay illway exitway.\n" " \n" " :oadlay-initway-ilefay\n" -" Ifway uetray, enthay ooklay orfay anway initway.isplay orway initway." -"aslfay ilefay enwhay ethay orecay\n" -" ilefay isway esumedray.\n" +" Ifway uetray, enthay ooklay orfay anway initway ilefay enwhay ethay " +"orecay ilefay isway esumedray.\n" +" Ooklay orfay omehay:initway irstfay andway enthay omehay:.muclcay-" +"initway. Onay errorway ifway\n" +" erethay isway onay initway ilefay.\n" "\n" " :itesay-initway\n" " Ifway uetray, enthay ethay amenay ofway ethay itesay initway ilefay " "otay oadlay. Ethay efaultday isway\n" -" ibrarylay:itesay-initway. Onay errorway ifway isthay oesday otnay " +" ibrarylay:itesay-initway. Onay errorway ifway isthay oesday otnay " "existway.\n" "\n" " :intpray-eraldhay\n" @@ -13079,6 +13082,14 @@ msgstr "Invalidway ositionpay ivengay otay ilefay-ositionpay: ~S" #: src/code/fd-stream.lisp +msgid "Use Unicode replacement character instead" +msgstr "Useway Unicodeway eplacementray aracterchay insteadway" + +#: src/code/fd-stream.lisp +msgid "Use question mark character instead" +msgstr "Useway estionquay arkmay aracterchay insteadway" + +#: src/code/fd-stream.lisp msgid "" "Create a stream for the given unix file descriptor.\n" " If input is non-nil, allow input operations.\n" @@ -13130,10 +13141,6 @@ msgstr "** Osedclay ~Away~%" #: src/code/fd-stream.lisp -msgid "Use Unicode replacement character instead" -msgstr "Useway Unicodeway eplacementray aracterchay insteadway" - -#: src/code/fd-stream.lisp msgid "" "This is a string that OPEN tacks on the end of a file namestring to produce\n" " a name for the :if-exists :rename-and-delete and :rename options. Also,\n" Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.13 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.14 --- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.13 Sun Sep 26 19:47:45 2010 +++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Mon Nov 8 09:02:41 2010 @@ -5546,11 +5546,11 @@ msgstr "" #: src/code/misc.lisp -msgid "Returns a string describing the implementation version." +msgid " Unicode" msgstr "" #: src/code/misc.lisp -msgid " Unicode" +msgid "Returns a string describing the implementation version." msgstr "" #: src/code/misc.lisp @@ -6588,12 +6588,13 @@ " read-eval-print loop. If the function returns the lisp will exit.\n" " \n" " :load-init-file\n" -" If true, then look for an init.lisp or init.fasl file when the core\n" -" file is resumed.\n" +" If true, then look for an init file when the core file is resumed.\n" +" Look for home:init first and then home:.cmucl-init. No error if\n" +" there is no init file.\n" "\n" " :site-init\n" " If true, then the name of the site init file to load. The default is\n" -" library:site-init. No error if this does not exist.\n" +" library:site-init. No error if this does not exist.\n" "\n" " :print-herald\n" " If true (the default), print out the lisp system herald when " @@ -9171,6 +9172,14 @@ msgstr "" #: src/code/fd-stream.lisp +msgid "Use Unicode replacement character instead" +msgstr "" + +#: src/code/fd-stream.lisp +msgid "Use question mark character instead" +msgstr "" + +#: src/code/fd-stream.lisp msgid "" "Create a stream for the given unix file descriptor.\n" " If input is non-nil, allow input operations.\n" @@ -9199,10 +9208,6 @@ msgstr "" #: src/code/fd-stream.lisp -msgid "Use Unicode replacement character instead" -msgstr "" - -#: src/code/fd-stream.lisp msgid "" "This is a string that OPEN tacks on the end of a file namestring to produce\n" " a name for the :if-exists :rename-and-delete and :rename options. Also,\n"

1 0

[cmucl-cvs] CMUCL commit: src/code (misc.lisp)
by Raymond Toy 08 Nov '10

08 Nov '10

Date: Monday, November 8, 2010 @ 08:45:27 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: misc.lisp Oops. Don't need to translate "" (in lisp-implementation-version). -----------+ misc.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/code/misc.lisp diff -u src/code/misc.lisp:1.42 src/code/misc.lisp:1.43 --- src/code/misc.lisp:1.42 Wed Oct 13 14:00:44 2010 +++ src/code/misc.lisp Mon Nov 8 08:45:27 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/misc.lisp,v 1.42 2010-10-13 18:00:44 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/misc.lisp,v 1.43 2010-11-08 13:45:27 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -182,7 +182,7 @@ (defun lisp-implementation-version () "Returns a string describing the implementation version." (format nil "~A (~X~A)" *lisp-implementation-version* c:byte-fasl-file-version - #+unicode _" Unicode" #-unicode _"")) + #+unicode _" Unicode" #-unicode "")) (defun machine-instance () "Returns a string giving the name of the local machine."

1 0

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

04 Nov '10

Date: Thursday, November 4, 2010 @ 10:05:02 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: save.lisp Correct the docstring for SAVE for the :LOAD-INIT-FILE argument. -----------+ save.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) Index: src/code/save.lisp diff -u src/code/save.lisp:1.72 src/code/save.lisp:1.73 --- src/code/save.lisp:1.72 Wed Oct 13 14:00:44 2010 +++ src/code/save.lisp Thu Nov 4 10:05:01 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.72 2010-10-13 18:00:44 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/save.lisp,v 1.73 2010-11-04 14:05:01 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -177,12 +177,13 @@ read-eval-print loop. If the function returns the lisp will exit. :load-init-file - If true, then look for an init.lisp or init.fasl file when the core - file is resumed. + If true, then look for an init file when the core file is resumed. + Look for home:init first and then home:.cmucl-init. No error if + there is no init file. :site-init If true, then the name of the site init file to load. The default is - library:site-init. No error if this does not exist. + library:site-init. No error if this does not exist. :print-herald If true (the default), print out the lisp system herald when starting.

1 0