comparison base/generics.lisp @ 139:ebfe054eea1c

Bug fixes from name changes

darcs-hash:20070918114952-f76cc-feb59725a2f67edd6242947a5c2311d0a724cc43.gz

   (:method (md) (make-moment (timepoint md)))
   (:documentation "Coerce any moment, including an
   anchored-period to a moment"))
 
 (defgeneric onset (anchored-period)
-  (:method (apd) (moment apd))
+  (:method (ap) (moment ap))
   (:documentation "Return a moment for the start of an anchored period"))
 (defgeneric (setf onset) (value anchored-period))
 
 ;;; Time Protocol (or moments?)