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

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-19-g719e87b
by Raymond Toy 25 Jan '13

25 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 719e87b7d103d3201c031412de576653a42daff7 (commit) from b2ee65dabba1742203e28f538eeee59da126093c (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 719e87b7d103d3201c031412de576653a42daff7 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Jan 24 20:55:45 2013 -0800 Fix ticket:65 some more. Apply the expt transform in more places. The test script in the ticket now passes. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index f04b154..67ca060 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -517,24 +517,30 @@ (intexp base power)) (((foreach single-float double-float) rational) - (real-expt base power '(dispatch-type base))) + (or (expt-xfrm base power) + (real-expt base power '(dispatch-type base)))) (((foreach fixnum (or bignum ratio) single-float) (foreach ratio single-float)) - (real-expt base power 'single-float)) + (or (expt-xfrm (coerce base 'single-float) power) + (real-expt base power 'single-float))) (((foreach fixnum (or bignum ratio) single-float double-float) double-float) - (real-expt base power 'double-float)) + (or (expt-xfrm (coerce base 'double-float) power) + (real-expt base power 'double-float))) ((double-float single-float) - (real-expt base power 'double-float)) + (or (expt-xfrm (coerce base 'double-float) power) + (real-expt base power 'double-float))) #+double-double (((foreach fixnum (or bignum ratio) single-float double-float double-double-float) double-double-float) - (dd-%pow (coerce base 'double-double-float) power)) + (or (expt-xfrm (coerce base 'double-double-float) power) + (dd-%pow (coerce base 'double-double-float) power))) #+double-double ((double-double-float (foreach fixnum (or bignum ratio) single-float double-float)) - (dd-%pow base (coerce power 'double-double-float))) + (or (expt-xfrm base power) + (dd-%pow base (coerce power 'double-double-float)))) (((foreach (complex rational) (complex single-float) (complex double-float) #+double-double (complex double-double-float)) rational) ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 18 ++++++++++++------ 1 files changed, 12 insertions(+), 6 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-18-gb2ee65d
by Raymond Toy 25 Jan '13

