Changeset 258 for trunk/lisp/nzwei/fasupd.lisp

Timestamp:

08/18/11 08:23:42 (22 months ago)

Author:

rjs

Message:

Update.

Files:

• trunk/lisp/nzwei/fasupd.lisp (modified) (1 diff)

trunk/lisp/nzwei/fasupd.lisp

@@ -38 +38 @@
   (SETQ INFILE (BUFFER-FILE-NAME BUFFER))
   (SETQ OUTFILE
-        (IF OUTFILE (FILE-DEFAULT-FN2 OUTFILE "QFASL") (FILE-SET-FN2 INFILE "QFASL")))
+        (IF OUTFILE
+            (SI:FILE-PARSE-NAME OUTFILE NIL (FUNCALL INFILE ':COPY-WITH-TYPE ':QFASL))
+            (FUNCALL INFILE ':COPY-WITH-TYPE ':QFASL)))
   (SETQ INPUT-STREAM (INTERVAL-STREAM BUFFER))
   (UNWIND-PROTECT