From 7129498f766e835230452e4d3e51f8235667646f Mon Sep 17 00:00:00 2001 From: drewc Date: Fri, 17 Jun 2005 02:18:26 -0700 Subject: [PATCH] fixed the breakage i checked in earlier darcs-hash:20050617091826-39164-b5d3722218ca874c9836df400258edcf725de667.gz --- src/mewa/mewa.lisp | 9 +++++++-- src/packages.lisp | 2 +- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp index a264756..0164802 100644 --- 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 --- 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 -- 2.20.1