Commit 02fc6d02 authored by Raymond Toy's avatar Raymond Toy
Browse files

o Update to asdf 2.26

o Add release-20e.txt.
parent aea837c3
;;; -*- 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 <>.
......@@ -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)))
:nicknames (:asdf-utilities) ;; DEPRECATED! Do not use, for backward compatibility only.
:use (:common-lisp)
(#: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"))
;; 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"))
`(,(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."
;; 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/"))
(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.")
(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 '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)
......@@ -4234,6 +4228,7 @@ with a different configuration, so the configuration would be re-read then."
(defun* wrapping-source-registry ()
#+ecl (:tree ,(translate-logical-pathname "SYS:"))
#+mkcl (:tree ,(translate-logical-pathname "CONTRIB:"))
#+sbcl (:tree ,(truenamize (getenv-pathname "SBCL_HOME" :want-directory t)))
......@@ -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/")))
========================== 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:> or
<URL:> for download information,
guidelines on reporting bugs, and mailing list details.
We hope you enjoy using this release of CMUCL!
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment