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

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-10-6-g02fc6d0
by Raymond Toy 17 Nov '12

17 Nov '12

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 02fc6d02d6973e4061729bf9308beca23baaff2a (commit) via aea837c3d4eca85769bd7f36354e3805562b77f6 (commit) via fb7d530d163e6c0e67c65778c393f312e51911cf (commit) from b68a4febd5e79735e2114d86dd88ffc4c3f018ed (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 02fc6d02d6973e4061729bf9308beca23baaff2a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Nov 17 14:37:12 2012 -0800 o Update to asdf 2.26 o Add release-20e.txt. diff --git a/src/contrib/asdf/asdf.lisp b/src/contrib/asdf/asdf.lisp index 13061c3..283ad86 100644 --- a/src/contrib/asdf/asdf.lisp +++ b/src/contrib/asdf/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- -;;; This is ASDF 2.25: Another System Definition Facility. +;;; This is ASDF 2.26: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel(a)common-lisp.net>. @@ -118,7 +118,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.25") + (asdf-version "2.26") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -230,7 +230,6 @@ :redefined-functions ',redefined-functions))) (pkgdcl :asdf - :nicknames (:asdf-utilities) ;; DEPRECATED! Do not use, for backward compatibility only. :use (:common-lisp) :redefined-functions (#:perform #:explain #:output-files #:operation-done-p @@ -3350,6 +3349,15 @@ located." (defun* getenv-absolute-directories (x) (getenv-pathnames x :want-absolute t :want-directory t)) +(defun* get-folder-path (folder) + (or ;; this semi-portably implements a subset of the functionality of lispworks' sys:get-folder-path + #+(and lispworks mswindows) (sys:get-folder-path folder) + ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData + (ecase folder + (:local-appdata (getenv-absolute-directory "LOCALAPPDATA")) + (:appdata (getenv-absolute-directory "APPDATA")) + (:common-appdata (or (getenv-absolute-directory "ALLUSERSAPPDATA") + (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")))))) (defun* user-configuration-directories () (let ((dirs @@ -3359,15 +3367,8 @@ located." (loop :for dir :in (getenv-absolute-directories "XDG_CONFIG_DIRS") :collect (subpathname* dir "common-lisp/")))) ,@(when (os-windows-p) - `(,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :local-appdata) - (getenv-absolute-directory "LOCALAPPDATA")) - "common-lisp/config/") - ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData - ,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :appdata) - (getenv-absolute-directory "APPDATA")) - "common-lisp/config/"))) + `(,(subpathname* (get-folder-path :local-appdata) "common-lisp/config/") + ,(subpathname* (get-folder-path :appdata) "common-lisp/config/"))) ,(subpathname (user-homedir) ".config/common-lisp/")))) (remove-duplicates (remove-if-not #'absolute-pathname-p dirs) :from-end t :test 'equal))) @@ -3378,11 +3379,7 @@ located." ((os-windows-p) (aif ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common AppData - (subpathname* (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :common-appdata) - (getenv-absolute-directory "ALLUSERSAPPDATA") - (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")) - "common-lisp/config/") + (subpathname* (get-folder-path :common-appdata) "common-lisp/config/") (list it))))) (defun* in-first-directory (dirs x &key (direction :input)) @@ -3507,12 +3504,8 @@ and the order is by decreasing length of namestring of the source pathname.") (or (try (getenv-absolute-directory "XDG_CACHE_HOME") "common-lisp" :implementation) (when (os-windows-p) - (try (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :local-appdata) - (getenv-absolute-directory "LOCALAPPDATA") - #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :appdata) - (getenv-absolute-directory "APPDATA")) + (try (or (get-folder-path :local-appdata) + (get-folder-path :appdata)) "common-lisp" "cache" :implementation)) '(:home ".cache" "common-lisp" :implementation)))) @@ -3917,11 +3910,12 @@ effectively disabling the output translation facility." (if (absolute-pathname-p output-file) ;; what cfp should be doing, w/ mp* instead of mp (let* ((type (pathname-type (apply 'compile-file-pathname "x.lisp" keys))) - (defaults (make-pathname - :type type :defaults (merge-pathnames* input-file)))) - (merge-pathnames* output-file defaults)) + (defaults (make-pathname + :type type :defaults (merge-pathnames* input-file)))) + (merge-pathnames* output-file defaults)) (apply-output-translations - (apply 'compile-file-pathname input-file keys)))) + (apply 'compile-file-pathname input-file + (if output-file keys (remove-keyword :output-file keys)))))) (defun* tmpize-pathname (x) (make-pathname @@ -4234,6 +4228,7 @@ with a different configuration, so the configuration would be re-read then." (defun* wrapping-source-registry () `(:source-registry + #+ecl (:tree ,(translate-logical-pathname "SYS:")) #+mkcl (:tree ,(translate-logical-pathname "CONTRIB:")) #+sbcl (:tree ,(truenamize (getenv-pathname "SBCL_HOME" :want-directory t))) :inherit-configuration @@ -4250,16 +4245,7 @@ with a different configuration, so the configuration would be re-read then." ,@(or (getenv-absolute-directories "XDG_DATA_DIRS") '("/usr/local/share" "/usr/share")))) ,@(when (os-windows-p) - `(,(or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :local-appdata) - (getenv-absolute-directory "LOCALAPPDATA")) - ,(or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :appdata) - (getenv-absolute-directory "APPDATA")) - ,(or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :common-appdata) - (getenv-absolute-directory "ALLUSERSAPPDATA") - (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/"))))) + (mapcar 'get-folder-path '(:local-appdata :appdata :common-appdata)))) :collect `(:directory ,(subpathname* dir "common-lisp/systems/")) :collect `(:tree ,(subpathname* dir "common-lisp/source/"))) :inherit-configuration)) diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt new file mode 100644 index 0000000..52eee31 --- /dev/null +++ b/src/general-info/release-20e.txt @@ -0,0 +1,48 @@ +========================== C M U C L 20 e ============================= + +[In Progress] + +The CMUCL project is pleased to announce the release of CMUCL 20e. +This is a major release which contains numerous enhancements and +bug fixes from the 20c release. + +CMUCL is a free, high performance implementation of the Common Lisp +programming language which runs on most major Unix platforms. It +mainly conforms to the ANSI Common Lisp standard. CMUCL provides a +sophisticated native code compiler; a powerful foreign function +interface; an implementation of CLOS, the Common Lisp Object System, +which includes multi-methods and a meta-object protocol; a source-level +debugger and code profiler; and an Emacs-like editor implemented in +Common Lisp. CMUCL is maintained by a team of volunteers collaborating +over the Internet, and is mostly in the public domain. + +New in this release: + + * Known issues: + + * Feature enhancements + + * Changes + * ASDF2 updated to version 2.26. + + * ANSI compliance fixes: + + * Bugfixes: + + * Trac Tickets: + + * Other changes: + + * Improvements to the PCL implementation of CLOS: + + * Changes to building procedure: + +This release is not binary compatible with code compiled using CMUCL +20d; you will need to recompile FASL files. + +See <URL:http://www.cmucl.org> or +<URL:http://trac.common-lisp.net/cmucl> for download information, +guidelines on reporting bugs, and mailing list details. + + +We hope you enjoy using this release of CMUCL! commit aea837c3d4eca85769bd7f36354e3805562b77f6 Merge: fb7d530 b68a4fe Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Oct 28 08:18:05 2012 -0700 Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl commit fb7d530d163e6c0e67c65778c393f312e51911cf Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Oct 10 22:36:53 2012 -0700 Update asdf to version 2.25. diff --git a/src/contrib/asdf/asdf.lisp b/src/contrib/asdf/asdf.lisp index a97632d..13061c3 100644 --- a/src/contrib/asdf/asdf.lisp +++ b/src/contrib/asdf/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- -;;; This is ASDF 2.24: Another System Definition Facility. +;;; This is ASDF 2.25: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel(a)common-lisp.net>. @@ -118,7 +118,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.24") + (asdf-version "2.25") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -364,9 +364,10 @@ #:user-source-registry-directory #:system-source-registry-directory - ;; Utilities + ;; Utilities: please use asdf-utils instead + #| ;; #:aif #:it - #:appendf #:orf + ;; #:appendf #:orf #:length=n-p #:remove-keys #:remove-keyword #:first-char #:last-char #:string-suffix-p @@ -389,7 +390,7 @@ #:while-collecting #:*wild* #:*wild-file* #:*wild-directory* #:*wild-inferiors* #:*wild-path* #:wilden - #:directorize-pathname-host-device + #:directorize-pathname-host-device|# ))) #+genera (import 'scl:boolean :asdf) (setf *asdf-version* asdf-version @@ -462,6 +463,7 @@ or ASDF:LOAD-SOURCE-OP if your fasl loading is somehow broken.") (progn (deftype logical-pathname () nil) (defun make-broadcast-stream () *error-output*) + (defun translate-logical-pathname (x) x) (defun file-namestring (p) (setf p (pathname p)) (format nil "~@[~A~]~@[.~A~]" (pathname-name p) (pathname-type p)))) @@ -3321,8 +3323,9 @@ located." (defun* user-homedir () (truenamize (pathname-directory-pathname + #+cormanlisp (ensure-directory-pathname (user-homedir-pathname)) #+mcl (current-user-homedir-pathname) - #-mcl (user-homedir-pathname)))) + #-(or cormanlisp mcl) (user-homedir-pathname)))) (defun* ensure-pathname* (x want-absolute want-directory fmt &rest args) (when (plusp (length x)) @@ -3356,11 +3359,13 @@ located." (loop :for dir :in (getenv-absolute-directories "XDG_CONFIG_DIRS") :collect (subpathname* dir "common-lisp/")))) ,@(when (os-windows-p) - `(,(subpathname* (or #+lispworks (sys:get-folder-path :local-appdata) + `(,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :local-appdata) (getenv-absolute-directory "LOCALAPPDATA")) "common-lisp/config/") ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData - ,(subpathname* (or #+lispworks (sys:get-folder-path :appdata) + ,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :appdata) (getenv-absolute-directory "APPDATA")) "common-lisp/config/"))) ,(subpathname (user-homedir) ".config/common-lisp/")))) @@ -3373,7 +3378,8 @@ located." ((os-windows-p) (aif ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common AppData - (subpathname* (or #+lispworks (sys:get-folder-path :common-appdata) + (subpathname* (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :common-appdata) (getenv-absolute-directory "ALLUSERSAPPDATA") (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")) "common-lisp/config/") @@ -3501,9 +3507,11 @@ and the order is by decreasing length of namestring of the source pathname.") (or (try (getenv-absolute-directory "XDG_CACHE_HOME") "common-lisp" :implementation) (when (os-windows-p) - (try (or #+lispworks (sys:get-folder-path :local-appdata) + (try (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :local-appdata) (getenv-absolute-directory "LOCALAPPDATA") - #+lispworks (sys:get-folder-path :appdata) + #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :appdata) (getenv-absolute-directory "APPDATA")) "common-lisp" "cache" :implementation)) '(:home ".cache" "common-lisp" :implementation)))) @@ -4242,11 +4250,14 @@ with a different configuration, so the configuration would be re-read then." ,@(or (getenv-absolute-directories "XDG_DATA_DIRS") '("/usr/local/share" "/usr/share")))) ,@(when (os-windows-p) - `(,(or #+lispworks (sys:get-folder-path :local-appdata) + `(,(or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :local-appdata) (getenv-absolute-directory "LOCALAPPDATA")) - ,(or #+lispworks (sys:get-folder-path :appdata) + ,(or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :appdata) (getenv-absolute-directory "APPDATA")) - ,(or #+lispworks (sys:get-folder-path :common-appdata) + ,(or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :common-appdata) (getenv-absolute-directory "ALLUSERSAPPDATA") (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/"))))) :collect `(:directory ,(subpathname* dir "common-lisp/systems/")) diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index a17c0da..829085c 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -30,7 +30,7 @@ New in this release: * Added external format for EUC-KR. * Changes - * ASDF2 updated to version 2.24. + * ASDF2 updated to version 2.25. * Behavior of STRING-TO-OCTETS has changed. This is an incompatible change from the previous version but should be more useful when a buffer is given which is not large enough to hold ----------------------------------------------------------------------- Summary of changes: src/contrib/asdf/asdf.lisp | 63 ++++++++++++++++++-------------------- src/general-info/release-20d.txt | 2 +- src/general-info/release-20e.txt | 48 +++++++++++++++++++++++++++++ 3 files changed, 79 insertions(+), 34 deletions(-) create mode 100644 src/general-info/release-20e.txt hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp annotated tag 20d created. 20d
by Raymond Toy 27 Oct '12

