anchor.diff:                             (function (car evaluated-list)))
                         ;; If first element is a mal function unwrap it
                         (if (not (types:mal-fn-p function))
  -                          (return (apply function (cdr evaluated-list)))
  +                          (return (apply (mal-value function)
  +                                         (cdr evaluated-list)))
                             (let* ((attrs (types:mal-attrs function)))
                               (setf ast (cdr (assoc 'ast attrs))
                                     env (make-instance 'env:mal-environment
  
positive.code:   (env:set-env *repl-env*
                 (car binding)
                 (cdr binding)))
  
  (defun eval-sequence (sequence env)
    (map 'list
  
negative.code:   (loop do (let ((line (readline "user> ")))
               (if line (writeline (rep line)) (return)))))
  
  (main)
  