From 65fb98c8c403d5058176431e04fea11511276845 Mon Sep 17 00:00:00 2001 From: ~keith Date: Tue, 22 Feb 2022 05:55:57 +0000 Subject: [PATCH] hopefully fix setf problem --- objective-lisp.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/objective-lisp.lisp b/objective-lisp.lisp index b6d285d..19d798e 100644 --- a/objective-lisp.lisp +++ b/objective-lisp.lisp @@ -16,10 +16,10 @@ for form = (car entry) do (setf expr (cond ((consp form) `(,(car form) ,expr ,@(cdr form))) - ((eq form :slot) (prog1 + ((eq form :slot) (prog2 + (unless (cadr entry) + (error "Unexpected end of list (expected slot name)")) `(slot-value ,expr ',(cadr entry)) - (unless (cdr entry) - (error "Unexpected end of list (expected slot name)")) (rplacd entry (cddr entry)))) ((symbolp form) `(,form ,expr)) (t (error "Unexpected form ~S" form))