removed warning which caused error
[clinton/lisp-on-lines.git] / src / backwards-compat.lisp
CommitLineData
a310ff0d
DC
1(in-package :lisp-on-lines)
2
3;;;; This file contains various hacks that maintain backwards
4;;;; compat for programs written in older versions of LoL.
5
6;;;; While we try to maintain this, some things just require breaking
7;;;; with the past. You learn to live with it.
8
9
2b0fd9c8
DC
10(defmethod find-old-type (type)
11 type)
12
a310ff0d
DC
13;;!legacy string
14(defmethod find-attribute-class-for-type ((type (eql 'mewa-string)))
15 'string-attribute)
2b0fd9c8
DC
16;; legacy int
17(defmethod find-attribute-class-for-type ((type (eql 'mewa-integer)))
18 'integer-attribute)
19
20;; currency
21(defmethod find-attribute-class-for-type ((type (eql 'mewa-currency)))
22 'currency-attribute)
23;; legacy relations
24
25(defmethod find-attribute-class-for-type ((type (eql 'ajax-foreign-key)))
26 'lol::has-a)
27
28
29(defmethod find-attribute-class-for-type ((type (eql 'foreign-key)))
30 'lol::has-a)
31
32(defmethod find-layer-for-type ((type (eql 'mewa-one-line-presentation)))
33 'one-line)
34
35(defmethod find-old-type ((type (eql 'one-line)))
36 'mewa-one-line-presentation)
37
38(defmethod find-old-type ((type (eql 'one-line)))
39 'mewa-one-line-presentation)
40
41
42
43
a310ff0d 44