You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
72 lines
1.8 KiB
72 lines
1.8 KiB
;;;;
|
|
;;;; classes.lisp ENSICAEN 2006-02-01
|
|
;;;;
|
|
;;;; @author MASSE Nicolas (2005-Groupe4-LIMIN) <nicolas27.masse@laposte.net>
|
|
;;;; @author LIMIN Thomas (2005-Groupe4-MASSE) <thomas.limin@laposte.net>
|
|
;;;;
|
|
;;;; ENSICAEN
|
|
;;;; 6 Boulevard Marechal Juin
|
|
;;;; F-14050 Caen Cedex
|
|
;;;;
|
|
;;;; Ce fichier est l'oeuvre d'eleves de l'ENSI de Caen. Il ne peut etre
|
|
;;;; reproduit, utilise ou modifie sans l'avis express de ses auteurs.
|
|
|
|
|
|
;;;;
|
|
;;;; Package definition
|
|
;;;;
|
|
|
|
(in-package :net.homeip.nmasse.lisp.tp1.meta)
|
|
|
|
|
|
;;;;
|
|
;;;; Classes definition
|
|
;;;;
|
|
|
|
|
|
;;;
|
|
;;; This slot meta-object implements a reflex in order to keep a set of
|
|
;;; all the values of this slot
|
|
;;;
|
|
(defclass generic-example-direct-slot-definition
|
|
(clos:standard-direct-slot-definition)
|
|
()
|
|
(:documentation "This slot meta-object implements a reflex in order to
|
|
keep a set of all the values of this slot")
|
|
)
|
|
|
|
;;;
|
|
;;; This is a class metaobject, it allows reflexes when creating and
|
|
;;; initializing the slots of its objects.
|
|
;;;
|
|
(defclass generic-example-class (standard-class)
|
|
((attributes
|
|
:reader read-attributes
|
|
:writer write-attributes
|
|
:initform nil
|
|
:documentation "A map of attribute's names with a set
|
|
of their values")
|
|
(class-attribute
|
|
:reader read-class-attribute
|
|
:writer write-class-attribute
|
|
:initform nil
|
|
:documentation "The name of the attribute which holds the decision.")
|
|
(att-names
|
|
:reader attribute-names
|
|
:writer write-attribute-names
|
|
:initform nil
|
|
:documentation "The list of all the attribute names."))
|
|
(:documentation "This is a metaclass object."))
|
|
|
|
;;;
|
|
;;; Base class of all examples, its purpose is mainly type checking.
|
|
;;;
|
|
(defclass generic-example ()
|
|
()
|
|
(:documentation ""))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|