anchor.diff:      ;; write the parameters:
       (write-kvars nm file)
   
  -    (format t "~&; &Writing initial conditions")
  +    (format t "~&; Writing initial conditions")
       ;; write the initial conditions:
       (format file "~2TINITIAL~%~
                       ~4TWITHIN m DO")
  
positive.code:         (setf *numerica-model* nm)))
  
  
  (defun refresh-parameters (&optional (model *model*))
    "Rewrites the parameters/initial conditions of a model (default is *model*) to the model's initfile."  
    (let* ((name (numerica-model-init-script-name model))
           (path (numerica-model-path model))
           (init-path (numerica-file-path name path)))
      (with-open-file (file init-path :direction :output)
        (write-init-script file model))
      (format t "New parameters file (~A.~A) written to ~A."
              (pathname-name init-path)
              (pathname-type init-path)
              path)))
  
  (defun make-safe-file-name (o)
    (substitute-if-not #\_ #'alphanumericp
  
negative.code:                 ;; write comment
                  (if (numerica-model-ode-comments-p nm)
                      (b-format file "~%~4T# ~A = ~A " v rate))
                  ;; write eqn
                  (write-ode-fn i rate)))
  
      ;; now, we've determine the actual # kvars ...
      ;; go back and scribble at klen-pos
  