X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fhppa%2Fcell.lisp;h=545051c472b6b8f455fcd972f98f5abacf171837;hb=b9e94e326f79ab01e56cb437e424ce5ea489471f;hp=607fe1236abed4541c68febd430bc8b3c7c1538a;hpb=1a3143cca7d6678c094b6bacc485e8531808ea59;p=sbcl.git

diff --git a/src/compiler/hppa/cell.lisp b/src/compiler/hppa/cell.lisp
index 607fe12..545051c 100644
--- a/src/compiler/hppa/cell.lisp
+++ b/src/compiler/hppa/cell.lisp
@@ -208,17 +208,11 @@
   funcallable-instance-info-offset fun-pointer-lowtag
   (descriptor-reg any-reg) * %funcallable-instance-info)
 
-(define-vop (funcallable-instance-lexenv cell-ref)
-  (:variant funcallable-instance-lexenv-slot fun-pointer-lowtag))
-
-
 (define-vop (closure-ref slot-ref)
   (:variant closure-info-offset fun-pointer-lowtag))
 
 (define-vop (closure-init slot-set)
   (:variant closure-info-offset fun-pointer-lowtag))
-
-
 
 ;;;; Value Cell hackery.