- ,(mapcar (lambda (cooked-slot raw-slot key)
- `(,raw-slot :initarg ,key
- :reader ,(symbolicate 'inst- cooked-slot)))
- cooked raw keys))
+ ,(mapcar (lambda (public-slot private-slot key)
+ `(,private-slot :initarg ,key
+ :reader ,(symbolicate 'inst- public-slot)))
+ public private keys))