# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1701642881 18000
# Node ID 09232fd60df50e0be96ddc5b106fa5e3dc507057
# Parent  f6d74c247168b718cbe327ce5968966bd04b58d8
Add slot-value-or

diff -r f6d74c247168 -r 09232fd60df5 DOCUMENTATION.markdown
--- a/DOCUMENTATION.markdown	Sun Dec 03 17:29:39 2023 -0500
+++ b/DOCUMENTATION.markdown	Sun Dec 03 17:34:41 2023 -0500
@@ -412,6 +412,12 @@
 
 Return the `slot-value` of `slot` in `object`, setting it to `default` if unbound.
 
+### `SLOT-VALUE-OR` (function)
+
+    (SLOT-VALUE-OR OBJECT SLOT &OPTIONAL DEFAULT)
+
+Return the `slot-value` of `slot` in `object`, or `default` if unbound.
+
 ## Package `LOSH.CONTROL-FLOW`
 
 Utilities for managing control flow.
diff -r f6d74c247168 -r 09232fd60df5 src/clos.lisp
--- a/src/clos.lisp	Sun Dec 03 17:29:39 2023 -0500
+++ b/src/clos.lisp	Sun Dec 03 17:34:41 2023 -0500
@@ -46,6 +46,12 @@
        ,@options)))
 
 
+(defun slot-value-or (object slot &optional default)
+  "Return the `slot-value` of `slot` in `object`, or `default` if unbound."
+  (if (slot-boundp object slot)
+    (slot-value object slot)
+    default))
+
 
 (defmacro ensure-slot-value (object slot &optional default)
   "Return the `slot-value` of `slot` in `object`, setting it to `default` if unbound."
diff -r f6d74c247168 -r 09232fd60df5 src/package.lisp
--- a/src/package.lisp	Sun Dec 03 17:29:39 2023 -0500
+++ b/src/package.lisp	Sun Dec 03 17:34:41 2023 -0500
@@ -50,6 +50,7 @@
   (:export
     :defclass*
     :define-condition*
+    :slot-value-or
     :ensure-slot-value))
 
 (defpackage :losh.eldritch-horrors