Changeset 9005


Ignore:
Timestamp:
Apr 4, 2008, 6:01:43 AM (11 years ago)
Author:
gb
Message:

Try that again.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/misc.lisp

    r9004 r9005  
    743743                  (dir (cdr (pathname-directory path))))
    744744             (when (string= "ccl" (car (last dir)))
    745                (if (string= (car dir) "branches")
    746                  (cadr dir)
    747                  (car dir))))))))))
     745               (let* ((base (car dir)))
     746                 (unless (or (string= base "release")
     747                             (string= base "releases"))
     748                   (if (string= base "branches")
     749                     (cadr dir)
     750                     (car dir))))))))))))
    748751
    749752
Note: See TracChangeset for help on using the changeset viewer.