(with-sql-connection (db)
(clsql:map-query
'list
- #'(lambda (cui pfstr cuilrl)
- (make-instance 'ucon :cui (ensure-integer cui)
- :pfstr pfstr
- :lrl (ensure-integer cuilrl)))
+ #'(lambda (tuple)
+ (destructuring-bind (cui pfstr cuilrl) tuple
+ (make-instance 'ucon :cui (ensure-integer cui)
+ :pfstr pfstr
+ :lrl (ensure-integer cuilrl))))
(query-string mrcon (cui kpfstr kcuilrl) srl nil nil
:order (cui asc) :distinct t)
:database db)))
(with-sql-connection (db)
(clsql:map-query
nil
- #'(lambda (cui pfstr cuilrl)
- (funcall fn
- (make-instance 'ucon :cui (ensure-integer cui)
- :pfstr pfstr
- :lrl (ensure-integer cuilrl))))
+ #'(lambda (tuple)
+ (destructuring-bind (cui pfstr cuilrl) tuple
+ (funcall fn
+ (make-instance 'ucon :cui (ensure-integer cui)
+ :pfstr pfstr
+ :lrl (ensure-integer cuilrl)))))
(query-string mrcon (cui kpfstr kcuilrl) srl nil nil :order (cui asc)
:distinct t)
:database db)))
(with-sql-connection (db)
(clsql:map-query
'list
- #'(lambda (cui lui sui stt lrl pfstr)
- (make-instance 'ustr :cui (ensure-integer cui)
- :lui (ensure-integer lui) :sui (ensure-integer sui)
- :stt stt :str pfstr
- :cuisui (make-cuisui (ensure-integer cui)
- (ensure-integer sui))
- :lrl (ensure-integer lrl)))
+ #'(lambda (tuple)
+ (destructuring-bind (cui lui sui stt lrl pfstr) tuple
+ (make-instance 'ustr :cui (ensure-integer cui)
+ :lui (ensure-integer lui) :sui (ensure-integer sui)
+ :stt stt :str pfstr
+ :cuisui (make-cuisui (ensure-integer cui)
+ (ensure-integer sui))
+ :lrl (ensure-integer lrl))))
(query-string mrcon (cui lui sui stt lrl kpfstr) srl nil nil :lrl lrl
:distinct t
:order (sui asc))