Changeset 7198


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

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

File:
1 edited

Legend:

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

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