Ignore:
Timestamp:
04/25/03 03:26:58 (18 years ago)
Author:
piso
Message:

string-capitalize
nstring-capitalize

File:
1 edited

Legend:

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

    r1689 r1694  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: strings.lisp,v 1.3 2003-04-25 02:04:13 piso Exp $
     4;;; $Id: strings.lisp,v 1.4 2003-04-25 03:26:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2020(in-package "COMMON-LISP")
    2121
    22 (export '(string-upcase string-downcase
    23           nstring-upcase nstring-downcase
     22(export '(string-upcase string-downcase string-capitalize
     23          nstring-upcase nstring-downcase nstring-capitalize
    2424          string= string/= string-equal string-not-equal
    2525          string< string>
     
    3434  (%string-downcase string start end))
    3535
     36(defun string-capitalize (string &key (start 0) end)
     37  (%string-capitalize string start end))
     38
    3639(defun nstring-upcase (string &key (start 0) end)
    3740  (%nstring-upcase string start end))
     
    3942(defun nstring-downcase (string &key (start 0) end)
    4043  (%nstring-downcase string start end))
     44
     45(defun nstring-capitalize (string &key (start 0) end)
     46  (%nstring-capitalize string start end))
    4147
    4248(defun string= (string1 string2 &key (start1 0) end1 (start2 0) end2)
Note: See TracChangeset for help on using the changeset viewer.