Changeset 1694 for trunk/j/src/org/armedbear/lisp/strings.lisp

Timestamp:

04/25/03 03:26:58 (18 years ago)

Author:

piso

Message:

string-capitalize
nstring-capitalize

File:

• trunk/j/src/org/armedbear/lisp/strings.lisp (modified) (4 diffs)

trunk/j/src/org/armedbear/lisp/strings.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: strings.lisp,v 1.3 2003-04-25 02:04:13 piso Exp $
+;;; $Id: strings.lisp,v 1.4 2003-04-25 03:26:58 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -20 +20 @@
 (in-package "COMMON-LISP")
 
-(export '(string-upcase string-downcase
-          nstring-upcase nstring-downcase
+(export '(string-upcase string-downcase string-capitalize
+          nstring-upcase nstring-downcase nstring-capitalize
           string= string/= string-equal string-not-equal
           string< string>
@@ -34 +34 @@
   (%string-downcase string start end))
 
+(defun string-capitalize (string &key (start 0) end)
+  (%string-capitalize string start end))
+
 (defun nstring-upcase (string &key (start 0) end)
   (%nstring-upcase string start end))
@@ -39 +42 @@
 (defun nstring-downcase (string &key (start 0) end)
   (%nstring-downcase string start end))
+
+(defun nstring-capitalize (string &key (start 0) end)
+  (%nstring-capitalize string start end))
 
 (defun string= (string1 string2 &key (start1 0) end1 (start2 0) end2)