[arch-commits] Commit in sbcl/trunk (PKGBUILD arch-fixes.lisp fix-source-path.lisp)

[Juergen Hoetzel]

    Date: Wednesday, December 2, 2009 @ 09:16:27
  Author: juergen
Revision: 60241

fix FS#16761 - [sbcl] ships with debugger disabled by default

Added:
  sbcl/trunk/arch-fixes.lisp
    (from rev 60240, sbcl/trunk/fix-source-path.lisp)
Modified:
  sbcl/trunk/PKGBUILD
Deleted:
  sbcl/trunk/fix-source-path.lisp

----------------------+
 PKGBUILD             |    5 +++--
 arch-fixes.lisp      |   21 +++++++++++++++++++++
 fix-source-path.lisp |   22 ----------------------
 3 files changed, 24 insertions(+), 24 deletions(-)

Modified: PKGBUILD
===================================================================
--- PKGBUILD	2009-12-02 13:29:50 UTC (rev 60240)
+++ PKGBUILD	2009-12-02 14:16:27 UTC (rev 60241)
@@ -2,6 +2,7 @@
 # Contributor: John Proctor <jproctor at prium.net>
 # Contributor: Daniel White <daniel at whitehouse.id.au>
 # Maintainer: Juergen Hoetzel <juergen at archlinux.org>
+# Contributor: Leslie Polzer (skypher) 
 
 pkgname=sbcl
 pkgver=1.0.31
@@ -12,8 +13,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" "fix-source-path.lisp")
-md5sums=('a61fd099a72c2d3fa10a57298f3c9bf6' 'e0fb2483602d260ba602a0fbf37ae09f')
+source=("http://downloads.sourceforge.net/project/sbcl/sbcl/$pkgver/$pkgname-$pkgver-source.tar.bz2" "arch-fixes.lisp")
+md5sums=('a61fd099a72c2d3fa10a57298f3c9bf6' '7ac0c1936547f4278198b8bf7725204d')
 
 url="http://www.sbcl.org/"
 install=sbcl.install

Copied: sbcl/trunk/arch-fixes.lisp (from rev 60240, sbcl/trunk/fix-source-path.lisp)
===================================================================
--- arch-fixes.lisp	                        (rev 0)
+++ arch-fixes.lisp	2009-12-02 14:16:27 UTC (rev 60241)
@@ -0,0 +1,21 @@
+(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:enable-debugger)
+  (sb-ext:save-lisp-and-die "sbcl-new.core"))

Deleted: fix-source-path.lisp
===================================================================
--- fix-source-path.lisp	2009-12-02 13:29:50 UTC (rev 60240)
+++ fix-source-path.lisp	2009-12-02 14:16:27 UTC (rev 60241)
@@ -1,22 +0,0 @@
-(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"))
-
-