X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=blobdiff_plain;f=metaclass.lisp;h=264afa71c8d56a7a4d722e2595a383c145b5b081;hp=e5655f00a3788c2d5756dba64af433f3b583a4be;hb=HEAD;hpb=e638b23eb212a5271daea853d5889e62a54801e4 diff --git a/metaclass.lisp b/metaclass.lisp index e5655f0..8b175e7 100644 --- a/metaclass.lisp +++ b/metaclass.lisp @@ -7,12 +7,9 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; -;;;; $Id$ -;;;; ;;;; This file is Copyright (c) 2000-2006 by Kevin M. Rosenberg ;;;; ************************************************************************* - + (in-package #:hyperobject) (defparameter *class-options* @@ -25,10 +22,9 @@ :subobject :hyperlink :hyperlink-parameters :indexed :inverse :unique :sql-name :null-allowed :stored :input-filter :unbound-lookup :value-constraint :void-text :read-only-groups :hidden-groups :unit - :disable-predicate :view-type :list-of-values) + :compute-cached-value :disable-predicate :view-type :list-of-values) "Slot options that can appear as an initarg") (defparameter *slot-options-no-initarg* '(:ho-type :sql-type :sql-length) "Slot options that do not have an initarg") -