Changeset 5604

Timestamp:

Dec 9, 2006, 8:47:47 AM (18 years ago)

Author:

Gary Byers

Message:

WITH-OUTPUT-TO-STRING: if string provided, evaluate the ELEMENT-TYPE expression
(for side-effects) and ignore the result of its evaluation.

Some fixes in CTYPECASE handling, which hopefully didn't break anything else.

File:

• trunk/ccl/lib/macros.lisp (modified) (3 diffs)

trunk/ccl/lib/macros.lisp

@@ -870 +870 @@
         (if (eq construct 'etypecase)
             (push `(t (values (%err-disp #.$XWRONGTYPE ,key-var ',types))) body)
-            (push `(t (setf ,keyform (ensure-value-of-type ,key-var ',types ',keyform))
+            (push `(t (setf ,key-var (ensure-value-of-type  ,key-var ',types ',keyform))
                       (go ,e-c-p)) body))))
     `(cond ,@(nreverse body))))
@@ -899 +899 @@
         (tag (gensym)))
     `(prog (,key-var)
+       (setq ,key-var ,keyform)
        ,tag
-       (setq ,key-var ,keyform)
        (return ,(typecase-aux key-var clauses tag keyform)))))
 
@@ -1381 +1381 @@
       `(let* ((,string-var ,string)
               (,var (if ,string-var
-                        (%make-string-output-stream ,string-var)
+                      ,@(if element-type-p
+                            `((progn
+                                ,element-type
+                                (%make-string-output-stream ,string-var)))
+                            `((%make-string-output-stream ,string-var)))
                       ,@(if element-type-p
                             `((make-string-output-stream :element-type ,element-type))