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*