X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=metaclass.lisp;h=8b175e77e21cc426d5eee7ba05a05f87088829b3;hb=HEAD;hp=558cbebd4e2db3c0b02c4d69cfce9718522ea3d2;hpb=af7152b8b0612420d327a422fa1d376c21daf3fb;p=hyperobject.git diff --git a/metaclass.lisp b/metaclass.lisp index 558cbeb..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-2003 by Kevin M. Rosenberg +;;;; 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") -