;; :VARIABLE :TYPE is in the db only if it is declared, so no need to
;; check.
(let ((type (info :variable :type symbol)))
;; :VARIABLE :TYPE is in the db only if it is declared, so no need to
;; check.
(let ((type (info :variable :type symbol)))
(let ((spec (type-specifier type)))
(error 'simple-type-error
:format-control "Cannot ~@? to ~S (not of type ~S.)"
(let ((spec (type-specifier type)))
(error 'simple-type-error
:format-control "Cannot ~@? to ~S (not of type ~S.)"