Changeset 903


Ignore:
Timestamp:
Feb 16, 2005, 7:24:23 AM (17 years ago)
Author:
bryan
Message:

don't update index if with-input-from-string exits abnormally.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/macros.lisp

    r882 r903  
    12511251                    `(make-string-input-stream ,string ,(or start 0) ,end)))))
    12521252      ,@decls
    1253       (unwind-protect
    1254            (progn ,@forms)
    1255         (close ,var)
    1256         ,@(if index `((setf ,index (string-input-stream-index ,var))))))))
     1253      (multiple-value-prog1 (unwind-protect
     1254                                 (progn ,@forms)
     1255                              (close ,var))
     1256        ,@(if index `((setf ,index (string-input-stream-index ,var))))))))
    12571257
    12581258(defmacro with-output-to-string ((var &optional string &key (element-type 'base-char element-type-p))
Note: See TracChangeset for help on using the changeset viewer.