projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r7859: add new function
[umlisp.git]
/
sql-classes.lisp
diff --git
a/sql-classes.lisp
b/sql-classes.lisp
index df00914c2e02d9698af24d61dc3e4a1ebe7fa269..2adc2d81e1a9d6703ae37593b16ad427d21526ba 100644
(file)
--- a/
sql-classes.lisp
+++ b/
sql-classes.lisp
@@
-256,6
+256,12
@@
is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
:pfstr kpfstr
:lrl (ensure-integer kcuilrl))))
:pfstr kpfstr
:lrl (ensure-integer kcuilrl))))
+(defun find-ucon-cui-all (&key (srl *current-srl*))
+ "Return list of CUIs for all ucons"
+ (collect-umlisp-query (mrcon (cui) srl nil nil :order (cui asc)
+ :distinct t)
+ cui))
+
(defun map-ucon-all (fn &key (srl *current-srl*))
"Map a function over all ucon's"
(with-sql-connection (db)
(defun map-ucon-all (fn &key (srl *current-srl*))
"Map a function over all ucon's"
(with-sql-connection (db)