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