X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fsystem.lisp;h=86cc5001d9d8a3887133589ab22915feb415a56a;hb=872175cd9cb5b4966a36d4bd92421cc407a0355b;hp=95de87fcd205193c424420a0a4aeabe5e716b589;hpb=0c54eadbdfd0a1ec1e47e067de53bdf4a06330c5;p=sbcl.git

diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp
index 95de87f..86cc500 100644
--- 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)))
 
-;;; REMOVEME
-(defknown %function-self (function) function (flushable))
-
 (define-vop (%function-self)
   (:policy :fast-safe)
   (:translate %function-self)
@@ -238,9 +235,6 @@
 (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))