- (!set-secondary-attribute (code-char i) #.constituent-digit))
- (!set-secondary-attribute #\E #.constituent-expt)
- (!set-secondary-attribute #\F #.constituent-expt)
- (!set-secondary-attribute #\D #.constituent-expt)
- (!set-secondary-attribute #\S #.constituent-expt)
- (!set-secondary-attribute #\L #.constituent-expt)
- (!set-secondary-attribute #\e #.constituent-expt)
- (!set-secondary-attribute #\f #.constituent-expt)
- (!set-secondary-attribute #\d #.constituent-expt)
- (!set-secondary-attribute #\s #.constituent-expt)
- (!set-secondary-attribute #\l #.constituent-expt))
+ (!set-secondary-attribute (code-char i) constituent-digit))
+ (!set-secondary-attribute #\E constituent-expt)
+ (!set-secondary-attribute #\F constituent-expt)
+ (!set-secondary-attribute #\D constituent-expt)
+ (!set-secondary-attribute #\S constituent-expt)
+ (!set-secondary-attribute #\L constituent-expt)
+ (!set-secondary-attribute #\e constituent-expt)
+ (!set-secondary-attribute #\f constituent-expt)
+ (!set-secondary-attribute #\d constituent-expt)
+ (!set-secondary-attribute #\s constituent-expt)
+ (!set-secondary-attribute #\l constituent-expt))