projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.19.9: elide runtime calls to %COERCE-CALLABLE-TO-FUN in more cases
[sbcl.git]
/
src
/
compiler
/
fndb.lisp
diff --git
a/src/compiler/fndb.lisp
b/src/compiler/fndb.lisp
index
5f8731d
..
f657293
100644
(file)
--- a/
src/compiler/fndb.lisp
+++ b/
src/compiler/fndb.lisp
@@
-913,7
+913,7
@@
simple-string (flushable))
(defknown (string-trim string-left-trim string-right-trim)
simple-string (flushable))
(defknown (string-trim string-left-trim string-right-trim)
- (sequence string-designator) simple-string (flushable))
+ (sequence string-designator) string (flushable))
(defknown (string-upcase string-downcase string-capitalize)
(string-designator &key (:start index) (:end sequence-end))
(defknown (string-upcase string-downcase string-capitalize)
(string-designator &key (:start index) (:end sequence-end))
@@
-1557,11
+1557,11
@@
(flushable))
(defknown compiler-error (t &rest t) nil ())
(flushable))
(defknown compiler-error (t &rest t) nil ())
-(defknown (compiler-warn compiler-style-warn) (string &rest t) (values) ())
+(defknown (compiler-warn compiler-style-warn) (t &rest t) (values) ())
(defknown (compiler-notify maybe-compiler-notify) ((or string symbol) &rest t)
(values)
())
(defknown (compiler-notify maybe-compiler-notify) ((or string symbol) &rest t)
(values)
())
-(defknown style-warn (string &rest t) null ())
+(defknown style-warn (t &rest t) null ())
;;;; atomic ops
(defknown %compare-and-swap-svref (simple-vector index t t) t
;;;; atomic ops
(defknown %compare-and-swap-svref (simple-vector index t t) t