commited new validation system.

[clinton/lisp-on-lines.git] / src / backwards-compat.lisp

diff --git a/src/backwards-compat.lisp b/src/backwards-compat.lisp
deleted file mode 100644 (file)
index 429d325..0000000
--- a/src/backwards-compat.lisp
+++ /dev/null
@@ -1,44 +0,0 @@
-(in-package :lisp-on-lines)
-
-;;;; This file contains various hacks that maintain backwards
-;;;; compat for programs written in older versions of LoL.
-
-;;;; While we try to maintain this, some things just require breaking
-;;;; with the past. You learn to live with it.
-
-
-(defmethod find-old-type (type)
-  type)
-
-;;!legacy string
-(defmethod find-attribute-class-for-type ((type (eql 'mewa-string)))
-  'string-attribute)
-;; legacy int
-(defmethod find-attribute-class-for-type ((type (eql 'mewa-integer)))
-  'integer-attribute)
-
-;; currency
-(defmethod find-attribute-class-for-type ((type (eql 'mewa-currency)))
-  'currency-attribute)
-;; legacy relations
-
-(defmethod find-attribute-class-for-type ((type (eql 'ajax-foreign-key)))
-  'lol::has-a)
-
-
-(defmethod find-attribute-class-for-type ((type (eql 'foreign-key)))
-  'lol::has-a)
-
-(defmethod find-layer-for-type ((type (eql 'mewa-one-line-presentation)))
-  'one-line)
-
-(defmethod find-old-type ((type (eql 'one-line)))
-  'mewa-one-line-presentation)
-
-(defmethod find-old-type ((type (eql 'one-line)))
-  'mewa-one-line-presentation)
-
-
-
-
-