anchor.diff:  
   (defparameter *maxima-lisp-table-string*
     (loop for (m l) in *maxima-lisp-table*
  -     collect (list (format nil "~a" m) (format nil "~a" l)))
  +     collect (list (princ-to-string m) (princ-to-string l)))
     "*maxima-lisp-table* converted to list of strings")
   
   (defparameter *regex-symbols*
  
positive.code:     (%sqrt sqrt)
      (%sinh sinh)
      (%cosh cosh)
      (%atan atan)
      (%atan2 atan2)
      (%signum signum)
      (%max max))
    "lookup table of maxima > lisp expressions")
  
  (defmethod atan2 ((n1 number)(n2 number))
  
negative.code: (defvar *delay* nil "Check whether to defer evaluation")
  (defvar *maxima-binary* #+win32 "maxima.bat" #+unix "maxima")
  (defvar *maxima-init-expressions* nil)
  
  ;; Utility functions to fix rationals
  
  (defun rat-string-to-ratio (ratstring)
    "Replace Maxima RAT expression with Lisp ratio"
    (regex-replace-all "\\(\\(RAT( SIMP)?( RATSIMP)?\\) (\\d+) (\\d+)\\)" ratstring "\\3/\\4"))
  
  ;; PI and E
  (defparameter %pi '$%pi)
  (defparameter %e '$%e)
  
  ;; Lookup table of maxima vs lisp symbols
  (defparameter *maxima-lisp-table*
    '((mplus +)
      (mminus -)
      (mtimes *)
      (mexpt expt)
      (mlist list)
      (mabs abs)
      (mquotient /)
      (%sin sin)
      (%cos cos)
      (%tan tan)
  