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