See attached file.

It would be nice if there were a "precheckin" test for ASDF.

[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ]
Never explain. Your friends do not need it and your enemies will
never believe you anyway.
        -- Elbert Hubbard
From 29239283483c1783853e44f01e639fdb8d680d42 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <[email protected]>
Date: Fri, 11 Sep 2009 18:08:00 -0400
Subject: [PATCH] Fix broken REVISION subseq.

---
 asdf.lisp |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 70a9cb6..dbf7e12 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -147,8 +147,8 @@
 
 (defvar *asdf-revision* 
   ;; the 1+ hair is to ensure that we don't do an inadvertant find and replace
-  (subseq "REVISION:1.365"))))
-  
+  (subseq "REVISION:1.365"
+          (1+ (length "REVISION"))))
 
 (defvar *resolve-symlinks* t
   "Determine whether or not ASDF resolves symlinks when defining systems.
-- 
1.5.6.5

_______________________________________________
asdf-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel

Reply via email to