315 |
(loop (when (null .plist-tail.) (return nil)) |
(loop (when (null .plist-tail.) (return nil)) |
316 |
(setq ,key (pop .plist-tail.)) |
(setq ,key (pop .plist-tail.)) |
317 |
(when (null .plist-tail.) |
(when (null .plist-tail.) |
318 |
(error "Malformed plist in doplist, odd number of elements.")) |
(specific-error :invalid-form |
319 |
|
"Malformed plist in doplist, odd number of elements.")) |
320 |
|
(when (not (symbolp ,key)) |
321 |
|
(specific-error :invalid-form |
322 |
|
"Supplied key is not a symbol.")) |
323 |
(setq ,val (pop .plist-tail.)) |
(setq ,val (pop .plist-tail.)) |
324 |
(progn ,@bod))))) |
(progn ,@bod))))) |
325 |
|
|