Commit | Line | Data |
---|---|---|
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 |