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

Update.

Files:
1 modified

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