27 Oct '12

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 annotated tag, 20d has been created at c58f185871ef96393b1ab6dc4d07bc7e5e4ca602 (tag) tagging a48f47b65118a12f9c40b899d8b20ee93da55a83 (commit) replaces snapshot-2012-10 tagged by Raymond Toy on Sat Oct 27 09:17:31 2012 -0700 - Log ----------------------------------------------------------------- CMUCL Release 20d -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (Darwin) iEYEABECAAYFAlCMCSQACgkQBs44GQhsdQtR8QCbBDwVEyNmBrVZ6lZD2gppZsoI JLEAn1ZvX0i1aX9pnM8KT2l8WR2AVUSM =tFNN -----END PGP SIGNATURE----- Raymond Toy (6): Update pot and po files from current code. Update pot and po files for sparc. Update. * src/compiler/byte-comp.lisp Check the git hash for a release tag too. Oops. expr should not have a "^" character in the regexp. (Sparc ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp annotated tag 20d deleted. snapshot-2012-10-3-gb68a4fe
by Raymond Toy 27 Oct '12

27 Oct '12

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 annotated tag, 20d has been deleted was 9e3b422adba3e2ed5f72824f06ca332864396c86 ----------------------------------------------------------------------- tag 20d CMUCL Release 20d -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (Darwin) iEYEABECAAYFAlCL/SgACgkQBs44GQhsdQtXZgCeIroVy8D/8CjbwOc3+gb2yk8h v4oAn0HzF/ZGsd3cPg9E1XFPUr4cGhRD =5loE -----END PGP SIGNATURE----- b68a4febd5e79735e2114d86dd88ffc4c3f018ed Update. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp annotated tag 20d created. 20d
by Raymond Toy 27 Oct '12

27 Oct '12

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 annotated tag, 20d has been created at 9e3b422adba3e2ed5f72824f06ca332864396c86 (tag) tagging b68a4febd5e79735e2114d86dd88ffc4c3f018ed (commit) replaces snapshot-2012-10 tagged by Raymond Toy on Sat Oct 27 08:26:21 2012 -0700 - Log ----------------------------------------------------------------- CMUCL Release 20d -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (Darwin) iEYEABECAAYFAlCL/SgACgkQBs44GQhsdQtXZgCeIroVy8D/8CjbwOc3+gb2yk8h v4oAn0HzF/ZGsd3cPg9E1XFPUr4cGhRD =5loE -----END PGP SIGNATURE----- Raymond Toy (3): Update pot and po files from current code. Update pot and po files for sparc. Update. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-10-3-gb68a4fe
by Raymond Toy 27 Oct '12

27 Oct '12

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 b68a4febd5e79735e2114d86dd88ffc4c3f018ed (commit) from 006b757ffeee604daf1e759b3efa29f0a3e00047 (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 b68a4febd5e79735e2114d86dd88ffc4c3f018ed Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Oct 26 22:46:29 2012 -0700 Update. diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index a17c0da..6cfb978 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -1,7 +1,5 @@ ========================== C M U C L 20 d ============================= -[Not yet released] - The CMUCL project is pleased to announce the release of CMUCL 20d. This is a major release which contains numerous enhancements and bug fixes from the 20c release. @@ -37,8 +35,8 @@ New in this release: all the octets for the given string. See docstring for more details. * The PowerPC port of CMUCL on Darwin (Mac OS X) has been revived - and is up-to-date. It will run on OSX 10.4 and 10.5. However, - only the Unicode build is supported. + and is roughly up-to-date. It will run on OSX 10.4 and 10.5. + However, only the Unicode build is supported. * Updated to Unicode 6.1.0. * Many additional aliases for external formats added that match the glibc iconv aliases. ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20d.txt | 6 ++---- 1 files changed, 2 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-10-2-g006b757
by Raymond Toy 27 Oct '12

27 Oct '12

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 006b757ffeee604daf1e759b3efa29f0a3e00047 (commit) via 1f322cbfa7d1d07c21c5c668da62aa17709d7bff (commit) from 8391b8b06135973c176df7049f4f9bff3f926c00 (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 006b757ffeee604daf1e759b3efa29f0a3e00047 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Oct 26 22:24:09 2012 -0700 Update pot and po files for sparc. diff --git a/src/i18n/locale/cmucl-sparc-vm.pot b/src/i18n/locale/cmucl-sparc-vm.pot index 77c892b..5117276 100644 --- a/src/i18n/locale/cmucl-sparc-vm.pot +++ b/src/i18n/locale/cmucl-sparc-vm.pot @@ -633,6 +633,12 @@ msgid "" "result is the first value." msgstr "" +#: src/compiler/sparc/system.lisp +msgid "" +"Returns the primary value of BODY as the primary value, and the\n" +" number of CPU cycles elapsed as secondary value." +msgstr "" + #: src/compiler/sparc/char.lisp msgid "character untagging" msgstr "" diff --git a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-sparc-vm.po b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-sparc-vm.po index 292db31..d5f0c63 100644 --- a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-sparc-vm.po +++ b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-sparc-vm.po @@ -10,10 +10,10 @@ msgstr "" "PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n" "Last-Translator: Automatic translation\n" "Language-Team: Pig Latin (auto-translated)\n" -"Language: Pig Latin\n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" +"Language: Pig Latin\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" #: src/code/sparc-svr4-vm.lisp @@ -699,6 +699,12 @@ msgstr "" "integersway. Ethay owlay 32-itbay\n" "esultray isway ethay irstfay aluevay." +#: src/compiler/sparc/system.lisp +msgid "" +"Returns the primary value of BODY as the primary value, and the\n" +" number of CPU cycles elapsed as secondary value." +msgstr "" + #: src/compiler/sparc/char.lisp msgid "character untagging" msgstr "aracterchay untaggingway" diff --git a/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po index 3e56861..4d81978 100644 --- a/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po +++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po @@ -10,10 +10,10 @@ msgstr "" "PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n" "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" "Language-Team: LANGUAGE <LL(a)li.org>\n" -"Language: \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" +"Language: \n" #: src/code/sparc-svr4-vm.lisp msgid "Returns a string describing the type of the local machine." @@ -634,6 +634,12 @@ msgid "" "result is the first value." msgstr "" +#: src/compiler/sparc/system.lisp +msgid "" +"Returns the primary value of BODY as the primary value, and the\n" +" number of CPU cycles elapsed as secondary value." +msgstr "" + #: src/compiler/sparc/char.lisp msgid "character untagging" msgstr "" commit 1f322cbfa7d1d07c21c5c668da62aa17709d7bff Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Oct 26 21:04:02 2012 -0700 Update pot and po files from current code. diff --git a/src/i18n/locale/cmucl-x86-vm.pot b/src/i18n/locale/cmucl-x86-vm.pot index ba570d9..4ecc409 100644 --- a/src/i18n/locale/cmucl-x86-vm.pot +++ b/src/i18n/locale/cmucl-x86-vm.pot @@ -238,6 +238,12 @@ msgstr "" msgid "word integer argument move" msgstr "" +#: src/compiler/x86/system.lisp +msgid "" +"Returns the primary value of BODY as the primary value, and the\n" +" number of CPU cycles elapsed as secondary value." +msgstr "" + #: src/compiler/x86/char.lisp msgid "character untagging" msgstr "" diff --git a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po index c7e270c..97fbc18 100644 --- a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po +++ b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po @@ -319,6 +319,12 @@ msgstr "ordway integerway ovemay" msgid "word integer argument move" msgstr "ordway integerway argumentway ovemay" +#: src/compiler/x86/system.lisp +msgid "" +"Returns the primary value of BODY as the primary value, and the\n" +" number of CPU cycles elapsed as secondary value." +msgstr "" + #: src/compiler/x86/char.lisp msgid "character untagging" msgstr "aracterchay untaggingway" diff --git a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po index d876a5d..8894cec 100644 --- a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po @@ -9665,7 +9665,8 @@ msgid " on " msgstr " onway " #: src/code/save.lisp -msgid "See <http://www.cons.org/cmucl/> for support information." +#, fuzzy +msgid "See <http://www.cmucl.org/> for support information." msgstr "" "Eesay <ttphay://wwway.onscay.orgway/muclcay/> orfay upportsay informationway." @@ -14380,6 +14381,7 @@ msgid "Bad FASL file format." msgstr "Adbay FASL ilefay ormatfay." #: src/code/load.lisp +#, fuzzy msgid "" "Loads the file named by Filename into the Lisp environment. The file type\n" " (a.k.a extension) is defaulted if missing. These options are defined:\n" @@ -14411,6 +14413,10 @@ msgid "" " defaulting. Probably only necessary if you have source files with a\n" " \"fasl\" type. \n" "\n" +" :EXTERNAL-FORMAT\n" +" The external-format to use when opening the FILENAME. The default is\n" +" :default which uses the EXT:*DEFAULT-EXTERNAL-FORMAT*.\n" +"\n" " The variables *LOAD-VERBOSE*, *LOAD-PRINT* and EXT:*LOAD-IF-SOURCE-" "NEWER*\n" " determine the defaults for the corresponding keyword arguments. These\n" @@ -30010,6 +30016,22 @@ msgstr "" "aracterchay andway illegalway outputsway areway eplacedray ybay away " "estionquay arkmay." +#, fuzzy +msgid "" +"EUC-KR is an variable-length character encoding generally intended for\n" +"Korean Hangul.\n" +"\n" +"By default, illegal inputs are replaced by the Unicode replacement\n" +"character and illegal outputs are replaced by a question mark." +msgstr "" +"ISO8859-8 isway anway 8-itbay aracterchay encodingway intendedway orfay " +"Ebrewhay.\n" +"\n" +"Ybay efaultday, illegalway inputsway areway eplacedray ybay ethay Unicodeway " +"eplacementray\n" +"aracterchay andway illegalway outputsway areway eplacedray ybay away " +"estionquay arkmay." + msgid "" "ISO8859-2 is an 8-bit character encoding generally intended for\n" "Eastern European languages including Bosnian, Croation, Czech, German,\n" diff --git a/src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po index 1e2eb07..e582b28 100644 --- a/src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po +++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po @@ -238,6 +238,12 @@ msgstr "" msgid "word integer argument move" msgstr "" +#: src/compiler/x86/system.lisp +msgid "" +"Returns the primary value of BODY as the primary value, and the\n" +" number of CPU cycles elapsed as secondary value." +msgstr "" + #: src/compiler/x86/char.lisp msgid "character untagging" msgstr "" diff --git a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po index db37457..0d60a05 100644 --- a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po @@ -6716,7 +6716,7 @@ msgid " on " msgstr "" #: src/code/save.lisp -msgid "See <http://www.cons.org/cmucl/> for support information." +msgid "See <http://www.cmucl.org/> for support information." msgstr "" #: src/code/save.lisp @@ -10156,6 +10156,10 @@ msgid "" " defaulting. Probably only necessary if you have source files with a\n" " \"fasl\" type. \n" "\n" +" :EXTERNAL-FORMAT\n" +" The external-format to use when opening the FILENAME. The default is\n" +" :default which uses the EXT:*DEFAULT-EXTERNAL-FORMAT*.\n" +"\n" " The variables *LOAD-VERBOSE*, *LOAD-PRINT* and EXT:*LOAD-IF-SOURCE-" "NEWER*\n" " determine the defaults for the corresponding keyword arguments. These\n" @@ -21089,6 +21093,14 @@ msgid "" msgstr "" msgid "" +"EUC-KR is an variable-length character encoding generally intended for\n" +"Korean Hangul.\n" +"\n" +"By default, illegal inputs are replaced by the Unicode replacement\n" +"character and illegal outputs are replaced by a question mark." +msgstr "" + +msgid "" "ISO8859-2 is an 8-bit character encoding generally intended for\n" "Eastern European languages including Bosnian, Croation, Czech, German,\n" "Hungarian, Polish, Romanian, Serbian Latin, Slovak, Slovene, Upper\n" ----------------------------------------------------------------------- Summary of changes: src/i18n/locale/cmucl-sparc-vm.pot | 6 +++++ src/i18n/locale/cmucl-x86-vm.pot | 6 +++++ .../en(a)piglatin/LC_MESSAGES/cmucl-sparc-vm.po | 8 +++++- .../locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po | 6 +++++ src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po | 24 +++++++++++++++++++- src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po | 8 +++++- src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po | 6 +++++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po | 14 ++++++++++- 8 files changed, 74 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp annotated tag snapshot-2012-10 created. snapshot-2012-10
by Raymond Toy 30 Sep '12

30 Sep '12

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 annotated tag, snapshot-2012-10 has been created at b22e0d9bcfec82dbe2047020cf76ef5d508af4d0 (tag) tagging 8391b8b06135973c176df7049f4f9bff3f926c00 (commit) replaces snapshot-2012-09 tagged by Raymond Toy on Sat Sep 29 22:31:45 2012 -0700 - Log ----------------------------------------------------------------- Snapshot 2012-10 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (Darwin) iEYEABECAAYFAlBn2UwACgkQJ5IjUmgZO7LBGgCeNRVyn2MufzcAYWYgWUfxg3RC IRQAoKp7wKGBvfvAyNxN82shZD+W2UzB =UIIv -----END PGP SIGNATURE----- Raymond Toy (7): Finish splitting out x86-validate into separate OS versions. Fix ticket:62: Needed an IN-PACKAGE. Output lisp strings in utf8 format in ldb print. Fix ticket:63. Update. Add WITH-CYCLE-COUNTER for x86, sparc, and ppc. Sparc and ppc Fix typo (missing closing paren). ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-09-7-g8391b8b
by Raymond Toy 26 Sep '12

26 Sep '12

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 8391b8b06135973c176df7049f4f9bff3f926c00 (commit) from 8d75583bb9d07f2103e49aa5795c1e9604b76a55 (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 8391b8b06135973c176df7049f4f9bff3f926c00 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Sep 26 09:54:58 2012 -0700 Fix typo (missing closing paren). diff --git a/src/compiler/ppc/system.lisp b/src/compiler/ppc/system.lisp index edeed9a..a807607 100644 --- a/src/compiler/ppc/system.lisp +++ b/src/compiler/ppc/system.lisp @@ -291,6 +291,6 @@ (read-cycle-counter) ;; Can't do anything about the notes about generic ;; arithmetic, so silence the notes.. - (declare (optimize (inhibit-warnings 3)) + (declare (optimize (inhibit-warnings 3))) (+ (ash (- ,hi1 ,hi0) 32) (- ,lo1 ,lo0))))))) diff --git a/src/compiler/sparc/system.lisp b/src/compiler/sparc/system.lisp index 2ba0b34..dba4b6d 100644 --- a/src/compiler/sparc/system.lisp +++ b/src/compiler/sparc/system.lisp @@ -299,6 +299,6 @@ result is the first value." (read-cycle-counter) ;; Can't do anything about the notes about generic ;; arithmetic, so silence the notes.. - (declare (optimize (inhibit-warnings 3)) + (declare (optimize (inhibit-warnings 3))) (+ (ash (- ,hi1 ,hi0) 32) (- ,lo1 ,lo0))))))) diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp index 9207b5b..93519d8 100644 --- a/src/compiler/x86/system.lisp +++ b/src/compiler/x86/system.lisp @@ -691,6 +691,6 @@ (read-cycle-counter) ;; Can't do anything about the notes about generic ;; arithmetic, so silence the notes.. - (declare (optimize (inhibit-warnings 3)) + (declare (optimize (inhibit-warnings 3))) (+ (ash (- ,hi1 ,hi0) 32) (- ,lo1 ,lo0))))))) ----------------------------------------------------------------------- Summary of changes: src/compiler/ppc/system.lisp | 2 +- src/compiler/sparc/system.lisp | 2 +- src/compiler/x86/system.lisp | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-09-6-g8d75583
by Raymond Toy 26 Sep '12

