fixed the breakage i checked in earlier

darcs-hash:20050617091826-39164-b5d3722218ca874c9836df400258edcf725de667.gz

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index a264756..0164802 100644 (file)
--- a/src/mewa/mewa.lisp
+++ b/src/mewa/mewa.lisp
@@ -85,7 +85,12 @@ attributes is an alist keyed on the attribute nreeame."
 
 
 (defmethod default-attributes ((model t))
-  (append (mapcar #'(lambda (s) (cons (car s) (gen-pslot (if (meta-model:foreign-key-p model (car s))
+  (append (mapcar #'(lambda (s) 
+                     (cons (car s) 
+                           (gen-pslot 
+                            (if (meta-model:foreign-key-p model
+                                                          'ucw::foreign-key
+                                                          (car s))
                                                   (cadr s))
                                                 (string (car s)) (car s)))) 
          (meta-model:list-slot-types model))
@@ -266,7 +271,7 @@ attributes is an alist keyed on the attribute nreeame."
   (answer nil))
 
 (defaction save-instance ((self mewa))
-  (meta-modqel:sync-instance (instance self))
+  (meta-model:sync-instance (instance self))
    (setf (modifiedp self) nil)
        (answer self))
 

diff --git a/src/packages.lisp b/src/packages.lisp
index 1b9f849..aaa6944 100644 (file)
--- a/src/packages.lisp
+++ b/src/packages.lisp
@@ -36,7 +36,7 @@
 
 (defpackage :mewa 
   (:use :ucw :common-lisp)
-  (:export :mewa :mewa-object-presentation :mewa-one-line-presentation :find-attribute :set-default-attributes :make-presentation :call-presentation :label :set-attribute :find-class-attributes :default-attributes))
+  (:export :mewa :mewa-object-presentation :mewa-one-line-presentation :find-attribute :set-default-attributes :make-presentation :call-presentation :label :set-attribute :find-class-attributes :default-attributes :ok))
 
 
 (defpackage :lisp-on-lines