From f78391efdbe92b2d84f9065faedca648ae707391 Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Fri, 28 Jan 2000 07:20:36 +0000
Subject: [PATCH] Some basic utility definitions for all areas of CLASH.

---
 src/utility.cl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 src/utility.cl

diff --git a/src/utility.cl b/src/utility.cl
new file mode 100644
index 0000000..71560fd
--- /dev/null
+++ b/src/utility.cl
@@ -0,0 +1,23 @@
+;;;; CLASH --- The Common Lisp Adaptable Simple HTTP server
+;;;; This is copyrighted software.  See documentation for terms.
+;;;; 
+;;;; utility.cl --- Basic substrate utilities
+;;;; 
+;;;; Checkout Tag: $Name$
+;;;; $Id$
+
+(in-package :CLASH)
+
+;;;; %File Description:
+;;;; 
+;;;; 
+;;;; 
+
+(deftype string-index ()
+  "Type of string indices."
+  `(integer 0 (,array-dimension-limit)))
+
+(deftype string-inner-index (length)
+  "Type of inner string indices, i.e. those that occur at least length
+characters inside the string."
+  `(integer 0 (,(- array-dimension-limit (- length 1)))))