From: Juho Snellman Date: Mon, 10 Dec 2007 05:42:46 +0000 (+0000) Subject: 1.0.12.24: Add dx declarations for character comparison function &rest lists X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=381fd20bf7afcc56845e824c740c93afa1999ebd;p=sbcl.git 1.0.12.24: Add dx declarations for character comparison function &rest lists * CHAR=, CHAR<, etc. --- diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp index ad0f9ee..f055e41 100644 --- a/src/code/target-char.lisp +++ b/src/code/target-char.lisp @@ -372,6 +372,7 @@ (defun char= (character &rest more-characters) #!+sb-doc "Return T if all of the arguments are the same character." + (declare (dynamic-extent more-characters)) (dolist (c more-characters t) (declare (type character c)) (unless (eq c character) (return nil)))) @@ -379,6 +380,7 @@ (defun char/= (character &rest more-characters) #!+sb-doc "Return T if no two of the arguments are the same character." + (declare (dynamic-extent more-characters)) (do* ((head character (car list)) (list more-characters (cdr list))) ((null list) t) @@ -390,6 +392,7 @@ (defun char< (character &rest more-characters) #!+sb-doc "Return T if the arguments are in strictly increasing alphabetic order." + (declare (dynamic-extent more-characters)) (do* ((c character (car list)) (list more-characters (cdr list))) ((null list) t) @@ -400,6 +403,7 @@ (defun char> (character &rest more-characters) #!+sb-doc "Return T if the arguments are in strictly decreasing alphabetic order." + (declare (dynamic-extent more-characters)) (do* ((c character (car list)) (list more-characters (cdr list))) ((null list) t) @@ -410,6 +414,7 @@ (defun char<= (character &rest more-characters) #!+sb-doc "Return T if the arguments are in strictly non-decreasing alphabetic order." + (declare (dynamic-extent more-characters)) (do* ((c character (car list)) (list more-characters (cdr list))) ((null list) t) @@ -420,6 +425,7 @@ (defun char>= (character &rest more-characters) #!+sb-doc "Return T if the arguments are in strictly non-increasing alphabetic order." + (declare (dynamic-extent more-characters)) (do* ((c character (car list)) (list more-characters (cdr list))) ((null list) t) @@ -444,6 +450,7 @@ #!+sb-doc "Return T if all of the arguments are the same character. Font, bits, and case are ignored." + (declare (dynamic-extent more-characters)) (do ((clist more-characters (cdr clist))) ((null clist) t) (unless (two-arg-char-equal (car clist) character) @@ -456,6 +463,7 @@ #!+sb-doc "Return T if no two of the arguments are the same character. Font, bits, and case are ignored." + (declare (dynamic-extent more-characters)) (do* ((head character (car list)) (list more-characters (cdr list))) ((null list) t) @@ -472,6 +480,7 @@ #!+sb-doc "Return T if the arguments are in strictly increasing alphabetic order. Font, bits, and case are ignored." + (declare (dynamic-extent more-characters)) (do* ((c character (car list)) (list more-characters (cdr list))) ((null list) t) @@ -485,6 +494,7 @@ #!+sb-doc "Return T if the arguments are in strictly decreasing alphabetic order. Font, bits, and case are ignored." + (declare (dynamic-extent more-characters)) (do* ((c character (car list)) (list more-characters (cdr list))) ((null list) t) @@ -498,6 +508,7 @@ #!+sb-doc "Return T if the arguments are in strictly non-decreasing alphabetic order. Font, bits, and case are ignored." + (declare (dynamic-extent more-characters)) (do* ((c character (car list)) (list more-characters (cdr list))) ((null list) t) @@ -511,6 +522,7 @@ #!+sb-doc "Return T if the arguments are in strictly non-increasing alphabetic order. Font, bits, and case are ignored." + (declare (dynamic-extent more-characters)) (do* ((c character (car list)) (list more-characters (cdr list))) ((null list) t) diff --git a/version.lisp-expr b/version.lisp-expr index 291f9e3..498401e 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.12.23" +"1.0.12.24"