From 6b798ca28c1f9396abcf0adcad61426ad0465ad7 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 13 Mar 1993 14:52:11 +0000 Subject: [PATCH] Export funcallable-structure-class predicate & constructor so that the can be easily used with :ALTERNATE-METACLASS. --- code/class.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/code/class.lisp b/code/class.lisp index eac0012ec..edc607eba 100644 --- a/code/class.lisp +++ b/code/class.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/class.lisp,v 1.15 1993/03/13 14:36:53 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.16 1993/03/13 14:52:11 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -27,7 +27,9 @@ class-proper-name class-layout class-state class-subclasses class-init basic-structure-class funcallable-instance - funcallable-structure-class)) + funcallable-structure-class + make-funcallable-structure-class + funcallable-structure-class-p)) (in-package "LISP") (export '(class structure-class class-name find-class class-of built-in-class)) -- GitLab