From 914d5dfcdcbb1be2085becf05f61eced08cfce24 Mon Sep 17 00:00:00 2001 From: ~keith Date: Tue, 22 Feb 2022 06:00:46 +0000 Subject: [PATCH] remove error checking --- objective-lisp.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/objective-lisp.lisp b/objective-lisp.lisp index 19d798e..d576896 100644 --- 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))