/[cmucl]/src/code/string.lisp
ViewVC logotype

Diff of /src/code/string.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12.30.1 by rtoy, Wed Mar 25 21:51:34 2009 UTC revision 1.12.30.2 by rtoy, Wed Apr 15 14:41:55 2009 UTC
# Line 483  Line 483 
483                   (setq newword t))                   (setq newword t))
484                  (newword                  (newword
485                   ;;char is first case-modifiable after non-case-modifiable                   ;;char is first case-modifiable after non-case-modifiable
486                   (setq char (char-upcase char))                   (setq char (char-titlecase char))
487                   (setq newword ()))                   (setq newword ()))
488                  ;;char is case-modifiable, but not first                  ;;char is case-modifiable, but not first
489                  (t (setq char (char-downcase char))))                  (t (setq char (char-downcase char))))
# Line 538  Line 538 
538                 (setq newword t))                 (setq newword t))
539                (newword                (newword
540                 ;;char is first case-modifiable after non-case-modifiable                 ;;char is first case-modifiable after non-case-modifiable
541                 (setf (schar string index) (char-upcase char))                 (setf (schar string index) (char-titlecase char))
542                 (setq newword ()))                 (setq newword ()))
543                (t                (t
544                 (setf (schar string index) (char-downcase char))))))                 (setf (schar string index) (char-downcase char))))))

Legend:
Removed from v.1.12.30.1  
changed lines
  Added in v.1.12.30.2

  ViewVC Help
Powered by ViewVC 1.1.5