Mercurial > hg > amuse
comparison base/methods.lisp @ 284:435834b86119
rollback the amuse.asd generics/classes dependency fix
Ignore-this: be4e0351d31f24f5348cc8dc434477dc
Fix properly this time by moving the specialized get-constituents method from generics to methods.
rolling back:
Wed Jan 23 15:55:34 GMT 2008 Jamie Forth <j.forth@gold.ac.uk>
* Fixed amuse.asd dependency - generics depends on classes.
M ./amuse.asd -2 +2
darcs-hash:20090524164116-16a00-2b561eab1a5829a251eb5e9b40357945af13e6a6.gz
author | j.forth <j.forth@gold.ac.uk> |
---|---|
date | Sun, 24 May 2009 17:41:16 +0100 |
parents | e52b6eb30408 |
children | ed3ace83c975 |
comparison
equal
deleted
inserted
replaced
283:9d3a016dedf9 | 284:435834b86119 |
---|---|
510 &key initial-element | 510 &key initial-element |
511 (initial-contents nil icp)) | 511 (initial-contents nil icp)) |
512 (declare (ignore length o initial-element initial-contents icp)) | 512 (declare (ignore length o initial-element initial-contents icp)) |
513 (%recompute-standard-composition-period (call-next-method))) | 513 (%recompute-standard-composition-period (call-next-method))) |
514 | 514 |
515 (defmethod get-constituents ((identifier composition-identifier)) | |
516 (list (get-composition identifier))) | |
515 | 517 |
516 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 518 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
517 ;; | 519 ;; |
518 ;; Experimental: | 520 ;; Experimental: |
519 ;; | 521 ;; |