/[cmucl]/src/hemlock/rcs.lisp
ViewVC logotype

Diff of /src/hemlock/rcs.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by ram, Wed Feb 19 20:06:17 1992 UTC revision 1.27 by wlott, Sun Dec 6 15:52:19 1992 UTC
# Line 203  Line 203 
203    (when (and lock *translate-file-names-before-locking*)    (when (and lock *translate-file-names-before-locking*)
204      (multiple-value-bind (unmatched-dir new-dirs file-name)      (multiple-value-bind (unmatched-dir new-dirs file-name)
205                           (maybe-translate-definition-file pathname)                           (maybe-translate-definition-file pathname)
206        (when unmatched-dir        (when new-dirs
207          (let ((new-name (translate-definition-file unmatched-dir          (let ((new-name (translate-definition-file unmatched-dir
208                                                     (car new-dirs)                                                     (car new-dirs)
209                                                     file-name)))                                                     file-name)))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5