compile-when all the situations for match1 macro

coalton-lang · Jul 17, 2023 · 1b08d6d · 1b08d6d
1 parent e2baa71
commit 1b08d6d
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/library/pseq.lisp b/library/pseq.lisp
@@ -38,10 +38,11 @@
 ;;; 
 
 ;;; Private utility macro for convenient matching of a single case of a ADT
-(cl:defmacro match1 (pattern form cl:&body body)
-  `(match ,form
-     (,pattern ,@body)
-     (_ (unreachable))))
+(cl:eval-when (:compile-toplevel :load-toplevel :execute)
+  (cl:defmacro match1 (pattern form cl:&body body)
+    `(match ,form
+       (,pattern ,@body)
+       (_ (unreachable)))))
 
 (coalton-toplevel