better keys in sturct mirrors

db4
Doug Coleman 2009-08-31 18:57:03 -05:00
parent fee0953cc4
commit 1732bd730a
1 changed files with 1 additions and 1 deletions

View File

@ -55,4 +55,4 @@ M: array make-mirror <enum> ;
M: vector make-mirror <enum> ;
M: quotation make-mirror <enum> ;
M: object make-mirror <mirror> ;
M: struct make-mirror struct>assoc [ [ class>> ] dip ] assoc-map ;
M: struct make-mirror struct>assoc [ [ [ name>> ] [ class>> ] bi 2array ] dip ] assoc-map ;