Skip to content
Browse files

Line breaks.

  • Loading branch information...
1 parent e634c4c commit c7888f189d7a13886659d49ff524f8ddc5a2cc63 @tpapp committed Jun 14, 2011
Showing with 9 additions and 9 deletions.
  1. +9 −9 src/random.lisp
View
18 src/random.lisp
@@ -84,20 +84,20 @@ Also, within BODY, slots are accessible by their names."
(:documentation "Quantile of RANDOM-VARIABLE at Q."))
(defgeneric log-pdf (random-variable x &optional ignore-constant?)
- (:documentation "Log of probability distribution function of RANDOM-VARIABLE at X.
- NIL corresponds to log(-infinity). When IGNORE-CONSTANT?, the result may be
- shifted by an arbitrary real constant that does not change between calls of the
- same RANDOM-VARIABLE. This may save computation, and is useful for MCMC methods,
- etc."))
+ (:documentation "Log of probability distribution function of RANDOM-VARIABLE
+ at X. NIL corresponds to log(-infinity). When IGNORE-CONSTANT?, the result
+ may be shifted by an arbitrary real constant that does not change between
+ calls of the same RANDOM-VARIABLE. This may save computation, and is useful
+ for MCMC methods, etc."))
(defun pdf (rv x &optional ignore-constant?)
- "Probability distribution function of RANDOM-VARIABLE at X. See LOG-PDF for the
-semantics of IGNORE-CONSTANT?."
+ "Probability distribution function of RANDOM-VARIABLE at X. See LOG-PDF for
+the semantics of IGNORE-CONSTANT?."
(~exp (log-pdf rv x ignore-constant?)))
(defmacro maybe-ignore-constant (ignore-constant? value constant)
- "Handle a constant that is calculated only when IGNORE-CONSTANT? is NIL and VALUE
-is not negative infinity (represented by NIL)."
+ "Handle a constant that is calculated only when IGNORE-CONSTANT? is NIL and
+VALUE is not negative infinity (represented by NIL)."
(once-only (value)
`(when ,value
(if ,ignore-constant?

0 comments on commit c7888f1

Please sign in to comment.
Something went wrong with that request. Please try again.