projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.24.17: grab-bag of fixes to make hpux-os smile
[sbcl.git]
/
src
/
code
/
target-char.lisp
diff --git
a/src/code/target-char.lisp
b/src/code/target-char.lisp
index
f055e41
..
e4b87c3
100644
(file)
--- a/
src/code/target-char.lisp
+++ b/
src/code/target-char.lisp
@@
-372,7
+372,7
@@
(defun char= (character &rest more-characters)
#!+sb-doc
"Return T if all of the arguments are the same character."
(defun char= (character &rest more-characters)
#!+sb-doc
"Return T if all of the arguments are the same character."
- (declare (dynamic-extent more-characters))
+ (declare (truly-dynamic-extent more-characters))
(dolist (c more-characters t)
(declare (type character c))
(unless (eq c character) (return nil))))
(dolist (c more-characters t)
(declare (type character c))
(unless (eq c character) (return nil))))
@@
-380,7
+380,7
@@
(defun char/= (character &rest more-characters)
#!+sb-doc
"Return T if no two of the arguments are the same character."
(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))
+ (declare (truly-dynamic-extent more-characters))
(do* ((head character (car list))
(list more-characters (cdr list)))
((null list) t)
(do* ((head character (car list))
(list more-characters (cdr list)))
((null list) t)
@@
-392,7
+392,7
@@
(defun char< (character &rest more-characters)
#!+sb-doc
"Return T if the arguments are in strictly increasing alphabetic order."
(defun char< (character &rest more-characters)
#!+sb-doc
"Return T if the arguments are in strictly increasing alphabetic order."
- (declare (dynamic-extent more-characters))
+ (declare (truly-dynamic-extent more-characters))
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
@@
-403,7
+403,7
@@
(defun char> (character &rest more-characters)
#!+sb-doc
"Return T if the arguments are in strictly decreasing alphabetic order."
(defun char> (character &rest more-characters)
#!+sb-doc
"Return T if the arguments are in strictly decreasing alphabetic order."
- (declare (dynamic-extent more-characters))
+ (declare (truly-dynamic-extent more-characters))
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
@@
-414,7
+414,7
@@
(defun char<= (character &rest more-characters)
#!+sb-doc
"Return T if the arguments are in strictly non-decreasing alphabetic order."
(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))
+ (declare (truly-dynamic-extent more-characters))
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
@@
-425,7
+425,7
@@
(defun char>= (character &rest more-characters)
#!+sb-doc
"Return T if the arguments are in strictly non-increasing alphabetic order."
(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))
+ (declare (truly-dynamic-extent more-characters))
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
@@
-450,7
+450,7
@@
#!+sb-doc
"Return T if all of the arguments are the same character.
Font, bits, and case are ignored."
#!+sb-doc
"Return T if all of the arguments are the same character.
Font, bits, and case are ignored."
- (declare (dynamic-extent more-characters))
+ (declare (truly-dynamic-extent more-characters))
(do ((clist more-characters (cdr clist)))
((null clist) t)
(unless (two-arg-char-equal (car clist) character)
(do ((clist more-characters (cdr clist)))
((null clist) t)
(unless (two-arg-char-equal (car clist) character)
@@
-463,7
+463,7
@@
#!+sb-doc
"Return T if no two of the arguments are the same character.
Font, bits, and case are ignored."
#!+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))
+ (declare (truly-dynamic-extent more-characters))
(do* ((head character (car list))
(list more-characters (cdr list)))
((null list) t)
(do* ((head character (car list))
(list more-characters (cdr list)))
((null list) t)
@@
-480,7
+480,7
@@
#!+sb-doc
"Return T if the arguments are in strictly increasing alphabetic order.
Font, bits, and case are ignored."
#!+sb-doc
"Return T if the arguments are in strictly increasing alphabetic order.
Font, bits, and case are ignored."
- (declare (dynamic-extent more-characters))
+ (declare (truly-dynamic-extent more-characters))
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
@@
-494,7
+494,7
@@
#!+sb-doc
"Return T if the arguments are in strictly decreasing alphabetic order.
Font, bits, and case are ignored."
#!+sb-doc
"Return T if the arguments are in strictly decreasing alphabetic order.
Font, bits, and case are ignored."
- (declare (dynamic-extent more-characters))
+ (declare (truly-dynamic-extent more-characters))
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
@@
-508,7
+508,7
@@
#!+sb-doc
"Return T if the arguments are in strictly non-decreasing alphabetic order.
Font, bits, and case are ignored."
#!+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))
+ (declare (truly-dynamic-extent more-characters))
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
@@
-522,7
+522,7
@@
#!+sb-doc
"Return T if the arguments are in strictly non-increasing alphabetic order.
Font, bits, and case are ignored."
#!+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))
+ (declare (truly-dynamic-extent more-characters))
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)
(do* ((c character (car list))
(list more-characters (cdr list)))
((null list) t)