anchor.diff:    :authors ("Aneil Mallavarapu"))
   
   (define-var *numerica-model* ())
  +(defvar  *numerica-rate-string-max-length* 2000
  +  "Part of a horrendous kludge to deal with a numerica bug")
   
   (define-function create-numerica-model (name &key 
                                           (vars (progn (format t "~&; Collecting variables...~%") (query ode-var)))
  
positive.code:                 ;; write comment
                  (if (numerica-model-ode-comments-p nm)
                      (b-format file "~%~4T# ~A = ~A " v rate))
                  (with-dimensionless-math (numerica-model-base-units nm)
                                           (format file "~%~4T$c(~S) = ~S;" i rate))))
  
      ;; now, we've determine the actual # kvars ...
      ;; go back and scribble at klen-pos
  
negative.code: ;;; This file is part of little b.
  
  ;;;; The MIT License
  
  