Skip to content
Snippets Groups Projects
Commit e8e3d438 authored by James Wright's avatar James Wright Committed by Liam Healy
Browse files

Changed 'uniform to :uniform

parent 12db5cd0
No related branches found
No related tags found
No related merge requests found
...@@ -90,7 +90,7 @@ ...@@ -90,7 +90,7 @@
;;; The user-step-function should take a rng pointer, a state pointer, ;;; The user-step-function should take a rng pointer, a state pointer,
;;; and a double-float, and return nothing. The rng pointer should be ;;; and a double-float, and return nothing. The rng pointer should be
;;; used in call to one of the distribution functions like 'uniform. ;;; used in call to one of the distribution functions like :uniform.
;;; typedef void (*gsl_siman_step_t) (const gsl_rng *r, void *xp, double step_size); ;;; typedef void (*gsl_siman_step_t) (const gsl_rng *r, void *xp, double step_size);
(cffi:defcallback sa-step-function :void (cffi:defcallback sa-step-function :void
((rng :pointer) (state :pointer) (step-size :double)) ((rng :pointer) (state :pointer) (step-size :double))
...@@ -197,7 +197,7 @@ ...@@ -197,7 +197,7 @@
(defun trivial-example-step (generator state step-size) (defun trivial-example-step (generator state step-size)
(declare (type double-float step-size) (optimize (speed 3) (safety 1))) (declare (type double-float step-size) (optimize (speed 3) (safety 1)))
(symbol-macrolet ((x (maref state 0))) (symbol-macrolet ((x (maref state 0)))
(let ((rand (sample generator 'uniform))) (let ((rand (sample generator :uniform)))
(declare (type double-float rand)) (declare (type double-float rand))
(setf x (+ (the double-float x) (- (* 2.0d0 rand step-size) step-size)))))) (setf x (+ (the double-float x) (- (* 2.0d0 rand step-size) step-size))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment