diff --git a/code/type.lisp b/code/type.lisp index 9cbf6d6986eee6e6e3bff8f9aced0329c4018504..378f26a20deba9bcb4c9099f91bad4d34154995b 100644 --- a/code/type.lisp +++ b/code/type.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.7 1993/03/01 20:09:44 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.8 1993/03/13 17:07:45 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2102,7 +2102,7 @@ ((or numeric-type named-type member-type array-type built-in-class) (values (%typep obj type) t)) (class - (if (if (csubtypep type (specifier-type 'generic-function)) + (if (if (csubtypep type (specifier-type 'funcallable-instance)) (funcallable-instance-p obj) (%instancep obj)) (if (eq (class-layout type)