/[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.9 by dtc, Fri Feb 13 16:09:42 1998 UTC revision 1.10 by pw, Sun Mar 4 23:37:33 2001 UTC
# Line 50  Line 50 
50    
51  (defmacro with-one-string (string start end cum-offset &rest forms)  (defmacro with-one-string (string start end cum-offset &rest forms)
52    `(let ((,string (if (stringp ,string) ,string (string ,string))))    `(let ((,string (if (stringp ,string) ,string (string ,string))))
53         ;; Optimizer may prove STRING is one.
54         (declare (optimize (ext:inhibit-warnings 3)))
55       (with-array-data ((,string ,string :offset-var ,cum-offset)       (with-array-data ((,string ,string :offset-var ,cum-offset)
56                         (,start ,start)                         (,start ,start)
57                         (,end (or ,end (length (the vector ,string)))))                         (,end (or ,end (length (the vector ,string)))))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5