Changeset 7405 for branches/working-0710


Ignore:
Timestamp:
Oct 12, 2007, 9:39:59 AM (12 years ago)
Author:
gb
Message:

Move WITH-SELF-BOUND-IO-CONTROL-VARS to macros.lisp.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-1/l1-lisp-threads.lisp

    r7343 r7405  
    294294 
    295295         
    296 (defmacro with-self-bound-io-control-vars (&body body)
    297   `(let (; from CLtL2, table 22-7:
    298          (*package* *package*)
    299          (*print-array* *print-array*)
    300          (*print-base* *print-base*)
    301          (*print-case* *print-case*)
    302          (*print-circle* *print-circle*)
    303          (*print-escape* *print-escape*)
    304          (*print-gensym* *print-gensym*)
    305          (*print-length* *print-length*)
    306          (*print-level* *print-level*)
    307          (*print-lines* *print-lines*)
    308          (*print-miser-width* *print-miser-width*)
    309          (*print-pprint-dispatch* *print-pprint-dispatch*)
    310          (*print-pretty* *print-pretty*)
    311          (*print-radix* *print-radix*)
    312          (*print-readably* *print-readably*)
    313          (*print-right-margin* *print-right-margin*)
    314          (*read-base* *read-base*)
    315          (*read-default-float-format* *read-default-float-format*)
    316          (*read-eval* *read-eval*)
    317          (*read-suppress* *read-suppress*)
    318          (*readtable* *readtable*))
    319      ,@body))
     296
    320297
    321298
Note: See TracChangeset for help on using the changeset viewer.