src/pset-proto.lisp: Export `default-slot-from-property'.

This is really useful for extensions defining new metaobjects.  It was
already documented as an external symbol, but not actually exported.

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index ca7dc8f..dbb5d88 100644 (file)
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -617,6 +617,7 @@ pset-proto.lisp
   check-unused-properties                       function
   coerce-property-value                         generic
   decode-property                               generic
+  default-slot-from-property                    macro
   get-property                                  function
   make-property                                 function
   make-property-set                             function

diff --git a/src/pset-proto.lisp b/src/pset-proto.lisp
index 61793b5..0238f41 100644 (file)
--- a/src/pset-proto.lisp
+++ b/src/pset-proto.lisp
@@ -306,6 +306,7 @@
 ;;;--------------------------------------------------------------------------
 ;;; Utility macros.
 
+(export 'default-slot-from-property)
 (defmacro default-slot-from-property
     ((instance slot &optional (slot-names t))
      (pset property type