Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
4911f79a
Commit
4911f79a
authored
Nov 17, 2012
by
Raymond Toy
Browse files
o Update to asdf 2.26
o Add release-20e.txt.
parent
efd25968
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/contrib/asdf/asdf.lisp
View file @
4911f79a
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.2
5
: Another System Definition Facility.
;;; This is ASDF 2.2
6
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@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.2
5
"
)
(
asdf-version
"2.2
6
"
)
(
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
))
...
...
src/general-info/release-20e.txt
0 → 100644
View file @
4911f79a
========================== 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!
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment