Ignore:
Timestamp:
06/07/04 01:56:45 (17 years ago)
Author:
piso
Message:

Bind *READTABLE* to the standard readtable.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/with-standard-io-syntax.lisp

    r6437 r7029  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: with-standard-io-syntax.lisp,v 1.2 2004-04-03 00:20:09 piso Exp $
     4;;; $Id: with-standard-io-syntax.lisp,v 1.3 2004-06-07 01:56:45 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1919
    20 ;;; From CMUCL.
     20;;; Adapted from SBCL.
    2121
    2222(in-package "SYSTEM")
     
    4242        (*read-eval* t)
    4343        (*read-suppress* nil)
    44         #+nil ; FIXME
    45         (*readtable* std-lisp-readtable))
     44        (*readtable* (copy-readtable nil)))
    4645    (funcall function)))
    4746
    4847(defmacro with-standard-io-syntax (&body body)
    49   "Bind the reader and printer control variables to values that enable READ
    50    to reliably read the results of PRINT.  These values are:
    51    *PACKAGE*                            The COMMON-LISP-USER package
    52    *PRINT-ARRAY*                        T
    53    *PRINT-BASE*                         10
    54    *PRINT-CASE*                         :UPCASE
    55    *PRINT-CIRCLE*                       NIL
    56    *PRINT-ESCAPE*                       T
    57    *PRINT-GENSYM*                       T
    58    *PRINT-LENGTH*                       NIL
    59    *PRINT-LEVEL*                        NIL
    60    *PRINT-LINES*                        NIL
    61    *PRINT-MISER-WIDTH*                  NIL
    62    *PRINT-PRETTY*                       NIL
    63    *PRINT-RADIX*                        NIL
    64    *PRINT-READABLY*                     T
    65    *PRINT-RIGHT-MARGIN*                 NIL
    66    *READ-BASE*                          10
    67    *READ-DEFAULT-FLOAT-FORMAT*          SINGLE-FLOAT
    68    *READ-EVAL*                          T
    69    *READ-SUPPRESS*                      NIL
    70    *READTABLE*                          the standard readtable."
    7148  `(%with-standard-io-syntax #'(lambda () ,@body)))
Note: See TracChangeset for help on using the changeset viewer.