;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: mop.lisp,v 1.51 2003/04/14 17:50:34 kevin Exp $
+;;;; $Id: mop.lisp,v 1.52 2003/04/15 05:18:22 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
(t
t)))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (when (>= (length (generic-function-lambda-list
+ (ensure-generic-function
+ 'compute-effective-slot-definition)))
+ 3)
+ (push :ho-named-cesd-fun cl:*features*)))
+
(defmethod compute-effective-slot-definition :around ((cl hyperobject-class)
- #-(or scl) name
+ #+ho-named-cesd-fun name
dsds)
#+allegro (declare (ignore name))
(let* ((dsd (car dsds))
:value-constraint (slot-value dsd 'value-constraint)
:null-allowed (slot-value dsd 'null-allowed)
ia)))))
-
+
+
+#+ho-named-cesd-fun
+(setq cl:*features* (delete :ho-named-cesd-fun cl:*features*))
+
(defun value-type-to-lisp-type (value-type)
(case (if (atom value-type)
value-type