Permalink
Browse files

moved a few string utilities to metatiliities-base

darcs-hash:20080527012118-3cc5d-a098e2ed38e915c2dc0ddba3e9476ef39803c98f.gz
  • Loading branch information...
1 parent 1c585ab commit 6b6ab6b24b9ebec675a306b41e4035da832c95d6 @gwkkwg committed May 27, 2008
Showing with 0 additions and 18 deletions.
  1. +0 −18 dev/utilities/strings.lisp
View
18 dev/utilities/strings.lisp
@@ -29,24 +29,6 @@
;;; A few functions cribbed from Wiblur. Feel free to improve.
;;;
-(defun string-starts-with (string prefix &key ignore-case-p)
- (declare (type string string prefix))
- (let ((prelen (length prefix)))
- (when (<= prelen (length string))
- (if ignore-case-p
- (string-equal string prefix :end1 prelen)
- (string= string prefix :end1 prelen)))))
-
-;; not cribbed from Wilbur --cas
-(defun string-ends-with (string suffix &key ignore-case-p)
- (declare (type string string suffix))
- (let ((suflen (length suffix))
- (strlen (length string)))
- (when (< suflen (length string))
- (if ignore-case-p
- (string-equal string suffix :start1 (- strlen suflen))
- (string= string suffix :start1 (- strlen suflen))))))
-
(defun substring (string start &optional end downcasep)
(declare (type string string) (type fixnum start) (optimize (speed 3) (safety 0)))
(let* ((end (or end (length string)))

0 comments on commit 6b6ab6b

Please sign in to comment.