(defun foo (a)
	      (let ((color "black"))
		(let ((car-make a))
		  (print (concatenate 'string
				      "Car Make: "
				      car-make
				      " with color "
				      color)))))

(foo "ford")