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