projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rename FOP-INTERN AUX-FOP-INTERN for clarity
[sbcl.git]
/
src
/
compiler
/
fndb.lisp
diff --git
a/src/compiler/fndb.lisp
b/src/compiler/fndb.lisp
index
891a39c
..
2a2716c
100644
(file)
--- a/
src/compiler/fndb.lisp
+++ b/
src/compiler/fndb.lisp
@@
-114,10
+114,6
@@
(defknown makunbound (symbol) symbol)
(defknown fmakunbound ((or symbol cons)) (or symbol cons)
(unsafe explicit-check))
(defknown makunbound (symbol) symbol)
(defknown fmakunbound ((or symbol cons)) (or symbol cons)
(unsafe explicit-check))
-(defknown (get-setf-method get-setf-method-multiple-value)
- ((or list symbol) &optional lexenv-designator)
- (values list list list form form)
- (flushable))
(defknown apply (callable t &rest t) *) ; ### Last arg must be List...
(defknown funcall (callable &rest t) *)
(defknown apply (callable t &rest t) *) ; ### Last arg must be List...
(defknown funcall (callable &rest t) *)
@@
-1604,3
+1600,5
@@
(unsafe))
(defknown %compare-and-swap-symbol-value (symbol t t) t
(unsafe unwind))
(unsafe))
(defknown %compare-and-swap-symbol-value (symbol t t) t
(unsafe unwind))
+(defknown spin-loop-hint () (values)
+ (always-translatable))