From 81ac5b999f1dae8bc821634dc3c3bc43239d8d65 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 17 Aug 2024 21:19:18 -0700
Subject: Add: optional type

---
 petty-types.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'petty-types.lisp')

diff --git a/petty-types.lisp b/petty-types.lisp
index 1d092b9..994f2e9 100644
--- a/petty-types.lisp
+++ b/petty-types.lisp
@@ -41,3 +41,6 @@
   "Type specifier for vectors all of the same TYPE."
   `(satisfies ,(sequence-of-predicate-for 'vector type len)))
 
+(deftype optional (type)
+  "Type specifier for an optional type."
+  `(or null ,type))
-- 
cgit v1.2.3