diff --git a/compiler/generic/primtype.lisp b/compiler/generic/primtype.lisp
index c3fc4b4da2d00e34aa1f5e0c3df9a1585861bb4c..0ae82c9dad7e89fc159a64c97e72991c4237f86c 100644
--- a/compiler/generic/primtype.lisp
+++ b/compiler/generic/primtype.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.7 1992/10/11 21:09:27 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.8 1992/12/05 22:11:35 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.7 1992/10/11 21:09:27 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.8 1992/12/05 22:11:35 wlott Exp $
 ;;;
 ;;; This file contains the machine independent aspects of the object
 ;;; representation and primitive types.
@@ -251,6 +251,11 @@
 	  (part-of base-char))
 	 (cons
 	  (part-of list))
+	 ((dylan::dylan-function dylan::generic-function dylan::exit-function
+	   dylan::next-method-func dylan::method dylan::defined-method
+	   dylan::builtin-method dylan::slot-accessor-method
+	   dylan::slot-setter-method dylan::slot-getter-method)
+	  (part-of function))
 	 (t
 	  (any))))
       (function-type