X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=a021148b4ace68ad0b187667c6526e64fff84326;hb=86210c4e406c1b2ff10cc3bac0e71435867db48b;hp=64d4fb31c38477fe65246e36276635b552fb5c62;hpb=cd176690400f8b6fa23faa4dc6fa8494bcbce480;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 64d4fb3..a021148 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -62,6 +62,7 @@
       (funcallable-instance-fun fun)))))
 
 (defun (setf %fun-name) (new-name fun)
+  (aver nil) ; since this is unsafe 'til bug 137 is fixed
   (let ((widetag (widetag-of fun)))
     (case widetag
       ((#.sb!vm:simple-fun-header-widetag