Ignore:
Timestamp:
08/18/11 15:23:42 (3 years ago)
Author:
rjs
Message:

Update.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lisp/nzwei/fasupd.lisp

    r257 r258  
    3838  (SETQ INFILE (BUFFER-FILE-NAME BUFFER))
    3939  (SETQ OUTFILE
    40         (IF OUTFILE (FILE-DEFAULT-FN2 OUTFILE "QFASL") (FILE-SET-FN2 INFILE "QFASL")))
     40        (IF OUTFILE
     41            (SI:FILE-PARSE-NAME OUTFILE NIL (FUNCALL INFILE ':COPY-WITH-TYPE ':QFASL))
     42            (FUNCALL INFILE ':COPY-WITH-TYPE ':QFASL)))
    4143  (SETQ INPUT-STREAM (INTERVAL-STREAM BUFFER))
    4244  (UNWIND-PROTECT
Note: See TracChangeset for help on using the changeset viewer.