1 (in-package :lisp-on-lines
)
3 ;;;; This file contains various hacks that maintain backwards
4 ;;;; compat for programs written in older versions of LoL.
6 ;;;; While we try to maintain this, some things just require breaking
7 ;;;; with the past. You learn to live with it.
10 (defmethod find-old-type (type)
14 (defmethod find-attribute-class-for-type ((type (eql 'mewa-string
)))
17 (defmethod find-attribute-class-for-type ((type (eql 'mewa-integer
)))
21 (defmethod find-attribute-class-for-type ((type (eql 'mewa-currency
)))
25 (defmethod find-attribute-class-for-type ((type (eql 'ajax-foreign-key
)))
29 (defmethod find-attribute-class-for-type ((type (eql 'foreign-key
)))
32 (defmethod find-layer-for-type ((type (eql 'mewa-one-line-presentation
)))
35 (defmethod find-old-type ((type (eql 'one-line
)))
36 'mewa-one-line-presentation
)
38 (defmethod find-old-type ((type (eql 'one-line
)))
39 'mewa-one-line-presentation
)