r3518: *** empty log message ***

[hyperobject.git] / metaclass.lisp

diff --git a/metaclass.lisp b/metaclass.lisp
new file mode 100644 (file)
index 0000000..b46ab98
--- /dev/null
+++ b/metaclass.lisp
@@ -0,0 +1,29 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          metaclass.lisp
+;;;; Purpose:       Define options for hyperobject metaclass
+;;;; Programmer:    Kevin M. Rosenberg
+;;;; Date Started:  Apr 2000
+;;;;
+;;;;
+;;;; $Id: metaclass.lisp,v 1.1 2002/11/29 05:05:29 kevin Exp $
+;;;;
+;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
+;;;;
+;;;; *************************************************************************
+ 
+(in-package :hyperobject)
+
+(defparameter *class-options*
+  '(:title :print-slots :description :version :sql-name)
+  "List of class options for hyperobjects.")
+(defparameter *slot-options*
+  '(:print-formatter :description :sql-name
+    :index :subobject :hyperlink :inverse)
+  "Slot options that can appear as an initarg")
+(defparameter *slot-options-no-initarg*
+  '(:ho-type :sql-type)
+  "Slot options that do not have an initarg")
+