diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-07 01:56:02 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-07 01:56:02 +0100 |
| commit | 214faeb5d7a5f7fbb2cac0b1edd44f841e73aa7e (patch) | |
| tree | f0c9ee49e891c311bdcb4206d8acc9bcf64fd024 | |
| parent | 2ce1f6788979af805f4ef40ee06c3f38cd22f4ab (diff) | |
Add method COERCE-OBJECT (T (EQL :VOID)).
darcs-hash:b093bf9357fecdd28bc81482cb75db967e943e6f
| -rw-r--r-- | Lisp/type-conversion-policy.lisp | 4 |
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)) |