anchor.diff:  
   (defun make-observation (&rest args)
     "Makes an observation object."
  +  (declare #.*optimize-settings*)
     (apply #'make-instance 'observation args))
   
   (defclass action (rl-abstract-type)
  
positive.code: 
  (defun make-action (&rest args)
    "Makes an action object."
    (apply #'make-instance 'action args))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (declaim (inline make-typed-array))
  (defun make-typed-array (size type &optional initial-contents)
    "Makes an array of SIZE with elements of TYPE."
    (declare #.*optimize-settings*)
    (check-type size fixnum)
    (check-type initial-contents list)
    (assert (or (null initial-contents)
                (= (the fixnum size) (length (the list initial-contents))))
            (size initial-contents))
    (let ((array (make-array (the fixnum size) :element-type type)))
      (declare (type simple-array array))
      (when initial-contents
        (loop
           for e in initial-contents
  