core: minor refactor & reformatting
This commit is contained in:
parent
5df104a851
commit
fa1a19a1f0
2 changed files with 2 additions and 2 deletions
|
@ -9,7 +9,7 @@
|
||||||
|
|
||||||
Evaluate BODY with either ARGLIST bound to (cons PROP VAL) or, if ARGLIST is a
|
Evaluate BODY with either ARGLIST bound to (cons PROP VAL) or, if ARGLIST is a
|
||||||
list, the pair is destructured into (CAR . CDR)."
|
list, the pair is destructured into (CAR . CDR)."
|
||||||
(declare (indent defun))
|
(declare (indent 1))
|
||||||
(let ((plist-var (make-symbol "plist")))
|
(let ((plist-var (make-symbol "plist")))
|
||||||
`(let ((,plist-var (copy-sequence ,plist)))
|
`(let ((,plist-var (copy-sequence ,plist)))
|
||||||
(while ,plist-var
|
(while ,plist-var
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue