Fix for lists in subblocks leading to an error

2014-11-11 10:33:36 +01:00 · 2014-11-11 10:33:36 +01:00 · 98493030b8
parent 545c454c7d
commit 98493030b8
1 changed files with 6 additions and 4 deletions
--- 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)