Fix code mistakes

Author: neil-lindquist

Diff for: src/expressions.lisp

@@ -61,7 +61,7 @@ constant values are mapped to `+constant+`."
 
        ; arithmetic
        ((+)
-        (sum-linear-expressions-list (mapcar 'parse-linear-expression (rest expr))))
+        (apply 'sum-linear-expressions (mapcar 'parse-linear-expression (rest expr))))
 
        ((*)
         (let ((factors (mapcar #'parse-linear-expression (rest expr)))

Diff for: src/external-formats.lisp

@@ -240,7 +240,7 @@ boundaries are supported."
              (let* ((var (field 3 line :symbol))
                     ;; LB UB intp
                     (attrs (gethash var var-info (list 0 nil nil)))
-                    (bound-type (field 1 line :name-string)))
+                    (bound-type (string-upcase (field 1 line :name-string))))
                (setf (gethash var var-info)
                      (cond
                        ((string= bound-type "LO")