From 2a8a526029dbdcfd8bd5a4c40bc5c63ed2a44cf5 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 7 Jul 2018 14:53:53 +0100 Subject: [PATCH] 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. --- doc/SYMBOLS | 1 + src/pset-proto.lisp | 1 + 2 files changed, 2 insertions(+) diff --git a/doc/SYMBOLS b/doc/SYMBOLS index ca7dc8f..dbb5d88 100644 --- 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 --- 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 -- 2.11.0