tfelypoc/SHINMERA.s_LASS
1
1
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix for lists in subblocks leading to an error

Browse source
This commit is contained in:
Shinmera 2014-11-11 10:33:36 +01:00
parent 545c454c7d
commit 98493030b8
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
property-funcs.lisp
View file

@ -67,10 +67,12 @@ Only required arguments are allowed."
do (typecase next do (typecase next
(keyword (return)) (keyword (return))
(list (list
(or
(unless (listp (car next))
(let ((resolver (property-function (car next)))) (let ((resolver (property-function (car next))))
(if resolver (when resolver
(push (consume readable-list) propvals) (push (consume readable-list) propvals))))
(return)))) (return)))
(T (push (consume readable-list) propvals)))) (T (push (consume readable-list) propvals))))
(cons property (nreverse propvals))) (cons property (nreverse propvals)))
NIL) NIL)