projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9599: add rank slot to read ucxt
[umlisp.git]
/
sql-classes.lisp
diff --git
a/sql-classes.lisp
b/sql-classes.lisp
index e70c638d3a485963e4abe5875219b15751ccb811..3a1ac39df773d543fb41266cdcbdd8f90793a373 100644
(file)
--- a/
sql-classes.lisp
+++ b/
sql-classes.lisp
@@
-507,9
+507,10
@@
is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
(defun find-ucxt-cuisui (cui sui &key (srl *current-srl*))
(ensure-cui-integer cui)
(ensure-sui-integer sui)
(defun find-ucxt-cuisui (cui sui &key (srl *current-srl*))
(ensure-cui-integer cui)
(ensure-sui-integer sui)
- (collect-umlisp-query (mrcxt (sab code cxn cxl cxs cui2 hcd rela xc)
+ (collect-umlisp-query (mrcxt (sab
rank
code cxn cxl cxs cui2 hcd rela xc)
srl kcuisui (make-cuisui cui sui) :lrl ksrl)
srl kcuisui (make-cuisui cui sui) :lrl ksrl)
- (make-instance 'ucxt :sab sab :code code
+ (make-instance 'ucxt :sab sab :code code
+ :rank rank
:cxn (ensure-integer cxn) :cxl cxl :cxs cxs :hcd hcd
:rela rela :xc xc
:cui2 (ensure-integer cui2))))
:cxn (ensure-integer cxn) :cxl cxl :cxs cxs :hcd hcd
:rela rela :xc xc
:cui2 (ensure-integer cui2))))