From 6d063a77ee61b7d9ad71972541d817775c0b3770 Mon Sep 17 00:00:00 2001 From: drewc Date: Fri, 3 Jun 2005 16:15:09 -0700 Subject: [PATCH] moved mewa package definition to packages.lisp and added the lisp-on-lines package darcs-hash:20050603231509-39164-1bc39117a21a356e0062f21a46aaee8ef886060a.gz --- src/mewa.lisp | 4 +--- src/packages.lisp | 8 ++++++++ 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/src/mewa.lisp b/src/mewa.lisp index 867b5a8..19160fa 100644 --- a/src/mewa.lisp +++ b/src/mewa.lisp @@ -1,6 +1,4 @@ -(defpackage :mewa - (:use :ucw :common-lisp) - (:export :mewa :mewa-object-presentation :mewa-one-line-presentation :find-attribute :set-default-attributes :make-presentation :call-presentation :label :set-attribute :find-class-attributes)) + (in-package :mewa) diff --git a/src/packages.lisp b/src/packages.lisp index 8c971ce..2111530 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -32,3 +32,11 @@ :list-has-many :list-many-to-many)) + +(defpackage :mewa + (:use :ucw :common-lisp) + (:export :mewa :mewa-object-presentation :mewa-one-line-presentation :find-attribute :set-default-attributes :make-presentation :call-presentation :label :set-attribute :find-class-attributes :default-attributes)) + + +(defpackage :lisp-on-lines + (:use :mewa :meta-model :common-lisp :it.bese.ucw)) \ No newline at end of file -- 2.20.1