From 050b602e6c70ee9f950fc9a579377c118fcb7a61 Mon Sep 17 00:00:00 2001 From: espen Date: Wed, 10 Dec 2008 02:40:18 +0000 Subject: [PATCH] New function TYPE-EQUAL-P --- gffi/interface.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gffi/interface.lisp b/gffi/interface.lisp index 6b249a3..084ed47 100644 --- a/gffi/interface.lisp +++ b/gffi/interface.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: interface.lisp,v 1.9 2008-10-08 16:34:07 espen Exp $ +;; $Id: interface.lisp,v 1.10 2008-12-10 02:40:18 espen Exp $ (in-package "GFFI") @@ -445,6 +445,8 @@ (error "~A can not be expanded to ~A" form type)))))) (expand form))) +(defun type-equal-p (type1 type2) + (and (subtypep type1 type2) (subtypep type2 type1))) ;;;; Type methods -- 2.11.0