Changeset 5259

Timestamp:

Sep 24, 2006, 7:12:31 PM (18 years ago)

Author:

Gary Byers

Message:

Remove unused (probably ancient) CHKBOUNDS function.
Simpler STRING-START-END.

File:

• trunk/ccl/level-1/l1-aprims.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-aprims.lisp

@@ -896 +896 @@
       c)))
 
-(defun chkbounds (arr start end)
-  (flet ((are (a i)(error "Array index ~S out of bounds for ~S." a i)))
-    (let ((len (length arr)))
-      (if (and end (> end len))(are arr end))
-      (if (and start (or (< start 0)(> start len)))(are arr start))
-      (if (%i< (%i- (or end len)(or start 0)) 0)
-        (error "Start ~S exceeds end ~S." start end)))))
+
 
 (defun string-start-end (string start end)
@@ -913 +907 @@
       (if (%i> start end)
         (error "Start ~S exceeds end ~S." start end))
-      (multiple-value-bind (str off)(array-data-and-offset string)
-        (values str (%i+ off start)(%i+ off end))))))
+      (if (typep string 'simple-string)
+        (values string start end)
+        (multiple-value-bind (str off)(array-data-and-offset string)
+          (values str (%i+ off start)(%i+ off end)))))))
 
 (defun get-properties (place indicator-list)