Changeset 238 for trunk/lisp/lmio/fnutil.lisp

Timestamp:

08/18/11 06:06:49 (22 months ago)

Author:

rjs

Message:

Update.

Files:

• trunk/lisp/lmio/fnutil.lisp (modified) (1 diff)

trunk/lisp/lmio/fnutil.lisp

@@ -90 +90 @@
 
 (DEFMACRO FILE-BIND-DEFAULTS BODY
-  `(LET ((FILE-HOST-DEFAULTS-ALIST (COPYALIST FILE-HOST-DEFAULTS-ALIST)))
+  `(LET ((FILE-HOST-DEFAULTS-ALIST (COPYALIST FILE-HOST-DEFAULTS-ALIST))
+         (FILE-DEFAULT-HOST FILE-DEFAULT-HOST))
      . ,BODY))