Major patch touching a lot, representing the new lol. is mostly drop-in backwards...
[clinton/lisp-on-lines.git] / src / backwards-compat.lisp
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
10 (defmethod find-old-type (type)
11 type)
12
13 ;;!legacy string
14 (defmethod find-attribute-class-for-type ((type (eql 'mewa-string)))
15 'string-attribute)
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
44