From b46a9c13dcd095aafcbf75a3054ee1fc12e23bd1 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 31 Oct 2002 18:52:23 +0000 Subject: [PATCH] r3258: *** empty log message *** --- debian/changelog | 6 ++++++ downloads.lisp | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/debian/changelog b/debian/changelog index 0a17aa6..1ec2db1 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-lml (1.7.1-1) unstable; urgency=medium + + * download.lisp: Fix bug in strip-ftp-base + + -- Kevin M. Rosenberg Thu, 31 Oct 2002 11:51:50 -0700 + cl-lml (1.7-1) unstable; urgency=low * Change #p"" reader forms to "" for SCL compatibility diff --git a/downloads.lisp b/downloads.lisp index bc342c0..affe2c6 100644 --- a/downloads.lisp +++ b/downloads.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: downloads.lisp,v 1.5 2002/10/16 10:21:53 kevin Exp $ +;;;; $Id: downloads.lisp,v 1.6 2002/10/31 18:52:23 kevin Exp $ ;;;; ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -38,7 +38,7 @@ :name (pathname-name file) :type (pathname-type file) :directory - (when (> (length bdir) (length fdir)) + (when (> (length fdir) (length bdir)) (append '(:absolute) (subseq fdir (length bdir) (length fdir))))))) -- 2.34.1