summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-07 01:56:02 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-07 01:56:02 +0100
commit214faeb5d7a5f7fbb2cac0b1edd44f841e73aa7e (patch)
treef0c9ee49e891c311bdcb4206d8acc9bcf64fd024
parent2ce1f6788979af805f4ef40ee06c3f38cd22f4ab (diff)
Add method COERCE-OBJECT (T (EQL :VOID)).
darcs-hash:b093bf9357fecdd28bc81482cb75db967e943e6f
-rw-r--r--Lisp/type-conversion-policy.lisp4
1 files changed, 4 insertions, 0 deletions
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))