From: Drew Crampsie <drewc@tech.coop>
Date: Thu, 2 Feb 2006 06:53:30 +0000 (-0800)
Subject: adding defdisplay.lisp and backwards-compat.lisp
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/a310ff0da8c12588814d39348481309d30eca0e6

adding defdisplay.lisp and backwards-compat.lisp

darcs-hash:20060202065330-5417e-43ba7381688c0c804e61f5884083e193c5cd6d54.gz
---

diff --git a/lisp-on-lines.asd b/lisp-on-lines.asd
index 00dddf6..5ce02ab 100644
--- a/lisp-on-lines.asd
+++ b/lisp-on-lines.asd
@@ -20,6 +20,7 @@
 				       (:file "presentations")
 				       (:file "slot-presentations")
 				       (:file "slot-presentations/date")
+				       (:file "defdisplay")
 				       (:file "standard-display")
 				       (:file "standard-attributes")
 				       (:file "standard-wrappers")
diff --git a/src/backwards-compat.lisp b/src/backwards-compat.lisp
new file mode 100644
index 0000000..c2ab9e8
--- /dev/null
+++ b/src/backwards-compat.lisp
@@ -0,0 +1,13 @@
+(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.
+
+
+;;!legacy string
+(defmethod find-attribute-class-for-type ((type (eql 'mewa-string)))
+  'string-attribute)
+
diff --git a/src/defdisplay.lisp b/src/defdisplay.lisp
new file mode 100644
index 0000000..e69de29