From aea083af702583678d086b596f90d5308b31797d Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 31 Aug 2006 04:33:42 +0000 Subject: [PATCH] r11083: add some clisp support --- debian/changelog | 6 ++++++ hyperobject-tests.asd | 1 - hyperobject.asd | 10 ++++------ package.lisp | 17 ++++++++++++++--- 4 files changed, 24 insertions(+), 10 deletions(-) diff --git a/debian/changelog b/debian/changelog index 6a38bb4..52b5d7b 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-hyperobject (2.9.3-1) unstable; urgency=low + + * Support CLISP + + -- Kevin M. Rosenberg Wed, 30 Aug 2006 22:18:00 -0600 + cl-hyperobject (2.9.2-1) unstable; urgency=low * Use initialize-instance :around for direct-slot-definition to be diff --git a/hyperobject-tests.asd b/hyperobject-tests.asd index 4da2c76..054db1b 100644 --- a/hyperobject-tests.asd +++ b/hyperobject-tests.asd @@ -22,4 +22,3 @@ (or (funcall (intern (symbol-name '#:do-tests) (find-package '#:regression-test))) (error "test-op failed"))) - diff --git a/hyperobject.asd b/hyperobject.asd index 711cb74..5cb624b 100644 --- a/hyperobject.asd +++ b/hyperobject.asd @@ -13,15 +13,14 @@ (defpackage hyperobject-system (:use #:asdf #:cl)) (in-package :hyperobject-system) -#+(or allegro lispworks sbcl cmu scl openmcl) -(defsystem hyperobject +(defsystem hyperobject :name "hyperobject" :author "Kevin M. Rosenberg " :version "2.7.x" :maintainer "Kevin M. Rosenberg " :licence "BSD-like License" - :components + :components ((:file "package") (:file "metaclass" :depends-on ("package")) (:file "mop" :depends-on ("metaclass")) @@ -33,10 +32,9 @@ ) :depends-on (:kmrcl :clsql)) -#+(or allegro lispworks sbcl cmu scl openmcl) (defmethod perform ((o test-op) (c (eql (find-system :hyperobject)))) - (oos 'load-op 'hyperobject-tests) - (oos 'test-op 'hyperobject-tests)) + (operate 'load-op 'hyperobject-tests) + (operate 'test-op 'hyperobject-tests :force t)) diff --git a/package.lisp b/package.lisp index f38c860..39664bf 100644 --- a/package.lisp +++ b/package.lisp @@ -62,7 +62,7 @@ '(excl::compute-effective-slot-definition-initargs) #+lispworks '(clos::compute-effective-slot-definition-initargs) - #+kmr-sbcl-mop + #+kmr-sbcl-mop '(sb-pcl::compute-effective-slot-definition-initargs) #+kmr-sbcl-pcl '(sb-pcl:class-of sb-pcl:class-name sb-pcl:class-slots sb-pcl:find-class @@ -76,7 +76,7 @@ sb-pcl:class-prototype sb-pcl:generic-function-method-class sb-pcl:intern-eql-specializer sb-pcl:make-method-lambda sb-pcl:generic-function-lambda-list sb-pcl::class-precedence-list) - #+kmr-cmucl-mop + #+kmr-cmucl-mop '(pcl::compute-effective-slot-definition-initargs) #+kmr-cmucl-pcl '(pcl:class-of pcl:class-name pcl:class-slots pcl:find-class pcl::standard-class @@ -89,12 +89,23 @@ pcl:class-prototype pcl:generic-function-method-class pcl:intern-eql-specializer pcl:make-method-lambda pcl:generic-function-lambda-list pcl::class-precedence-list) + #+clisp + '(clos:class-name clos:class-slots clos:find-class clos::standard-class + clos::slot-definition-name clos:finalize-inheritance + clos::standard-direct-slot-definition clos::standard-effective-slot-definition + clos::validate-superclass clos:direct-slot-definition-class + clos:compute-effective-slot-definition + clos::compute-effective-slot-definition-initargs + clos::slot-value-using-class + clos:class-prototype clos:generic-function-method-class clos:intern-eql-specializer + clos:generic-function-lambda-list + clos::class-precedence-list) #+scl '(clos::compute-effective-slot-definition-initargs clos::class-prototype ;; note: make-method-lambda is not fbound ) - + :hyperobject)) #+sbcl -- 2.34.1