Mercurial > hg > amuse
changeset 3:e854a73b0328
Add package definition and in-package forms.
darcs-hash:20061025162304-aa3d6-85ddf506c4c08f698cd7057917770c0ce2ce4bf3.gz
| author | m.pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Wed, 25 Oct 2006 17:23:04 +0100 |
| parents | 8fbbb0f14f3c |
| children | ee46db329423 |
| files | classes.lisp conditions.lisp default-methods.lisp generics.lisp |
| diffstat | 4 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/classes.lisp Mon Oct 16 17:07:36 2006 +0100 +++ b/classes.lisp Wed Oct 25 17:23:04 2006 +0100 @@ -1,3 +1,5 @@ +(cl:in-package #:amuse) + ;; basic musical object classes (defclass composition ()
--- a/conditions.lisp Mon Oct 16 17:07:36 2006 +0100 +++ b/conditions.lisp Wed Oct 25 17:23:04 2006 +0100 @@ -1,3 +1,5 @@ +(cl:in-package #:amuse) + ;; Some conditions we might want to be able to signal (define-condition undefined-action (condition)
--- a/default-methods.lisp Mon Oct 16 17:07:36 2006 +0100 +++ b/default-methods.lisp Wed Oct 25 17:23:04 2006 +0100 @@ -1,3 +1,5 @@ +(cl:in-package #:amuse) + ;; Some methods that can be defined in terms of others: ;; Time
--- a/generics.lisp Mon Oct 16 17:07:36 2006 +0100 +++ b/generics.lisp Wed Oct 25 17:23:04 2006 +0100 @@ -3,9 +3,12 @@ ;;;; File: generics.lisp ;;;; Author: Marcus Pearce <m.pearce@gold.ac.uk> ;;;; Created: <2006-10-12 15:14:51 marcusp> -;;;; Time-stamp: <2006-10-12 16:57:51 marcusp> +;;;; Time-stamp: <2006-10-25 17:22:38 marcusp> ;;;; ====================================================================== + +(cl:in-package #:amuse) + ;;; Accessors (do we need the get- prefix?) (defgeneric get-pitch (object &key kind)) ; ?