anchor.diff:  (defun make-int-array (size &key initial-contents)
     "Makes an integer array of SIZE with the package supported integer 
   typed elements."
  +  (declare #.*optimize-settings*)
     (make-typed-array size 'integer-t initial-contents))
   
   (defun make-float-array (size &key initial-contents)
     "Makes a float array of SIZE with the package supported floating point 
   typed elements."
  +  (declare #.*optimize-settings*)
     (make-typed-array size 'double-float initial-contents))
   
   (defparameter *init-integer-array* (make-int-array 0)
  
positive.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun make-typed-array (size type &optional initial-contents)
    "Makes an array of SIZE with elements of TYPE."
    (assert (or (null initial-contents)
                (= size (length initial-contents)))
            (size initial-contents))
    (let ((array (make-array size :element-type type)))
      (when initial-contents
        (loop
           for e in initial-contents
  
negative.code: 
  (defun make-action (&rest args)
    "Makes an action object."
    (declare #.*optimize-settings*)
    (apply #'make-instance 'action args))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  