diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index cba638fed0629418f0a90f6601c2e8ec332f7f3a..5758a5b0456a118e00595ba3fd9ba8c762c2ae5e 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.26.1.1 1993/01/23 14:41:11 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.26.1.2 1993/01/27 12:56:25 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -36,7 +36,7 @@
 (in-package "EXTENSIONS")
 (export '(info clear-info define-info-class define-info-type
 	       make-info-environment do-info *info-environment*
-	       compact-info-environment undefine-function-name))
+	       compact-info-environment))
 
 (in-package "C")
 
@@ -1040,7 +1040,7 @@
 
 ;;; If a function is a defstruct slot accessor or setter, then this is the
 ;;; defstruct-definition for the structure that it belongs to.
-(define-info-type function accessor-for (or defstruct-description null)
+(define-info-type function accessor-for (or kernel:defstruct-description null)
   nil)
 
 ;;; If a function is "known" to the compiler, then this is FUNCTION-INFO
@@ -1123,7 +1123,7 @@
 (define-info-type type class (or class null) nil)
 
 (define-info-class typed-structure)
-(define-info-type typed-structure info)
+(define-info-type typed-structure info t nil)
 
 (define-info-class declaration)
 (define-info-type declaration recognized boolean)
@@ -1152,26 +1152,3 @@
 (define-info-type random-documentation stuff list ())
 
 ); defun other-info-init
-
-;;;; Random utilities:
-
-;;; UNDEFINE-FUNCTION-NAME  --  Interface
-;;;
-;;;    Make Name no longer be a function name: clear everything back to the
-;;; default.
-;;;
-(defun undefine-function-name (name)
-  (when name
-    (macrolet ((frob (type &optional val)
-		 `(unless (eq (info function ,type name) ,val)
-		    (setf (info function ,type name) ,val))))
-      (frob info)
-      (frob type (specifier-type 'function))
-      (frob where-from :assumed)
-      (frob inlinep)
-      (frob kind)
-      (frob accessor-for)
-      (frob inline-expansion)
-      (frob source-transform)
-      (frob assumed-type)))
-  (undefined-value))