Mercurial > hg > amuse
comparison conditions.lisp @ 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 | cb470aecc3b0 |
comparison
equal
deleted
inserted
replaced
| 2:8fbbb0f14f3c | 3:e854a73b0328 |
|---|---|
| 1 (cl:in-package #:amuse) | |
| 2 | |
| 1 ;; Some conditions we might want to be able to signal | 3 ;; Some conditions we might want to be able to signal |
| 2 | 4 |
| 3 (define-condition undefined-action (condition) | 5 (define-condition undefined-action (condition) |
| 4 ;; This condition would apply to an attempt to perform a meaningless | 6 ;; This condition would apply to an attempt to perform a meaningless |
| 5 ;; operation on an object. This may, initially, include things that | 7 ;; operation on an object. This may, initially, include things that |