diff --git a/compiler/node.lisp b/compiler/node.lisp
index 07f9ec935758a6195760cb50019c62d4574b13dc..c1a41803740a5349f4cdcc4f93270a30dc18d3f5 100644
--- a/compiler/node.lisp
+++ b/compiler/node.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/node.lisp,v 1.26 1992/09/22 00:02:26 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/node.lisp,v 1.26.1.1 1993/02/08 22:11:10 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -36,8 +36,9 @@
 				     lambda cleanup cookie
 				     interface-cookie options)))
   ;;
-  ;; Alist (name . what), where What is either a Functional (a local function)
-  ;; or a list (MACRO . <function>) (a local macro, with the specifier
+  ;; Alist (name . what), where What is either a Functional (a local function),
+  ;; a DEFINED-FUNCTION, representing an INLINE/NOTINLINE declaration, or
+  ;; a list (MACRO . <function>) (a local macro, with the specifier
   ;; expander.)    Note that Name may be a (SETF <name>) function.
   (functions nil :type list)
   ;;
@@ -699,7 +700,7 @@
   kind)
 
 
-;;; The Slot-Accessor structure represents defstruct slot accessors.  It is a
+;;; The Slot-Accessor structure represents slot accessor functions.  It is a
 ;;; subtype of Global-Var to make it look more like a normal function.
 ;;;
 (defstruct (slot-accessor (:include global-var
@@ -708,10 +709,12 @@
 			  (:print-function %print-slot-accessor))
   ;;
   ;; The description of the structure that this is an accessor for.
-  (for (required-argument) :type defstruct-description)
+  (for (required-argument)
+       :type #+ns-boot (or class defstruct-description)
+       #-ns-boot class)
   ;;
   ;; The slot description of the slot.
-  (slot (required-argument) :type defstruct-slot-description))
+  (slot (required-argument)))
 
 (defprinter slot-accessor
   name