# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1271271095 -3600
# Node ID aa2545163331884eec1251b7f2a8ed647f73f8f7
# Parent  32769840b715a06d457c167998e700a7f873a595
Twiddle meredith methods.

Ignore-this: 57c8ad7ac505841068f1b69498245d1

darcs-hash:20100414185135-16a00-e5e008cec50a531fd23e01e57379adab5fa76c2b.gz

diff -r 32769840b715 -r aa2545163331 implementations/meredith/methods.lisp
--- a/implementations/meredith/methods.lisp	Wed Apr 14 19:36:55 2010 +0100
+++ b/implementations/meredith/methods.lisp	Wed Apr 14 19:51:35 2010 +0100
@@ -1,13 +1,17 @@
 (cl:in-package #:amuse-meredith)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;=====================================================================
 ;;; Specialised constructors
+;;;=====================================================================
+
 (defmethod make-composition-identifier ((package (eql *package*))
 				       composition-id)
   (make-meredith-composition-identifier composition-id))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Compositions
+
+;;;=====================================================================
+;;; Specialized composition methods
+;;;=====================================================================
 
 (defvar *event-attributes*
   #.(clsql:locally-enable-sql-reader-syntax)