remove error checking

2022-02-22 06:00:46 +00:00 · 2022-02-22 06:00:46 +00:00 · 914d5dfcdc
parent 65fb98c8c4
commit 914d5dfcdc
1 changed files with 1 additions and 3 deletions
--- a/objective-lisp.lisp
+++ b/objective-lisp.lisp
@ -16,9 +16,7 @@
          for form = (car entry)
          do (setf expr
                   (cond ((consp form) `(,(car form) ,expr ,@(cdr form)))
-                         ((eq form :slot) (prog2
-                                              (unless (cadr entry)
-                                                (error "Unexpected end of list (expected slot name)"))
+                         ((eq form :slot) (prog1
                                              `(slot-value ,expr ',(cadr entry))
                                            (rplacd entry (cddr entry))))
                         ((symbolp form) `(,form ,expr))