~subsetpark/fugue#11: 
Enable nested with-slots

 (with-slots ((x1 x) (y1 y))
             thing1
   (with-slots ((x2 x) (y2 y))
               thing2
     (list (list x1 (thing-x thing1) y1 (thing-y thing1)
                 x2 (thing-x thing2) y2 (thing-y thing2))
           (setq x1 (+ y1 x2))
           (list x1 (thing-x thing1) y1 (thing-y thing1)
                 x2 (thing-x thing2) y2 (thing-y thing2))
           (setf (thing-x thing2) (list x1))
           (list x1 (thing-x thing1) y1 (thing-y thing1)
                 x2 (thing-x thing2) y2 (thing-y thing2)))))

This is how CL does it

Status
RESOLVED FIXED
Submitter
~subsetpark
Assigned to
No-one
Submitted
4 months ago
Updated
2 months ago
Labels
No labels applied.

~subsetpark REPORTED FIXED 2 months ago

Fixed with with-slots-as

Register here or Log in to comment, or comment via email.