use keyword package for for loop keywords, and fix a section comment

Author: David, Mark H

benchmarking/quilc-mon-prof.lisp

@@ -129,53 +129,57 @@
 
 
 
-;;;; SB-SPROF run 20, 50, 80, 110, 140
+;;;; SB-SPROF Runs of Various Flavors
+
+(defparameter *default-sb-sprof-run-nqs*
+  '(20 50 80 110)
+  "Default list of nQ values for running various SB-SPROF calls below.")
 
 (defun sb-sprof-run ()
-  (loop for nq in '(20 50 80 110)
-        do (do-monitor-runs
-             :start nq 
-             :monitor :sb-sprof
-             :repeats 1
-             :report-type :flat)))
+  (loop :for nq :in *default-sb-sprof-run-nqs*
+        :do (do-monitor-runs
+              :start nq 
+              :monitor :sb-sprof
+              :repeats 1
+              :report-type :flat)))
 
 (defun sb-sprof-graph ()
-  (loop for nq in '(20 50 80 110)
-        do (do-monitor-runs
-             :start nq 
-             :monitor :sb-sprof
-             :repeats 1
-             :report-type :flat)))
+  (loop :for nq :in *default-sb-sprof-run-nqs*
+        :do (do-monitor-runs
+              :start nq 
+              :monitor :sb-sprof
+              :repeats 1
+              :report-type :flat)))
 
 (defun sb-sprof-run-high-sample ()
-  (loop for nq in '(20 50 80 110)
-        do (do-monitor-runs
-             :start nq 
-             :monitor :sb-sprof
-             :repeats 1
+  (loop :for nq :in *default-sb-sprof-run-nqs*
+        :do (do-monitor-runs
+              :start nq 
+              :monitor :sb-sprof
+              :repeats 1
 
-             :sample-interval 0.001     ; our default: 0.005
-             :report-type :flat)))
+              :sample-interval 0.001    ; our default: 0.005
+              :report-type :flat)))
 
 (defun sb-sprof-run-high-sample-plus-graph ()
-  (loop for nq in '(20 50 80 110)
-        do (do-monitor-runs
-             :start nq 
-             :monitor :sb-sprof
-             :repeats 1
+  (loop :for nq :in *default-sb-sprof-run-nqs*
+        :do (do-monitor-runs
+              :start nq 
+              :monitor :sb-sprof
+              :repeats 1
 
-             :sample-interval 0.001     ; our default: 0.005
-             :report-type :graph)))     ; our default: :flat
+              :sample-interval 0.001    ; our default: 0.005
+              :report-type :graph)))     ; our default: :flat
 
 (defun sb-sprof-run-mon ()
-  (loop for nq in '(20 50 80 110)
-        do (do-monitor-runs
-             :start nq 
-             :monitor :mon
-             :repeats 1
+  (loop :for nq :in *default-sb-sprof-run-nqs*
+        :do (do-monitor-runs
+              :start nq 
+              :monitor :mon
+              :repeats 1
 
-             :sample-interval 0.001     ; our default: 0.005
-             :report-type :graph)))     ; our default: :flat
+              :sample-interval 0.001    ; our default: 0.005
+              :report-type :graph)))     ; our default: :flat
 
 (defun one-monitor-run-bill-linear (nq)
   (monitor-run :bell :linear nq 1 :mon :flat .0001))