From 90e40ff963ffdca1272e393e2458d04040976096 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 11 May 2012 20:39:20 +0000
Subject: 	* interp/preparse.lisp (PARSEPRINT): Move to spad-parser.boot.
 	Rename as parsePrint.

---
 src/lisp/core.lisp.in | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/lisp/core.lisp.in')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index ac989be8..d793da9a 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -97,6 +97,8 @@
 	   "deref"
 
 	   ;; IO
+	   "$stdin"
+	   "$stdout"
 	   "$InputStream"
 	   "$OutputStream"
 	   "$ErrorStream"
@@ -114,6 +116,7 @@
 	   "readIntegerIfCan"
 	   "formatToString"
 	   "formatToStream"
+	   "formatToStdout"
 
 	   ;; compiler data structures
 	   "%Mode"
@@ -526,6 +529,9 @@
 
 ;; -*- File IO -*-
 
+(defconstant |$stdout| *standard-output*)
+(defconstant |$stdin| *standard-input*)
+
 (defparameter |$InputStream| (make-synonym-stream '*standard-input*))
 (defparameter |$OutputStream| (make-synonym-stream '*standard-output*))
 (defparameter |$ErrorStream| (make-synonym-stream '*standard-output*))
@@ -592,6 +598,9 @@
 (defmacro |formatToStream| (&rest x)
   `(format ,@x))
 
+(defmacro |formatToStdout| (&rest args)
+  `(format |$stdout| ,@args))
+
 ;; 
 ;; -*- OpenAxiom filesystem -*-
 ;; 
-- 
cgit v1.2.3