X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1-translators.lisp;h=e82b3a486e6181146f89a09bf625e18a355bf620;hb=d6cacf136631916da0db8bbe32554ca499e17589;hp=fd4aa84442fbaa1cd709bf0361b4759b31d472c0;hpb=269554bcae55d7e502992ea20932f71790066483;p=sbcl.git

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index fd4aa84..e82b3a4 100644
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -694,10 +694,6 @@
 
 ;;; Assert that FORM evaluates to the specified type (which may be a
 ;;; VALUES type). TYPE may be a type specifier or (as a hack) a CTYPE.
-;;;
-;;; FIXME: In a version of CMU CL that I used at Cadabra ca. 20000101,
-;;; this didn't seem to expand into an assertion, at least for ALIEN
-;;; values. Check that SBCL doesn't have this problem.
 (def-ir1-translator the ((type value) start cont)
   (the-in-policy type value (lexenv-policy *lexenv*) start cont))