(defun foo (car-make)
  (let ((color "blue"))
    (declare (special color))
    (bar car-make)))

(defun bar (car-make)
  (print (concatenate 'string
		      "Car-make: "
		      " with color "
		      color)))

(foo "Honda")