Ignore:
Timestamp:
08/18/11 13:05:54 (3 years ago)
Author:
rjs
Message:

Update.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lisp/lmio/fnutil.lisp

    r236 r237  
    172172    ;; Use the currently existing functions to parse an ITS filename
    173173    (SETQ NAMELIST (FILE-SPREAD-ITS-PATHNAME FILENAME))
    174     (SETQ DEVICE (IF (GET PLIST ':HOST-SPECIFIED)
    175                      "DSK"
    176                      (IF (NULL-S (FIRST NAMELIST))
    177                          (FUNCALL DEFAULT-FILENAME ':DEVICE)
    178                          (FIRST NAMELIST))))
     174    (SETQ DEVICE (IF (NULL-S (FIRST NAMELIST))
     175                     (IF (GET PLIST ':HOST-SPECIFIED)
     176                         "DSK"
     177                         (FUNCALL DEFAULT-FILENAME ':DEVICE))               
     178                     (FIRST NAMELIST)))
    179179    (AND (OR (STRING-EQUAL DEVICE "DSK") (STRING-EQUAL DEVICE ""))
    180180         ;; Device is host name if DSK specified
Note: See TracChangeset for help on using the changeset viewer.