projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.34:
[sbcl.git]
/
src
/
compiler
/
x86
/
system.lisp
diff --git
a/src/compiler/x86/system.lisp
b/src/compiler/x86/system.lisp
index
95de87f
..
86cc500
100644
(file)
--- a/
src/compiler/x86/system.lisp
+++ b/
src/compiler/x86/system.lisp
@@
-214,9
+214,6
@@
:disp (- function-pointer-type other-pointer-type)))
(inst add func code)))
:disp (- function-pointer-type other-pointer-type)))
(inst add func code)))
-;;; REMOVEME
-(defknown %function-self (function) function (flushable))
-
(define-vop (%function-self)
(:policy :fast-safe)
(:translate %function-self)
(define-vop (%function-self)
(:policy :fast-safe)
(:translate %function-self)
@@
-238,9
+235,6
@@
(def-source-transform %funcallable-instance-function (fin)
`(%function-self ,fin))
(def-source-transform %funcallable-instance-function (fin)
`(%function-self ,fin))
-;;; REMOVEME
-(defknown (setf %function-self) (function function) function (unsafe))
-
(define-vop (%set-function-self)
(:policy :fast-safe)
(:translate (setf %function-self))
(define-vop (%set-function-self)
(:policy :fast-safe)
(:translate (setf %function-self))