diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index 5bdfde42d0a3ac0c3efa5043ddad18dff9c2f0fd..6c1f3bd89e8415ee2cf87e2c049d6ce0ab0e4b3c 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -929,21 +929,22 @@
 ;;; A macro-like function which transforms a call to this function into some
 ;;; other Lisp form.  This expansion is inhibited if inline expansion is
 ;;; inhibited.
-(define-info-type function source-transform (or function null))
+(define-info-type function source-transform (or function null
+						#-new-compiler list))
 
 ;;; The macroexpansion function for this macro.
-;;; ### For now, allow List, since in our bootstrapping environment, a List
-;;; isn't function, but there also isn't any way to coerce a lambda-list to a
-;;; function.
-(define-info-type function macro-function (or function null list)
+(define-info-type function macro-function (or function null
+					      #-new-compiler list)
   nil)
 
 ;;; A function which converts this special form into IR1.
-(define-info-type function ir1-convert (or function null))
+(define-info-type function ir1-convert (or function null
+					   #-new-compiler list))
 
 ;;; A function which gets a chance to do stuff to the IR1 for any call to this
 ;;; function.
-(define-info-type function ir1-transform (or function null))
+(define-info-type function ir1-transform (or function null
+					     #-new-compiler list))
 
 ;;; If a function is an alien-operator, then this is the Alien-Info.
 (define-info-type function alien-operator (or lisp::alien-info null) nil)
@@ -1017,10 +1018,12 @@
       nil))
 
 ;;; Expander function for a defined type.
-(define-info-type type expander (or function null) nil)
+(define-info-type type expander (or function null
+				    #-new-compiler list) nil)
 
 ;;; Print function for a type.
-(define-info-type type printer (or function symbol null) nil)
+(define-info-type type printer (or function symbol null
+				   #-new-compiler list) nil)
 
 ;;; Defstruct description information for a structure type.  DEFINED is the
 ;;; current global definition, and is not shadowed by compilation of
@@ -1047,10 +1050,8 @@
 
 (define-info-type setf documentation (or string null) nil)
 
-;;; ### bootstrap hack...
-;;; Allow List for function for now.
-;;;
-(define-info-type setf expander (or function null list) nil)
+(define-info-type setf expander (or function null 
+				    #-new-compiler list) nil)
 
 ;;; Used for storing random documentation types.  The stuff is an alist
 ;;; translating documentation kinds to values.