From 5e6556b31d10f992630dbfc77ce0d5e9ba9ba6d3 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 6 Dec 1992 15:52:19 +0000 Subject: [PATCH] Fixed MAYBE-RCS-CHECK-OUT-FILE to test to see if new-dirs of the translation is not nil instead of checking unmatched-dir because unmatched-dir might be nil even if there is a valid translation. --- hemlock/rcs.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp index 71d213285..5a428634f 100644 --- a/hemlock/rcs.lisp +++ b/hemlock/rcs.lisp @@ -1,6 +1,6 @@ ;;; -*- Package: HEMLOCK; Mode: Lisp -*- ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.26 1992/02/19 20:06:17 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.27 1992/12/06 15:52:19 wlott Exp $ ;;; ;;; Various commands for dealing with RCS under Hemlock. ;;; @@ -203,7 +203,7 @@ (when (and lock *translate-file-names-before-locking*) (multiple-value-bind (unmatched-dir new-dirs file-name) (maybe-translate-definition-file pathname) - (when unmatched-dir + (when new-dirs (let ((new-name (translate-definition-file unmatched-dir (car new-dirs) file-name))) -- GitLab