From 3949a64e9354c7f1b7418f1740c2abd5c8569e00 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 7 Nov 1991 22:56:10 +0000
Subject: [PATCH] Don't translate the check-out name unless there actually *is*
 a translation.

---
 hemlock/rcs.lisp | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp
index 0496afc52..ea54a93b4 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.20 1991/11/07 22:02:31 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.21 1991/11/07 22:56:10 wlott Exp $
 ;;;
 ;;; Various commands for dealing with RCS under Hemlock.
 ;;;
@@ -200,11 +200,12 @@
   (when (and lock *translate-file-names-before-locking*)
     (multiple-value-bind (unmatched-dir new-dirs file-name)
 			 (maybe-translate-definition-file pathname)
-      (let ((new-name (translate-definition-file unmatched-dir
-						 (car new-dirs)
-						 file-name)))
-	(when (probe-file (directory-namestring new-name))
-	  (setf pathname new-name)))))
+      (when unmatched-dir
+	(let ((new-name (translate-definition-file unmatched-dir
+						   (car new-dirs)
+						   file-name)))
+	  (when (probe-file (directory-namestring new-name))
+	    (setf pathname new-name))))))
   (cond
    ((and (not always-overwrite-p)
 	 (probe-file pathname) (ext:file-writable pathname))
-- 
GitLab