From 9035d3c00a4862cdee06b649b34eee6e182e5ab9 Mon Sep 17 00:00:00 2001
From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Mon, 28 Oct 2013 12:18:39 +0100
Subject: [PATCH] Fix compilation problem for non-tuple types.

---
 tuples.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tuples.lisp b/tuples.lisp
index 7b91648..e8b044d 100644
--- a/tuples.lisp
+++ b/tuples.lisp
@@ -219,7 +219,7 @@
          (param-typenames (mapcar #'cadr  param-list))
          (param-elements (mapcar (lambda (param)
                                    (let* ((type-name (cadr param))
-                                          (size (tuple-size type-name))
+                                          (size (and (tuple-typep type-name) (tuple-size type-name)))
                                           (elements (caddr param)))
                                      (or
                                       (if (eq elements :default)
-- 
2.11.4.GIT