[arch-commits] Commit in sbcl/trunk (PKGBUILD fix-source-path.lisp)
Juergen Hoetzel
juergen at archlinux.org
Wed Sep 9 19:39:09 UTC 2009
Date: Wednesday, September 9, 2009 @ 15:39:09
Author: juergen
Revision: 51577
Fix #13902: Invalid Source Path
Added:
sbcl/trunk/fix-source-path.lisp
Modified:
sbcl/trunk/PKGBUILD
----------------------+
PKGBUILD | 7 +++++--
fix-source-path.lisp | 22 ++++++++++++++++++++++
2 files changed, 27 insertions(+), 2 deletions(-)
Modified: PKGBUILD
===================================================================
--- PKGBUILD 2009-09-09 19:17:01 UTC (rev 51576)
+++ PKGBUILD 2009-09-09 19:39:09 UTC (rev 51577)
@@ -12,8 +12,8 @@
depends=('glibc')
provides=('common-lisp' 'cl-asdf')
makedepends=('sbcl' 'texinfo')
-source=("http://downloads.sourceforge.net/project/sbcl/sbcl/$pkgver/$pkgname-$pkgver-source.tar.bz2")
-md5sums=('a61fd099a72c2d3fa10a57298f3c9bf6')
+source=("http://downloads.sourceforge.net/project/sbcl/sbcl/$pkgver/$pkgname-$pkgver-source.tar.bz2" "fix-source-path.lisp")
+md5sums=('a61fd099a72c2d3fa10a57298f3c9bf6' 'e0fb2483602d260ba602a0fbf37ae09f')
url="http://www.sbcl.org/"
install=sbcl.install
@@ -37,6 +37,9 @@
popd
INSTALL_ROOT=${startdir}/pkg/usr sh install.sh
+ src/runtime/sbcl --core output/sbcl.core --script ${startdir}/src/fix-source-path.lisp
+ mv sbcl-new.core ${startdir}/pkg/usr/lib/sbcl/sbcl.core
+
# sources
mkdir -p ${startdir}/pkg/usr/share/sbcl-source
cp -R -t ${startdir}/pkg/usr/share/sbcl-source \
Added: fix-source-path.lisp
===================================================================
--- fix-source-path.lisp (rev 0)
+++ fix-source-path.lisp 2009-09-09 19:39:09 UTC (rev 51577)
@@ -0,0 +1,22 @@
+(in-package "COMMON-LISP-USER")
+
+(let* ((parent (make-pathname :directory '(:absolute "usr" "share" "sbcl-source")))
+ (src
+ (merge-pathnames
+ (make-pathname :directory '(:relative "src" :wild-inferiors)
+ :name :wild :type :wild)
+ parent))
+ (contrib
+ (merge-pathnames
+ (make-pathname :directory '(:relative "contrib" :wild-inferiors)
+ :name :wild :type :wild)
+ parent)))
+ (setf (logical-pathname-translations "SYS")
+ `(("SYS:SRC;**;*.*.*" ,src)
+ ("SYS:CONTRIB;**;*.*.*" ,contrib))))
+
+(ignore-errors
+ (sb-ext:gc :full t)
+ (sb-ext:save-lisp-and-die "sbcl-new.core"))
+
+
More information about the arch-commits
mailing list