X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/a310ff0da8c12588814d39348481309d30eca0e6..e1645f63189477f1b39a173a41fcbbfefb5e88a6:/src/backwards-compat.lisp

diff --git a/src/backwards-compat.lisp b/src/backwards-compat.lisp
index c2ab9e8..429d325 100644
--- a/src/backwards-compat.lisp
+++ b/src/backwards-compat.lisp
@@ -7,7 +7,38 @@
 ;;;; with the past. You learn to live with it.
 
 
+(defmethod find-old-type (type)
+  type)
+
 ;;!legacy string
 (defmethod find-attribute-class-for-type ((type (eql 'mewa-string)))
   'string-attribute)
+;; legacy int
+(defmethod find-attribute-class-for-type ((type (eql 'mewa-integer)))
+  'integer-attribute)
+
+;; currency
+(defmethod find-attribute-class-for-type ((type (eql 'mewa-currency)))
+  'currency-attribute)
+;; legacy relations
+
+(defmethod find-attribute-class-for-type ((type (eql 'ajax-foreign-key)))
+  'lol::has-a)
+
+
+(defmethod find-attribute-class-for-type ((type (eql 'foreign-key)))
+  'lol::has-a)
+
+(defmethod find-layer-for-type ((type (eql 'mewa-one-line-presentation)))
+  'one-line)
+
+(defmethod find-old-type ((type (eql 'one-line)))
+  'mewa-one-line-presentation)
+
+(defmethod find-old-type ((type (eql 'one-line)))
+  'mewa-one-line-presentation)
+
+
+
+