Changeset 5397

Timestamp:

Oct 22, 2006, 6:59:49 AM (18 years ago)

Author:

Gary Byers

Message:

If WITH-OUTPUT-TO-STRING gets the string, do so before the stream closes.

File:

• trunk/ccl/lib/macros.lisp (modified) (1 diff)

trunk/ccl/lib/macros.lisp

@@ -1364 +1364 @@
                     `(make-string-input-stream ,string ,(or start 0) ,end)))))
       ,@decls
-      (multiple-value-prog1 (unwind-protect
-                                 (progn ,@forms)
-                              (close ,var))
-        ,@(if index `((setf ,index (string-input-stream-index ,var))))))))
+      (unwind-protect
+           (multiple-value-prog1
+               (progn ,@forms)
+             ,@(if index `((setf ,index (string-input-stream-index ,var)))))
+        (close ,var)))))
 
 (defmacro with-output-to-string ((var &optional string &key (element-type 'base-char element-type-p))