Я новичок в Лиспе, поэтому, когда я написал функцию в SBCL

(defun subst (new old l)
  (cond   
   ((null l) '())
   ((eq old (car l)) (cons new (cdr l)))
   ((cons (car l) (subst new old (cdr l))))))

выдает ошибку SYMBOL-PACKAGE-LOCKED-ERROR, предупреждение о стиле и предупреждение, пожалуйста, помогите решить ее