25 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via b2ee65dabba1742203e28f538eeee59da126093c (commit) from a05bb7128ec7c2eff10c8a940fb897b4270a40fa (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit b2ee65dabba1742203e28f538eeee59da126093c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Jan 24 20:28:09 2013 -0800 Fix ticket:71 The reader conditionals in {{{NOT-MORE-CONTAGIOUS}}} were incorrrectly handling the case when the second type was a double-float. It was always returning T in that case, but this is wrong if the first type is a double-double-float. diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp index d2f0c3b..4b6f0ff 100644 --- a/src/compiler/srctran.lisp +++ b/src/compiler/srctran.lisp @@ -3189,9 +3189,9 @@ (ecase format2 ((nil short-float single-float) (member format1 '(short-float single-float))) - #-long-float + #-double-double ((double-float long-float) 'T) - #+(or long-float double-double) + #+double-double (double-float (member format1 '(short-float single-float double-float))) ----------------------------------------------------------------------- Summary of changes: src/compiler/srctran.lisp | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-17-ga05bb71
by Raymond Toy 24 Jan '13

24 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via a05bb7128ec7c2eff10c8a940fb897b4270a40fa (commit) from 93656b6aa0ef4e939a84dfb62a6f088f58d3ff62 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit a05bb7128ec7c2eff10c8a940fb897b4270a40fa Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 23 21:25:07 2013 -0800 Update from commit logs. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 12d7e02..cf4fd5e 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -46,6 +46,8 @@ New in this release: * Ticket #67 fixed. * Ticket #68 fixed. * Ticket #69 fixed. + * Ticket #70 fixed. + * Ticket #65 fixed. * Other changes: * -8 option for build-all.sh is deprecated since we don't ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20e.txt | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-16-g93656b6
by Raymond Toy 24 Jan '13

24 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 93656b6aa0ef4e939a84dfb62a6f088f58d3ff62 (commit) from ab191d0f0c6c3744688042d14f754c3e35a4a793 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 93656b6aa0ef4e939a84dfb62a6f088f58d3ff62 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 23 21:22:24 2013 -0800 Fix ticket:65. Implement the deftransform in the expt function. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index e295fe2..f04b154 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -488,7 +488,22 @@ (declare (double-float y*pi)) (complex (coerce (* pow (%cos y*pi)) rtype) - (coerce (* pow (%sin y*pi)) rtype))))))))))))) + (coerce (* pow (%sin y*pi)) rtype)))))))))))) + (expt-xfrm (b p) + ;; Apply the same transformation as in the deftransform + ;; for expt in compiler/srctran.lisp. Only call this + ;; if B is more contagious than P. Otherwise, the type + ;; of the result will be wrong which will confuse the + ;; compiler! Return NIL if the transform can't be + ;; applied. + (cond + ((= p 2) (* b b)) + ((= p -2) (/ (* b b))) + ((= p 3) (* b b b)) + ((= p -3) (/ (* b b b))) + ((= p 1/2) (sqrt b)) + ((= p -1/2) (/ (sqrt b))) + (t nil)))) ;; This is really messy and should be cleaned up. The easiest ;; way to see if we're doing what we should is the macroexpand ;; the number-dispatch and check each branch. @@ -523,8 +538,9 @@ (((foreach (complex rational) (complex single-float) (complex double-float) #+double-double (complex double-double-float)) rational) - (* (expt (abs base) power) - (cis (* power (phase base))))) + (or (expt-xfrm base power) + (* (expt (abs base) power) + (cis (* power (phase base)))))) #+double-double ((double-double-float complex) @@ -560,36 +576,45 @@ (foreach single-float (complex single-float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log base))))) + (or (expt-xfrm (coerce base '(complex single-float)) power) + (exp (* power (log base)))))) (((foreach (complex rational) (complex single-float)) (foreach double-float (complex double-float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log (coerce base '(complex double-float))))))) + (or (expt-xfrm (coerce base '(complex double-float)) + power) + (exp (* power (log (coerce base '(complex double-float)))))))) #+double-double (((foreach (complex rational) (complex single-float)) (foreach double-double-float (complex double-double-float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log (coerce base '(complex double-double-float))))))) + (or (expt-xfrm (coerce base '(complex double-double-float)) + power) + (exp (* power (log (coerce base '(complex double-double-float)))))))) (((foreach (complex double-float)) - (foreach single-float double-float (complex single-float) - (complex double-float))) + (foreach single-float double-float + (complex single-float) (complex double-float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log base))))) + (or (expt-xfrm base power) + (exp (* power (log base)))))) #+double-double (((foreach (complex double-float)) (foreach double-double-float (complex double-double-float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log (coerce base '(complex double-double-float))))))) + (or (expt-xfrm (coerce base '(complex double-double-float)) + power) + (exp (* power (log (coerce base '(complex double-double-float)))))))) #+double-double (((foreach (complex double-double-float)) (foreach float (complex float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log base))))))))) + (or (expt-xfrm base power) + (exp (* power (log base)))))))))) ;; Log base 2 of a real number. The result is a either a double-float ;; or double-double-float number (real or complex, as appropriate), ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 47 ++++++++++++++++++++++++++++++++++++----------- 1 files changed, 36 insertions(+), 11 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-15-gab191d0
by Raymond Toy 24 Jan '13

24 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via ab191d0f0c6c3744688042d14f754c3e35a4a793 (commit) from b0ccde2c145b43466d9a34421f4f4fe2907a02c9 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit ab191d0f0c6c3744688042d14f754c3e35a4a793 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 23 20:20:18 2013 -0800 Fix ticket:70 by binding *d-p-d* to #p"". This allows logical pathnames (which always have a host to parse against) and search-lists (which don't have an explicit pathname to parse against) to be parsed correctly. See the comment for some possible issues. diff --git a/src/code/debug.lisp b/src/code/debug.lisp index 113ddf0..616b704 100644 --- a/src/code/debug.lisp +++ b/src/code/debug.lisp @@ -1477,7 +1477,16 @@ See the CMU Common Lisp User's Manual for more information. (aref (or (di:debug-source-start-positions d-source) (error (intl:gettext "No start positions map."))) local-tlf-offset)) - (name (di:debug-source-name d-source))) + (name (di:debug-source-name d-source)) + ;; See ticket:70. Bind *d-p-d* to a unix host so we can + ;; parse logical pathnames and search-lists that might be + ;; stored in the source name. There is an issue if the name + ;; is a logical pathname and the host isn't defined. This + ;; will be interpreted as a search-list (undefined), but we + ;; won't error out. This will be a problem if we try to + ;; define the logical host with the same name later. + (*default-pathname-defaults* + (make-pathname :host lisp::*unix-host*))) (unless (eq d-source *cached-debug-source*) (unless (and *cached-source-stream* (equal (pathname *cached-source-stream*) ----------------------------------------------------------------------- Summary of changes: src/code/debug.lisp | 11 ++++++++++- 1 files changed, 10 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-14-gb0ccde2
by Raymond Toy 23 Jan '13

23 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via b0ccde2c145b43466d9a34421f4f4fe2907a02c9 (commit) from 962b9c7de2f2019ee10aff49f28c6d2063d4f401 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit b0ccde2c145b43466d9a34421f4f4fe2907a02c9 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jan 22 20:43:03 2013 -0800 Forgot to update this when alien-callback.lisp was added. diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot index 07711d1..de06c81 100644 --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -2004,6 +2004,62 @@ msgstr "" msgid "Can't use :out or :in-out on pointer-like type:~% ~S" msgstr "" +#: src/code/alien-callback.lisp +msgid "Vector of all callbacks." +msgstr "" + +#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp +#: src/code/debug-int.lisp src/code/debug-info.lisp +#: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp +#: src/code/hash-new.lisp src/code/array.lisp src/code/alien-callback.lisp +msgid "~S is not an array with a fill-pointer." +msgstr "" + +#: src/code/alien-callback.lisp +msgid "Unable to mprotect ~S bytes (~S) at ~S (~S). Callbacks may not work." +msgstr "" + +#: src/code/alien-callback.lisp +msgid "Return the trampoline pointer for the callback NAME." +msgstr "" + +#: src/code/alien-callback.lisp +msgid "" +"~\n" +"Attempt to redefine callback with incompatible return type.\n" +" Old type was: ~A \n" +" New type is: ~A" +msgstr "" + +#: src/code/alien-callback.lisp +msgid "~\n" +"Create new trampoline (old trampoline calls old lisp function)." +msgstr "" + +#: src/code/alien-callback.lisp +msgid "Unsupported argument type: ~A" +msgstr "" + +#: src/code/alien-callback.lisp +msgid "Unsupported return type: ~A" +msgstr "" + +#: src/code/alien-callback.lisp +msgid "" +"(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n" +" {doc-string} {decls}* {FORM}*)\n" +"\n" +"Define a function which can be called by foreign code. The pointer\n" +"returned by (callback NAME), when called by foreign code, invokes the\n" +"lisp function. The lisp function expects alien arguments of the\n" +"specified ARG-TYPEs and returns an alien of type RETURN-TYPE.\n" +"\n" +"If (callback NAME) is already a callback function pointer, its value\n" +"is not changed (though it's arranged that an updated version of the\n" +"lisp callback function will be called). This feature allows for\n" +"incremental redefinition of callback functions." +msgstr "" + #: src/code/sap.lisp msgid "Return T iff the SAP X points to a smaller address then the SAP Y." msgstr "" @@ -2445,13 +2501,6 @@ msgstr "" msgid "Returns the Fill-Pointer of the given Vector." msgstr "" -#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp -#: src/code/debug-int.lisp src/code/debug-info.lisp -#: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp -#: src/code/hash-new.lisp src/code/array.lisp -msgid "~S is not an array with a fill-pointer." -msgstr "" - #: src/code/array.lisp msgid "New fill pointer, ~S, is larger than the length of the vector." msgstr "" ----------------------------------------------------------------------- Summary of changes: src/i18n/locale/cmucl.pot | 63 ++++++++++++++++++++++++++++++++++++++++----- 1 files changed, 56 insertions(+), 7 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-13-g962b9c7
by Raymond Toy 23 Jan '13

23 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 962b9c7de2f2019ee10aff49f28c6d2063d4f401 (commit) from 6354120928e97ca271298bdd8e32083718b94d7e (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 962b9c7de2f2019ee10aff49f28c6d2063d4f401 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jan 22 20:41:56 2013 -0800 Fix up the file names in the file-comment. diff --git a/src/code/alien-callback.lisp b/src/code/alien-callback.lisp index b6e73be..d5e1395 100644 --- a/src/code/alien-callback.lisp +++ b/src/code/alien-callback.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: src/code/alieneval.lisp $") + "$Header: src/code/alien-callback.lisp $") ;;; ;;; ********************************************************************** ;;; diff --git a/src/compiler/ppc/c-callback.lisp b/src/compiler/ppc/c-callback.lisp index 2ebd6f4..928de09 100644 --- a/src/compiler/ppc/c-callback.lisp +++ b/src/compiler/ppc/c-callback.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: src/compiler/ppc/c-call.lisp $") + "$Header: src/compiler/ppc/c-callback.lisp $") ;;; ;;; ********************************************************************** ;;; diff --git a/src/compiler/sparc/c-callback.lisp b/src/compiler/sparc/c-callback.lisp index ac97f9c..24bd7af 100644 --- a/src/compiler/sparc/c-callback.lisp +++ b/src/compiler/sparc/c-callback.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: src/compiler/sparc/c-call.lisp $") + "$Header: src/compiler/sparc/c-callback.lisp $") (in-package "SPARC") (intl:textdomain "cmucl-sparc-vm") diff --git a/src/compiler/x86/c-callback.lisp b/src/compiler/x86/c-callback.lisp index b9e27fc..cccc874 100644 --- a/src/compiler/x86/c-callback.lisp +++ b/src/compiler/x86/c-callback.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: src/compiler/x86/c-call.lisp $") + "$Header: src/compiler/x86/c-callback.lisp $") (in-package :x86) (use-package :alien) ----------------------------------------------------------------------- Summary of changes: src/code/alien-callback.lisp | 2 +- src/compiler/ppc/c-callback.lisp | 2 +- src/compiler/sparc/c-callback.lisp | 2 +- src/compiler/x86/c-callback.lisp | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-12-g6354120
by Raymond Toy 23 Jan '13

23 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 6354120928e97ca271298bdd8e32083718b94d7e (commit) from 83bab7fa23d38db6886680a7f19dc19a688514b2 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 6354120928e97ca271298bdd8e32083718b94d7e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jan 22 19:55:56 2013 -0800 Update due to new docstring for rename-file. diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot index 2d3c5ad..07711d1 100644 --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -2004,62 +2004,6 @@ msgstr "" msgid "Can't use :out or :in-out on pointer-like type:~% ~S" msgstr "" -#: src/code/alien-callback.lisp -msgid "Vector of all callbacks." -msgstr "" - -#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp -#: src/code/debug-int.lisp src/code/debug-info.lisp -#: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp -#: src/code/hash-new.lisp src/code/array.lisp src/code/alien-callback.lisp -msgid "~S is not an array with a fill-pointer." -msgstr "" - -#: src/code/alien-callback.lisp -msgid "Unable to mprotect ~S bytes (~S) at ~S (~S). Callbacks may not work." -msgstr "" - -#: src/code/alien-callback.lisp -msgid "Return the trampoline pointer for the callback NAME." -msgstr "" - -#: src/code/alien-callback.lisp -msgid "" -"~\n" -"Attempt to redefine callback with incompatible return type.\n" -" Old type was: ~A \n" -" New type is: ~A" -msgstr "" - -#: src/code/alien-callback.lisp -msgid "~\n" -"Create new trampoline (old trampoline calls old lisp function)." -msgstr "" - -#: src/code/alien-callback.lisp -msgid "Unsupported argument type: ~A" -msgstr "" - -#: src/code/alien-callback.lisp -msgid "Unsupported return type: ~A" -msgstr "" - -#: src/code/alien-callback.lisp -msgid "" -"(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n" -" {doc-string} {decls}* {FORM}*)\n" -"\n" -"Define a function which can be called by foreign code. The pointer\n" -"returned by (callback NAME), when called by foreign code, invokes the\n" -"lisp function. The lisp function expects alien arguments of the\n" -"specified ARG-TYPEs and returns an alien of type RETURN-TYPE.\n" -"\n" -"If (callback NAME) is already a callback function pointer, its value\n" -"is not changed (though it's arranged that an updated version of the\n" -"lisp callback function will be called). This feature allows for\n" -"incremental redefinition of callback functions." -msgstr "" - #: src/code/sap.lisp msgid "Return T iff the SAP X points to a smaller address then the SAP Y." msgstr "" @@ -2501,6 +2445,13 @@ msgstr "" msgid "Returns the Fill-Pointer of the given Vector." msgstr "" +#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp +#: src/code/debug-int.lisp src/code/debug-info.lisp +#: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp +#: src/code/hash-new.lisp src/code/array.lisp +msgid "~S is not an array with a fill-pointer." +msgstr "" + #: src/code/array.lisp msgid "New fill pointer, ~S, is larger than the length of the vector." msgstr "" @@ -9907,8 +9858,13 @@ msgstr "" #: src/code/filesys.lisp msgid "" -"Rename File to have the specified New-Name. If file is a stream open to a\n" -" file, then the associated file is renamed." +"Rename File to have the specified New-Name. If file is a stream\n" +" open to a file, then the associated file is renamed.\n" +"\n" +" Three values are returned if successful: the defaulted new name\n" +" composed of New-Name with missing components filled in from File;\n" +" the truename of File before it was renamed; the new truename of the\n" +" File after it was renamed." msgstr "" #: src/code/filesys.lisp ----------------------------------------------------------------------- Summary of changes: src/i18n/locale/cmucl.pot | 72 +++++++++------------------------------------ 1 files changed, 14 insertions(+), 58 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-11-g83bab7f
by Raymond Toy 18 Jan '13

18 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 83bab7fa23d38db6886680a7f19dc19a688514b2 (commit) from 180783f6ab79beca64ea3ae11a946f9dabf3c141 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 83bab7fa23d38db6886680a7f19dc19a688514b2 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Jan 17 20:02:24 2013 -0800 Document the return values for RENAME-FILE. diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp index 308b8b5..9d224df 100644 --- a/src/code/filesys.lisp +++ b/src/code/filesys.lisp @@ -938,8 +938,13 @@ ;;; Rename-File -- Public ;;; (defun rename-file (file new-name) - "Rename File to have the specified New-Name. If file is a stream open to a - file, then the associated file is renamed." + "Rename File to have the specified New-Name. If file is a stream + open to a file, then the associated file is renamed. + + Three values are returned if successful: the defaulted new name + composed of New-Name with missing components filled in from File; + the truename of File before it was renamed; the new truename of the + File after it was renamed." (let* ((original (truename file)) (original-namestring (unix-namestring original t)) (new-name (merge-pathnames new-name file)) ----------------------------------------------------------------------- Summary of changes: src/code/filesys.lisp | 9 +++++++-- 1 files changed, 7 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-10-g180783f
by Raymond Toy 17 Jan '13

17 Jan '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 180783f6ab79beca64ea3ae11a946f9dabf3c141 (commit) from 7eea77dfeb313add92ed741aad47e6fbe714220c (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 180783f6ab79beca64ea3ae11a946f9dabf3c141 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 16 21:00:58 2013 -0800 Update from commit logs. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 585d8a0..12d7e02 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -45,10 +45,13 @@ New in this release: * Ticket #66 fixed. * Ticket #67 fixed. * Ticket #68 fixed. + * Ticket #69 fixed. * Other changes: * -8 option for build-all.sh is deprecated since we don't officially support 8-bit builds anymore. + * Some small updates to the User Manual and CMU Internals + documents to generate pdf files by default. * Improvements to the PCL implementation of CLOS: ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20e.txt | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0