[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