Index: /branches/working-0711/ccl/compiler/X86/X8664/x8664-vinsns.lisp
===================================================================
--- /branches/working-0711/ccl/compiler/X86/X8664/x8664-vinsns.lisp	(revision 7895)
+++ /branches/working-0711/ccl/compiler/X86/X8664/x8664-vinsns.lisp	(revision 7896)
@@ -3672,5 +3672,4 @@
   (:anchored-uuo (uuo-error-slot-unbound (:%q dest) (:%q instance) (:%q index))))
 
-#||
 (define-x8664-vinsn eep.address (((dest t))
 				 ((src (:lisp (:ne dest )))))
@@ -3683,14 +3682,5 @@
   :bad
   (:anchored-uuo (uuo-error-eep-unresolved (:%q src) (:%q dest))))
-||#
-
-(define-x8664-vinsn eep.address (((dest t))
-				 ((src (:lisp (:ne dest )))))
-  (movq (:@ (+ (ash 1 x8664::word-shift) x8664::misc-data-offset) (:%q src))
-        (:%q dest))
-  (cmpb (:$b x8664::fulltag-nil) (:%b dest))
-  (jne :ok)
-  (uuo-error-eep-unresolved (:%q src) (:%q dest))
-  :ok)
+
 
 (define-x8664-subprim-lea-jmp-vinsn (heap-cons-rest-arg) .SPheap-cons-rest-arg)