Skip to content
Snippets Groups Projects
Commit 5e6556b3 authored by wlott's avatar wlott
Browse files

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.
parent 05c07230
No related branches found
No related tags found
No related merge requests found
;;; -*- 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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment