X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffloat-trap.lisp;h=897d3109f571907e07c41060346bc6550c03cef3;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=429c5df87b03b8fa7645e7f37857268a1631d76c;hpb=bd4f596b07e3783992e00eae88afdc05ebe7c6a6;p=sbcl.git diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp index 429c5df..897d310 100644 --- a/src/code/float-trap.lisp +++ b/src/code/float-trap.lisp @@ -47,8 +47,8 @@ ;;; interpreter stubs for floating point modes get/setters for the ;;; alpha have been removed to alpha-vm.lisp, as they are implemented -;;; in C rather than as VOPs. -#!-(or alpha x86-64) +;;; in C rather than as VOPs. Likewise for x86-64 and mips. +#!-(or alpha x86-64 mips) (progn (defun floating-point-modes () (floating-point-modes))