/[cmucl]/src/code/pathname.lisp
ViewVC logotype

Diff of /src/code/pathname.lisp

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

revision 1.5 by ram, Sun Dec 22 01:44:14 1991 UTC revision 1.6 by wlott, Thu Jan 16 18:38:51 1992 UTC
# Line 331  Line 331 
331        thing))        thing))
332    
333  (defun merge-directories (dir1 dir2 diddle-case)  (defun merge-directories (dir1 dir2 diddle-case)
334    (if (eq (car dir1) :absolute)    (if (or (eq (car dir1) :absolute)
335              (null dir2))
336        dir1        dir1
337        (let ((results nil))        (let ((results nil))
338          (flet ((add (dir)          (flet ((add (dir)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5