diff --git a/src/compiler/generic/new-genesis.lisp b/src/compiler/generic/new-genesis.lisp index ee417f41c33c38d9d452c45cbaf2d0611cbd96ab..9523d41fbcf1d33a8152e23c6716f6ad92fdddb4 100644 --- a/src/compiler/generic/new-genesis.lisp +++ b/src/compiler/generic/new-genesis.lisp @@ -2928,9 +2928,8 @@ ;; For x86, identify the core as using either x87 or sse2 ;; instructions. - (cond ((and (eql (c:backend-fasl-file-implementation c:*backend*) - c:x86-fasl-file-implementation) - (c:backend-featurep :sse2)) + (cond ((eql (c:backend-fasl-file-implementation c:*backend*) + c:x86-fasl-file-implementation) (write-long 4) (write-long version) ;; See the definition of fpu_mode_t in lisp.h for correct