26 Sep '12

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 8d75583bb9d07f2103e49aa5795c1e9604b76a55 (commit) via f621914f1423e61c88b30583bd9056121b0c4139 (commit) from 3832e020b43c1270e0710097381fb718271e61bf (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 8d75583bb9d07f2103e49aa5795c1e9604b76a55 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 25 21:19:05 2012 -0700 Add WITH-CYCLE-COUNTER for x86, sparc, and ppc. Sparc and ppc versions are untested. diff --git a/src/compiler/ppc/system.lisp b/src/compiler/ppc/system.lisp index c3fe76a..edeed9a 100644 --- a/src/compiler/ppc/system.lisp +++ b/src/compiler/ppc/system.lisp @@ -275,3 +275,22 @@ (defun read-cycle-counter () (read-time-base)) + +(defmacro with-cycle-counter (&body body) + "Returns the primary value of BODY as the primary value, and the + number of tick cycles elapsed as secondary value. To get the number + of cycles, multiply by *cycles-per-tick*" + (let ((hi0 (gensym)) + (hi1 (gensym)) + (lo0 (gensym)) + (lo1 (gensym))) + `(multiple-value-bind (,lo0 ,hi0) + (read-cycle-counter) + (values (locally ,@body) + (multiple-value-bind (,lo1 ,hi1) + (read-cycle-counter) + ;; Can't do anything about the notes about generic + ;; arithmetic, so silence the notes.. + (declare (optimize (inhibit-warnings 3)) + (+ (ash (- ,hi1 ,hi0) 32) + (- ,lo1 ,lo0))))))) diff --git a/src/compiler/sparc/system.lisp b/src/compiler/sparc/system.lisp index f4f99f9..2ba0b34 100644 --- a/src/compiler/sparc/system.lisp +++ b/src/compiler/sparc/system.lisp @@ -284,3 +284,21 @@ 64-bit counter is returned as two 32-bit unsigned integers. The low 32-bit result is the first value." (read-cycle-counter)) + +(defmacro with-cycle-counter (&body body) + "Returns the primary value of BODY as the primary value, and the + number of CPU cycles elapsed as secondary value." + (let ((hi0 (gensym)) + (hi1 (gensym)) + (lo0 (gensym)) + (lo1 (gensym))) + `(multiple-value-bind (,lo0 ,hi0) + (read-cycle-counter) + (values (locally ,@body) + (multiple-value-bind (,lo1 ,hi1) + (read-cycle-counter) + ;; Can't do anything about the notes about generic + ;; arithmetic, so silence the notes.. + (declare (optimize (inhibit-warnings 3)) + (+ (ash (- ,hi1 ,hi0) 32) + (- ,lo1 ,lo0))))))) diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp index bb32332..9207b5b 100644 --- a/src/compiler/x86/system.lisp +++ b/src/compiler/x86/system.lisp @@ -562,7 +562,7 @@ (inst ret))) -;; the RDTSC instruction (present on Pentium processors and +;; The RDTSC instruction (present on Pentium processors and ;; successors) allows you to access the time-stamp counter, a 64-bit ;; model-specific register that counts executed cycles. The ;; instruction returns the low cycle count in EAX and high cycle count @@ -676,3 +676,21 @@ (defun cpuid (level) (declare (type (unsigned-byte 32) level)) (cpuid level)) + +(defmacro with-cycle-counter (&body body) + "Returns the primary value of BODY as the primary value, and the + number of CPU cycles elapsed as secondary value." + (let ((hi0 (gensym)) + (hi1 (gensym)) + (lo0 (gensym)) + (lo1 (gensym))) + `(multiple-value-bind (,lo0 ,hi0) + (read-cycle-counter) + (values (locally ,@body) + (multiple-value-bind (,lo1 ,hi1) + (read-cycle-counter) + ;; Can't do anything about the notes about generic + ;; arithmetic, so silence the notes.. + (declare (optimize (inhibit-warnings 3)) + (+ (ash (- ,hi1 ,hi0) 32) + (- ,lo1 ,lo0))))))) diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index c11c5ee..a17c0da 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -54,6 +54,8 @@ New in this release: * OSX 10.4 is no longer supported. * Micro optimizations for floats: 2*x -> x+x and x/2^n -> (2^(n))*x. + * Add VM::WITH-CYCLE-COUNTER to return the number of cycles elapsed + when executing the body, as measured by the CPU cycle/tick counter. * ANSI compliance fixes: * CMUCL was not printing pathnames like (make-pathname :directory commit f621914f1423e61c88b30583bd9056121b0c4139 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 25 21:15:51 2012 -0700 Update. diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index 827a741..c11c5ee 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -92,6 +92,8 @@ New in this release: compiling the file. * Minor build issue in CLM debugger interface due to USE-PACKAGE no longer having special compiler treatment. + * READ-CYCLE-COUNTER no longer destroys any live values in the EBX + and ECX registers. * Trac Tickets: * #50: Print/read error with make-pathname. ----------------------------------------------------------------------- Summary of changes: src/compiler/ppc/system.lisp | 19 +++++++++++++++++++ src/compiler/sparc/system.lisp | 18 ++++++++++++++++++ src/compiler/x86/system.lisp | 20 +++++++++++++++++++- src/general-info/release-20d.txt | 4 ++++ 4 files changed, 60 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-09-4-g3832e02
by Raymond Toy 26 Sep '12

26 Sep '12

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 3832e020b43c1270e0710097381fb718271e61bf (commit) from eb7aef5b50c77b2ada5ec883b446b18e18348012 (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 3832e020b43c1270e0710097381fb718271e61bf Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Sep 25 21:09:46 2012 -0700 Fix ticket:63. diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp index edd4aad..bb32332 100644 --- a/src/compiler/x86/system.lisp +++ b/src/compiler/x86/system.lisp @@ -1,4 +1,4 @@ -;;; -*- Mode: LISP; Syntax: Common-Lisp; Base: 10; Package: x86 -*- +4;;; -*- Mode: LISP; Syntax: Common-Lisp; Base: 10; Package: x86 -*- ;;; ;;; ********************************************************************** ;;; This code was written as part of the CMU Common Lisp project at @@ -598,11 +598,21 @@ (:result-types unsigned-num unsigned-num) (:temporary (:sc unsigned-reg :offset eax-offset :target lo) eax) (:temporary (:sc unsigned-reg :offset edx-offset :target hi) edx) + ;; CPUID writes to eax, ebx, ecx, and edx. We need temporaries for + ;; ebx and ecx so we don't destroy any live uses of ebx and ecx. + (:temporary (:sc unsigned-reg :offset ebx-offset + :from (:eval 0) :to (:result 1)) + ebx) + (:temporary (:sc unsigned-reg :offset ecx-offset + :from (:eval 0) :to (:result 2)) + ecx) + (:ignore ebx ecx) (:generator 1 - (inst cpuid) - (inst rdtsc) - (move hi edx) - (move lo eax))) + (inst mov eax 0) + (inst cpuid) + (inst rdtsc) + (move hi edx) + (move lo eax))) #+pentium (defun read-cycle-counter () ----------------------------------------------------------------------- Summary of changes: src/compiler/x86/system.lisp | 20 +++++++++++++++----- 1 files changed, 15 insertions(+), 5 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0