From 98493030b85e2f600f933c3b661f1ecfc8007e15 Mon Sep 17 00:00:00 2001
From: Shinmera <shinmera@tymoon.eu>
Date: Tue, 11 Nov 2014 10:33:36 +0100
Subject: [PATCH] Fix for lists in subblocks leading to an error

---
 property-funcs.lisp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/property-funcs.lisp b/property-funcs.lisp
index 115d1f6..ba61fa1 100644
--- a/property-funcs.lisp
+++ b/property-funcs.lisp
@@ -67,10 +67,12 @@ Only required arguments are allowed."
                  do (typecase next
                       (keyword (return))
                       (list
-                       (let ((resolver (property-function (car next))))
-                         (if resolver
-                             (push (consume readable-list) propvals)
-                             (return))))
+                       (or
+                        (unless (listp (car next))
+                          (let ((resolver (property-function (car next))))
+                            (when resolver
+                              (push (consume readable-list) propvals))))
+                        (return)))
                       (T (push (consume readable-list) propvals))))
            (cons property (nreverse propvals)))
          NIL)