Plaster
New
List
Login
text
default
anonymous
2023.07.12 13:52:52
(define-test with-slots-empty :parent with-slots (let ((class-name (gensym)) (slot-name (gensym))) (is #'equal (eval `(progn #2=(defclass ,class-name () ((,slot-name))) #1=(with-slots ((,slot-name ,slot-name)) (make-instance ',class-name) (setq ,slot-name 234) ,slot-name))) (eval `(progn #2# ,(expand-expression #1#)))))) (let ((class-name (gensym)) (slot-name (gensym))) (eval `(progn #2=(defclass ,class-name () ((,slot-name))) #1=(with-slots ((,slot-name ,slot-name)) (make-instance ',class-name) (setq ,slot-name 234) ,slot-name))))
Raw
Annotate
Repaste
Edit