(when (equal (getf (cdr s) :home-key) slot)
(let ((val (slot-value model (car s))))
(return-from explode-foreign-key
- (values (if val val (make-instance (getf (cdr s) :join-class))) (getf (cdr s) :foreign-key)))))))
+ (values (if val val (make-instance (getf (cdr s) :join-class)))
+ (getf (cdr s) :foreign-key)))))))
(defun find-join-helper (foreign-key)
(lambda (class slot)
+
(in-package :mewa)
(defparameter *default-type* :ucw)
(unless (equal new old )
(let ((self (ucw::parent slot)))
(setf (modifiedp self) instance
- (modifications self) (append (list (type-of new) (type-of old) (type-of value) slot instance )))))))
\ No newline at end of file
+ (modifications self) (append (list (type-of new) (type-of old) (type-of value) slot instance )))))))
+
+
+;; This software is Copyright (c) Drew Crampsie, 2004-2005.
+;; You are granted the rights to distribute
+;; and use this software as governed by the terms
+;; of the Lisp Lesser GNU Public License
+;; (http://opensource.franz.com/preamble.html),
+;; known as the LLGPL.