remove error checking
This commit is contained in:
parent
65fb98c8c4
commit
914d5dfcdc
|
@ -16,9 +16,7 @@
|
||||||
for form = (car entry)
|
for form = (car entry)
|
||||||
do (setf expr
|
do (setf expr
|
||||||
(cond ((consp form) `(,(car form) ,expr ,@(cdr form)))
|
(cond ((consp form) `(,(car form) ,expr ,@(cdr form)))
|
||||||
((eq form :slot) (prog2
|
((eq form :slot) (prog1
|
||||||
(unless (cadr entry)
|
|
||||||
(error "Unexpected end of list (expected slot name)"))
|
|
||||||
`(slot-value ,expr ',(cadr entry))
|
`(slot-value ,expr ',(cadr entry))
|
||||||
(rplacd entry (cddr entry))))
|
(rplacd entry (cddr entry))))
|
||||||
((symbolp form) `(,form ,expr))
|
((symbolp form) `(,form ,expr))
|
||||||
|
|
Loading…
Reference in New Issue