diff --git a/src/code/x86-vm.lisp b/src/code/x86-vm.lisp
index 3fd8a5f8a55d10bcc8756de1ad3ed295c3c8e321..3adae9862c1bd1aead18ccbeb2d857a545399f6b 100644
--- a/src/code/x86-vm.lisp
+++ b/src/code/x86-vm.lisp
@@ -431,17 +431,7 @@
 ;;; early.
 ;;;
 (defvar *fp-constant-0s0*)
-(defvar *fp-constant-1s0*)
 (defvar *fp-constant-0d0*)
-(defvar *fp-constant-1d0*)
-;;; The long-float constants.
-(defvar *fp-constant-0l0*)
-(defvar *fp-constant-1l0*)
-(defvar *fp-constant-pi*)
-(defvar *fp-constant-l2t*)
-(defvar *fp-constant-l2e*)
-(defvar *fp-constant-lg2*)
-(defvar *fp-constant-ln2*)
 
 ;;; The current alien stack pointer; saved/restored for non-local
 ;;; exits.
diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp
index e8837a6df72e10ae299d52b65ede83e3e0b78342..bb293e3985c1db946c17870becaa91b22d7742bb 100644
--- a/src/compiler/x86/parms.lisp
+++ b/src/compiler/x86/parms.lisp
@@ -351,17 +351,7 @@
 
       ;; The FP constants
       *fp-constant-0d0*
-      *fp-constant-1d0*
       *fp-constant-0s0*
-      *fp-constant-1s0*
-      ;; Following are all long-floats.
-      *fp-constant-0l0*
-      *fp-constant-1l0*
-      *fp-constant-pi*
-      *fp-constant-l2t*
-      *fp-constant-l2e*
-      *fp-constant-lg2*
-      *fp-constant-ln2*
 
       ;; Multi-process support.
       *control-stacks*