(print-unreadable-object (,inst-var ,streamvar :type t)
(format stream "~@<~@{~S ~@_~S~^ ~_~}~:>"
,@(mappend #'list keys args)))
- (progn ,@body))))
+ (block ,code ,@body))))
,@(and export `((export '(,class-name ,constructor-name
,@(mapcar (lambda (arg)
(symbolicate 'inst- arg))