From ba2a09da118470bc268206dd113d5438a6ddc64f Mon Sep 17 00:00:00 2001 From: csr21 Date: Sat, 19 Jul 2003 06:42:57 -0700 Subject: [PATCH] Change the names of the TEXT-FOO-SERVER second arguments to SEQUENCE, Change the names of the TEXT-FOO-SERVER second arguments to SEQUENCE, too, to reflect what we perceive to be reality. darcs-hash:20030719134257-ed5a3-d537982c99aba5e938c1fbd6290e4bad29c33946.gz --- text.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/text.lisp b/text.lisp index d53fe7d..8eb6af4 100644 --- a/text.lisp +++ b/text.lisp @@ -266,9 +266,9 @@ (setq font new-font)))) (values width next-start))) -(defun text-extents-server (font string start end) +(defun text-extents-server (font sequence start end) (declare (type font font) - (type sequence string) + (type sequence sequence) (type array-index start end)) (declare (clx-values width ascent descent left right font-ascent font-descent direction)) (let ((display (font-display font)) @@ -282,7 +282,7 @@ (length (index+ (index-ceiling length 2) 2)) (resource-id font-id) ((sequence :format char2b :start start :end end :appending t) - string)) + sequence)) (values (integer-get 16) (int16-get 12) @@ -293,9 +293,9 @@ (int16-get 10) (member8-get 1 :left-to-right :right-to-left))))) -(defun text-width-server (font string start end) +(defun text-width-server (font sequence start end) (declare (type (or font gcontext) font) - (type sequence string) + (type sequence sequence) (type array-index start end)) (declare (clx-values integer)) (let ((display (font-display font)) @@ -309,7 +309,7 @@ (length (index+ (index-ceiling length 2) 2)) (resource-id font-id) ((sequence :format char2b :start start :end end :appending t) - string)) + sequence)) (values (integer-get 16))))) (defun text-extents-local (font sequence start end width-only-p)