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

Update.

Files:
1 modified

Legend:

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

    r237 r238  
    9090 
    9191(DEFMACRO FILE-BIND-DEFAULTS BODY 
    92   `(LET ((FILE-HOST-DEFAULTS-ALIST (COPYALIST FILE-HOST-DEFAULTS-ALIST))) 
     92  `(LET ((FILE-HOST-DEFAULTS-ALIST (COPYALIST FILE-HOST-DEFAULTS-ALIST)) 
     93         (FILE-DEFAULT-HOST FILE-DEFAULT-HOST)) 
    9394     . ,BODY)) 
    9495