X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-extensions.lisp;h=4c67532b555179c87014d17cb10bba95689cf0b2;hb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;hp=93423409d518188bd94298990848db432dda6418;hpb=d147d512602d761a2dcdfded506dd1a8f9a140dc;p=sbcl.git

diff --git a/src/code/late-extensions.lisp b/src/code/late-extensions.lisp
index 9342340..4c67532 100644
--- a/src/code/late-extensions.lisp
+++ b/src/code/late-extensions.lisp
@@ -25,19 +25,6 @@
        (error "unknown operator in feature expression: ~S." x)))
     (not (null (memq x *features*)))))
 
-;;; KLUDGE: This is a wrapper around stale code for working with floating point
-;;; infinities. I believe that I will eventually eliminate floating point
-;;; infinities from the code, since they're a pain to cross-compile, since they
-;;; significantly increase the number of conditions which need to be tested in
-;;; numeric functions, and since the benefits which they provide (which are
-;;; admittedly significant) are unfortunately not portable. I haven't actually
-;;; done the dirty deed yet, though, and until then, I've wrapped various
-;;; infinity-returning forms in this macro. -- WHN 1999
-(defmacro infinite (x)
-  (declare (ignorable x))
-  #!-sb-infinities '(error 'floating-point-overflow)
-  #!+sb-infinities x)
-
 ;;; Given a list of keyword substitutions `(,OLD ,NEW), and a
 ;;; &KEY-argument-list-style list of alternating keywords and
 ;;; arbitrary values, return a new &KEY-argument-list-style list with