[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2012-10-6-g02fc6d0
Raymond Toy
rtoy at common-lisp.net
Sat Nov 17 22:37:36 UTC 2012
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 at 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 at 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 at 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 at 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 at 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
More information about the cmucl-commit
mailing list