diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-19 01:17:52 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-19 01:17:52 +0100 |
| commit | 65f8d8bf8e9a709e549917837f7c01a31aad3928 (patch) | |
| tree | 8d7c0b7a5833f6391dac7aac8791bc1071f22422 /Lisp/type-conversion-policy.lisp | |
| parent | b2f4979a6b17a0a2c67c67c9c6d3c83a90b228af (diff) | |
Make TYPESPEC a struct type.
darcs-hash:e915984995e05d399993c4d602a7c4949053ca66
Diffstat (limited to 'Lisp/type-conversion-policy.lisp')
| -rw-r--r-- | Lisp/type-conversion-policy.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Lisp/type-conversion-policy.lisp b/Lisp/type-conversion-policy.lisp index ec9d071..ac99890 100644 --- a/Lisp/type-conversion-policy.lisp +++ b/Lisp/type-conversion-policy.lisp @@ -19,6 +19,9 @@ (defmethod coerce-object (object (type list)) + (coerce-object object (typespec type))) + +(defmethod coerce-object (object (type typespec)) (coerce-object object (typespec-primary-type type))) |