[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv15406

Modified Files:
	more-macros.lisp 
Log Message:
Added trivial with-standard-io-syntax macro.


--- /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp	2006/04/10 11:54:52	1.30
+++ /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp	2006/04/28 21:18:48	1.31
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Jun  7 15:05:57 2002
 ;;;;                
-;;;; $Id: more-macros.lisp,v 1.30 2006/04/10 11:54:52 ffjeld Exp $
+;;;; $Id: more-macros.lisp,v 1.31 2006/04/28 21:18:48 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -440,3 +440,27 @@
 
 (defmacro locally (&body body)
   `(let () , at body))
+
+(defmacro with-standard-io-syntax (&body body)
+  `(let ((*package* (find-package :init))
+	 (*print-array* t)
+	 (*print-base* 10)
+	 (*print-case* :upcase)
+	 (*print-circle* nil)
+	 (*print-escape* t)
+	 (*print-gensym* t)
+	 (*print-length* nil)
+	 (*print-level* nil)
+	 (*print-lines* nil)
+	 #+ignore (*print-miser-width* nil)
+	 #+ignore (*print-pprint-dispatch* nil)
+	 (*print-pretty* nil)
+	 (*print-radix* nil)
+	 (*print-readably* t)
+	 #+ignore (*print-right-margin* nil)
+	 (*read-base* 10)
+	 (*read-default-float-format* 'ratio)
+	 (*read-eval* t)
+	 (*read-suppress* nil)
+	 #+ignore (*readtable* nil))
+     , at body))