- #-mcclim
- (stream-set-cursor-position stream label-width label-height)
- #+mcclim
- (setf (stream-set-cursor-position stream)
- (values label-width label-height))
+ (if (find-package 'mcclim)
+ (setf (stream-set-cursor-position stream)
+ (values label-width label-height))
+ (stream-set-cursor-position stream label-width label-height))