Ignore:
Timestamp:
04/25/03 02:04:13 (18 years ago)
Author:
piso
Message:

nstring-upcase
nstring-downcase

File:
1 edited

Legend:

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

    r1237 r1689  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: strings.lisp,v 1.2 2003-03-13 03:14:52 piso Exp $
     4;;; $Id: strings.lisp,v 1.3 2003-04-25 02:04:13 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2121
    2222(export '(string-upcase string-downcase
     23          nstring-upcase nstring-downcase
    2324          string= string/= string-equal string-not-equal
    2425          string< string>
     
    3233(defun string-downcase (string &key (start 0) end)
    3334  (%string-downcase string start end))
     35
     36(defun nstring-upcase (string &key (start 0) end)
     37  (%nstring-upcase string start end))
     38
     39(defun nstring-downcase (string &key (start 0) end)
     40  (%nstring-downcase string start end))
    3441
    3542(defun string= (string1 string2 &key (start1 0) end1 (start2 0) end2)
Note: See TracChangeset for help on using the changeset viewer.