- (awhen (car (mutex-sql-query ls))
- (destructuring-bind (kpfstr kcuilrl) it
- (make-instance 'ucon :cui cui :pfstr kpfstr
- :lrl (ensure-integer kcuilrl)))))))
+ (let ((tuple (car (mutex-sql-query ls))))
+ (destructuring-bind (kpfstr kcuilrl) tuple
+ (make-instance 'ucon :cui cui :pfstr kpfstr
+ :lrl (ensure-integer kcuilrl)))))))