From a310ff0da8c12588814d39348481309d30eca0e6 Mon Sep 17 00:00:00 2001 From: Drew Crampsie Date: Wed, 1 Feb 2006 22:53:30 -0800 Subject: [PATCH] adding defdisplay.lisp and backwards-compat.lisp darcs-hash:20060202065330-5417e-43ba7381688c0c804e61f5884083e193c5cd6d54.gz --- lisp-on-lines.asd | 1 + src/backwards-compat.lisp | 13 +++++++++++++ src/defdisplay.lisp | 0 3 files changed, 14 insertions(+) create mode 100644 src/backwards-compat.lisp create mode 100644 src/defdisplay.lisp 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 -- 2.20.1