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

Update.

Files:
1 modified

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