Changeset 7200


Ignore:
Timestamp:
Sep 11, 2007, 11:55:39 AM (12 years ago)
Author:
gb
Message:

Move WITH-SELF-BOUND-IO-CONTROL-VARS here.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0709/ccl/lib/macros.lisp

    r7025 r7200  
    14921492       ,@decls
    14931493       ,@body)))
     1494
     1495(defmacro with-self-bound-io-control-vars (&body body)
     1496  `(let (
     1497         (*print-array* *print-array*)
     1498         (*print-base* *print-base*)
     1499         (*print-case* *print-case*)
     1500         (*print-circle* *print-circle*)
     1501         (*print-escape* *print-escape*)
     1502         (*print-gensym* *print-gensym*)
     1503         (*print-length* *print-length*)
     1504         (*print-level* *print-level*)
     1505         (*print-lines* *print-lines*)
     1506         (*print-miser-width* *print-miser-width*)
     1507         (*print-pprint-dispatch* *print-pprint-dispatch*)
     1508         (*print-pretty* *print-pretty*)
     1509         (*print-radix* *print-radix*)
     1510         (*print-readably* *print-readably*)
     1511         (*print-right-margin* *print-right-margin*)
     1512         (*read-base* *read-base*)
     1513         (*read-default-float-format* *read-default-float-format*)
     1514         (*read-eval* *read-eval*)
     1515         (*read-suppress* *read-suppress*)
     1516         (*readtable* *readtable*))
     1517     ,@body))
    14941518
    14951519(defmacro print-unreadable-object (&environment env (object stream &key type identity) &body forms)
Note: See TracChangeset for help on using the changeset viewer.