Ignore:
Timestamp:
08/15/04 11:25:36 (17 years ago)
Author:
piso
Message:

STRING=

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/strings.lisp

    r3330 r7404  
    11;;; strings.lisp
    22;;;
    3 ;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: strings.lisp,v 1.6 2003-08-11 16:31:37 piso Exp $
     3;;; Copyright (C) 2003-2004 Peter Graves
     4;;; $Id: strings.lisp,v 1.7 2004-08-15 11:25:36 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3939
    4040(defun string= (string1 string2 &key (start1 0) end1 (start2 0) end2)
    41   (let* ((string1 (string string1))
    42          (string2 (string string2))
    43          (end1 (or end1 (length string1)))
    44          (end2 (or end2 (length string2))))
    45     (%string= string1 string2 start1 end1 start2 end2)))
     41  (%string= string1 string2 start1 end1 start2 end2))
    4642
    4743(defun string/= (string1 string2 &key (start1 0) end1 (start2 0) end2)
Note: See TracChangeset for help on using the changeset viewer.