common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

0.9.18.39:

Browse source 
ASDF update: better SBCL_HOME handling.
This commit is contained in:
Christophe Rhodes 2006-11-07 10:51:39 +00:00
parent 4f8f4b25cb
commit d43f45c63d
2 changed files with 18 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
contrib/asdf/asdf.lisp
View file

@ -1,4 +1,4 @@
;;; This is asdf: Another System Definition Facility. 1.101
;;; This is asdf: Another System Definition Facility. 1.102
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
@ -112,7 +112,7 @@
(in-package #:asdf)
(defvar *asdf-revision* (let* ((v "1.101")
(defvar *asdf-revision* (let* ((v "1.102")
(colon (or (position #\: v) -1))
(dot (position #\. v)))
(and v colon dot
@ -1190,20 +1190,23 @@ output to *VERBOSE-OUT*. Returns the shell's exit code."
t))))
(defun contrib-sysdef-search (system)
(let* ((name (coerce-name system))
(home (truename (sb-ext:posix-getenv "SBCL_HOME")))
(contrib (merge-pathnames
(make-pathname :directory `(:relative ,name)
:name name
:type "asd"
:case :local
:version :newest)
home)))
(probe-file contrib)))
(let ((home (sb-ext:posix-getenv "SBCL_HOME")))
(when home
(let* ((name (coerce-name system))
(home (truename home))
(contrib (merge-pathnames
(make-pathname :directory `(:relative ,name)
:name name
:type "asd"
:case :local
:version :newest)
home)))
(probe-file contrib)))))
(pushnew
'(merge-pathnames "site-systems/"
(truename (sb-ext:posix-getenv "SBCL_HOME")))
'(let ((home (sb-ext:posix-getenv "SBCL_HOME")))
(when home
(merge-pathnames "site-systems/" (truename home))))
*central-registry*)
(pushnew

2
version.lisp-expr
View file

@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
"0.9.18.38"
"0.9.18.39"