From bd5f5b0df93361d31592738fb18d77a275f04bc9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 30 Apr 2011 14:27:31 +0000
Subject: more cleanup

---
 src/lisp/core.lisp.in | 34 ++++++++++++++++++++++++++++------
 1 file changed, 28 insertions(+), 6 deletions(-)

(limited to 'src/lisp')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 3f34b9f8..a083b108 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -84,6 +84,9 @@
 	   ;; IO
 	   "inputBinaryFile"
 	   "outputBinaryFile"
+	   "inputTextFile"
+	   "outputTextFile"
+	   "closeFile"
 
 	   ;; compiler data structures
 	   "%Mode"
@@ -118,6 +121,7 @@
            
 	   "%ByteArray"
 	   "makeByteArray"
+	   "makeString"
 
            "%hasFeature"
 	   "%systemOptions"
@@ -215,12 +219,10 @@
 (deftype |%Maybe| (s) `(or null ,s))
 
 (deftype |%Pair| (u v)
-  (declare (ignore u v))
-  'cons)
+  `(cons ,u ,v))
 
 (deftype |%List| (s)
-  (declare (ignore s))
-  'list)
+  `(or null (cons ,s)))
 
 (deftype |%SimpleArray| (s) `(simple-array ,s))
 
@@ -439,13 +441,30 @@
 
 ;; -*- File IO -*-
 (defun |inputBinaryFile| (f)
-  (open f :direction :input :element-type 'unsigned-byte
+  (open f
+	:direction :input
+	:element-type 'unsigned-byte
 	:if-does-not-exist nil))
 
 (defun |outputBinaryFile| (f)
-  (open f :direction :output :element-type 'unsigned-byte
+  (open f
+	:direction :output
+	:element-type 'unsigned-byte
 	:if-exists :supersede))
 
+(defun |inputTextFile| (f)
+  (open f
+	:direction :input
+	:if-does-not-exist nil))
+
+(defun |outputTextFile| (f)
+  (open f
+	:direction :output 
+	:if-exists :supersede))
+
+(defun |closeFile| (f)
+  (close f))
+
 ;; 
 ;; -*- OpenAxiom filesystem -*-
 ;; 
@@ -1248,6 +1267,9 @@
 	       :element-type '(unsigned-byte 8)
 	       :initial-element 0))
 
+(defun |makeString| (n &optional (c (code-char 0)))
+  (make-string n :initial-element c))
+
 ;; native data type translation table
 (defconstant |$NativeTypeTable|
   '((|void|    . @void_type@)
-- 
cgit v1.2.3