keith/objective-lisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

hopefully fix setf problem

Browse source
This commit is contained in:
~keith 2022-02-22 05:55:57 +00:00
parent 9b6614fc45
commit 65fb98c8c4
Signed by: keith
GPG key ID: 5BEBEEAB2C73D520
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
objective-lisp.lisp
View file

@ -16,10 +16,10 @@
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) (prog1 ((eq form :slot) (prog2
(unless (cadr entry)
(error "Unexpected end of list (expected slot name)"))
`(slot-value ,expr ',(cadr entry)) `(slot-value ,expr ',(cadr entry))
(unless (cdr entry)
(error "Unexpected end of list (expected slot name)"))
(rplacd entry (cddr entry)))) (rplacd entry (cddr entry))))
((symbolp form) `(,form ,expr)) ((symbolp form) `(,form ,expr))
(t (error "Unexpected form ~S" form)) (t (error "Unexpected form ~S" form))