From 3d4576ed847bfd84b3befaf7c5ae7ee62905ab2a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 24 Oct 2008 06:40:59 +0000
Subject: 	Add basic support for stream client socket. 	*
 lib/sockio-c.c (oa_inet_pton): Define. 	(oa_get_host_address):
 Likewise. 	* algebra/net.spad.pamphlet (IP4Address): New. 
 (NetworkClientSocket): Likewise. 	(InetClientStreamSocket): Likewise. 
 * algebra/data.spad.pamphlet (DataArray): Rename from DataBuffer. 
 (ByteBuffer): Rename from ByteArray.  Reimplement. 	*
 algebra/exposed.lsp.pamphlet: Expose IP4Address, 
 InetClientStreamSocket, NetworkClientSocket.

---
 src/algebra/array1.spad.pamphlet | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/algebra/array1.spad.pamphlet')

diff --git a/src/algebra/array1.spad.pamphlet b/src/algebra/array1.spad.pamphlet
index 74039ad1..2d1d3a27 100644
--- a/src/algebra/array1.spad.pamphlet
+++ b/src/algebra/array1.spad.pamphlet
@@ -368,10 +368,8 @@ IndexedOneDimensionalArray(S:Type, mn:Integer):
  OneDimensionalArrayAggregate S == add
    Qmax ==> QVMAXINDEX$Lisp
    Qsize ==> QVSIZE$Lisp
---   Qelt ==> QVELT$Lisp
---   Qsetelt ==> QSETVELT$Lisp
-   Qelt ==> ELT$Lisp
-   Qsetelt ==> SETELT$Lisp
+   Qelt ==> QVELT$Lisp
+   Qsetelt ==> QSETVELT$Lisp
 --   Qelt1 ==> QVELT_-1$Lisp
 --   Qsetelt1 ==> QSETVELT_-1$Lisp
    Qnew ==> GETREFV$Lisp
-- 
cgit v1.2.3