Mercurial > hg > amuse

changeset 95:e99e51c2a8af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
base/generics.lisp: new generic CROTCHET darcs-hash:20070724131457-c0ce4-af1b7bfd497aea94f2103f5d8be211fe451d9bf7.gz
author Marcus Pearce <m.pearce@gold.ac.uk>
date Tue, 24 Jul 2007 14:14:57 +0100
parents 8b5818686d7c
children fade42e8a087
files base/generics.lisp
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/base/generics.lisp	Mon Jul 23 18:06:35 2007 +0100
+++ b/base/generics.lisp	Tue Jul 24 14:14:57 2007 +0100
@@ -98,6 +98,9 @@
   (:documentation "Returns a <moment> representing the point at
   which the anchored period has ended.")
   (:method (apd) (time+ (moment apd) (floating-period apd))))
+(defgeneric crotchet (object) 
+  (:documentation "Returns a period, the duration of which represents
+a crotchet in the time representation used by object."))
 
 ;; others