From 29239283483c1783853e44f01e639fdb8d680d42 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau 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