+cl-hyperobject (2.6.2-1) unstable; urgency=low
+
+ * Handle both named/unnamed implementations of
+ compute-effective-slot-definition
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 14 Apr 2003 23:17:13 -0600
+
cl-hyperobject (2.6.1-1) unstable; urgency=low
* New upstream
;;;; 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
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.41 2003/04/12 03:30:52 kevin Exp $
+;;;; $Id: package.lisp,v 1.42 2003/04/15 05:18:22 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;; *************************************************************************
sb-pcl::compute-effective-slot-definition-initargs
sb-pcl::slot-value-using-class
sb-pcl:class-prototype sb-pcl:generic-function-method-class sb-pcl:intern-eql-specializer
- sb-pcl:make-method-lambda)
+ sb-pcl:make-method-lambda sb-pcl:generic-function-lambda-list)
#+cmu
'(pcl:class-of pcl:class-name pcl:class-slots pcl:find-class pcl::standard-class
pcl::slot-definition-name pcl:finalize-inheritance
pcl::compute-effective-slot-definition-initargs
pcl::slot-value-using-class
pcl:class-prototype pcl:generic-function-method-class pcl:intern-eql-specializer
- pcl:make-method-lambda)
+ pcl:make-method-lambda pcl:generic-function-lambda-list)
#+scl
'(clos:class-slots clos::standard-class
clos::slot-definition-name clos:finalize-inheritance
clos::slot-value-using-class
clos::class-prototype clos:generic-function-method-class
;; note: make-method-lambda is not fbound
- clos:intern-eql-specializer clos:make-method-lambda)
+ clos:intern-eql-specializer clos:make-method-lambda
+ clos:generic-function-lambda-list)
:hyperobject))