X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/f1ce8b6ee0cbffb2f397fe067a0d0ecc72113791..4e2ecf695f074d4ed79c1099fa56b1d6fce08bfb:/src/mewa/slot-presentations.lisp?ds=sidebyside

diff --git a/src/mewa/slot-presentations.lisp b/src/mewa/slot-presentations.lisp
index 571e9dd..f501b71 100644
--- a/src/mewa/slot-presentations.lisp
+++ b/src/mewa/slot-presentations.lisp
@@ -1,9 +1,11 @@
 (in-package :it.bese.ucw)
 
 (defun multiple-value-funcall->list (function &rest args)
+  "The function to be called by m-v-bf"
 		   (multiple-value-call #'list (apply function args)))
 
 (defmacro multiple-value-bindf (vars form &body body)
+  "Like M-V-B, only it works in actions. form must be a function call"
 		   `(destructuring-bind ,vars 
 		     (multiple-value-funcall->list #',(car form) ,@(cdr form))
 		     ,@body))
@@ -85,12 +87,6 @@ When T, only the default value for primary keys and the joins are updated."))
    (linkedp :accessor linkedp :initarg :linkedp :initform t))
   (:type-name relation))
 
-(defun get-fkey-data (instance slot-name)
-  "ugly workaround b/c UCW does not like M-V-B"
-  (multiple-value-bind (finstance foreign-slot-name)
-      (meta-model:explode-foreign-key instance slot-name)
-    (cons finstance foreign-slot-name)))
-
 (defaction search-records ((slot mewa-relation-slot-presentation) instance)
   (multiple-value-bindf (finstance foreign-slot-name)
       (meta-model:explode-foreign-key instance (slot-name slot))