X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=blobdiff_plain;f=package.lisp;h=89aa5ccc0000397de193e0e1b0bd17ba11ba0568;hp=39664bf628cda9d11b93b859c6845d022ab10b38;hb=3a8891dc54f83ccdc16bd4094f75cab2cd3dab6e;hpb=aea083af702583678d086b596f90d5308b31797d

diff --git a/package.lisp b/package.lisp
index 39664bf..89aa5cc 100644
--- a/package.lisp
+++ b/package.lisp
@@ -73,6 +73,7 @@
      sb-pcl::direct-slot-definition-class sb-pcl::compute-effective-slot-definition
      sb-pcl::compute-effective-slot-definition-initargs
      sb-pcl::slot-value-using-class
+     sb-pcl:slot-definition-type
      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)
@@ -88,12 +89,15 @@
      pcl::slot-value-using-class
      pcl:class-prototype pcl:generic-function-method-class pcl:intern-eql-specializer
      pcl:make-method-lambda pcl:generic-function-lambda-list
+     pcl:slot-definition-type
      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:effective-slot-definition-class
+     clos:slot-definition-type
      clos:compute-effective-slot-definition
      clos::compute-effective-slot-definition-initargs
      clos::slot-value-using-class
@@ -103,6 +107,7 @@
    #+scl
    '(clos::compute-effective-slot-definition-initargs
      clos::class-prototype
+     clos:slot-definition-type
      ;; note: make-method-lambda is not fbound
      )