From 214faeb5d7a5f7fbb2cac0b1edd44f841e73aa7e Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 7 Mar 2008 01:56:02 +0100
Subject: Add method COERCE-OBJECT (T (EQL :VOID)).

darcs-hash:b093bf9357fecdd28bc81482cb75db967e943e6f
---
 Lisp/type-conversion-policy.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Lisp')

diff --git a/Lisp/type-conversion-policy.lisp b/Lisp/type-conversion-policy.lisp
index 43c3cf3..ec9d071 100644
--- a/Lisp/type-conversion-policy.lisp
+++ b/Lisp/type-conversion-policy.lisp
@@ -22,6 +22,10 @@
   (coerce-object object (typespec-primary-type type)))
 
 
+(defcoercion :void (x)
+  (values))
+
+
 (defcoercion :int (x)
   (coerce-object x 'integer))
 
-- 
cgit v1.2.3