From: Steven Vere
Subject: Function to test if a symbol is the name of a class?
Date: Fri, 10 Nov 1995 00:00:00 +0000
Message-ID: <480onv$bjr@ixnews2.ix.netcom.com>

   I need a function that will test if a symbol is the name of a class,
i.e. (CLASS.NAME? X) should return T if X = 'ALIEN-CRAFT and
ALIEN-CRAFT has been defined to be a class in CLOS.  Can anyone tell me
if this function already exists or how to create it? 
-- 
_____________________________________________________________________
     __    __    __    __    __    __    __    __    __    __    __  
 |__|  |__|  |__|  |__|  |__|  |__|  |__|  |__|  |__|  |__|  |__|  | 
                                                                     
  Steven Vere                                    ····@ix.netcom.com  
  Boulder Creek, California                        
     __    __    __    __    __    __    __    __    __    __    __  
 |__|  |__|  |__|  |__|  |__|  |__|  |__|  |__|  |__|  |__|  |__|  | 
_____________________________________________________________________

• Re: Function to test if a symbol is the name of a class? Ken Anderson
• Re: Function to test if a symbol is the name of a class? Dan Corkill

From: Ken Anderson
Subject: Re: Function to test if a symbol is the name of a class?
Date: Sun, 12 Nov 1995 00:00:00 +0000
Message-ID: <KANDERSO.95Nov12120923@lager.bbn.com>

In article <··········@ixnews2.ix.netcom.com> ····@ix.netcom.com (Steven Vere ) writes:

> 
>    I need a function that will test if a symbol is the name of a class,
> i.e. (CLASS.NAME? X) should return T if X = 'ALIEN-CRAFT and
> ALIEN-CRAFT has been defined to be a class in CLOS.  Can anyone tell me
> if this function already exists or how to create it? 

(find-class x)

From: Dan Corkill
Subject: Re: Function to test if a symbol is the name of a class?
Date: Mon, 13 Nov 1995 00:00:00 +0000
Message-ID: <487l7t$l3v@kernighan.cs.umass.edu>

In article <··········@ixnews2.ix.netcom.com> ····@ix.netcom.com (Steven Vere ) writes:
>   I need a function that will test if a symbol is the name of a class,
>i.e. (CLASS.NAME? X) should return T if X = 'ALIEN-CRAFT and
>ALIEN-CRAFT has been defined to be a class in CLOS.  Can anyone tell me
>if this function already exists or how to create it? 

(find-class x nil)

If you really want to return t (rather than the class object):

(defun CLASS.NAME? (x) (when (find-class x nil) 't))

-- Dan