167 |
`(BLOCK ,TAG1 |
`(BLOCK ,TAG1 |
168 |
(TAGBODY ,TAG2 |
(TAGBODY ,TAG2 |
169 |
(IF (TYPEP ,PLACE ',TYPE) (RETURN-FROM ,TAG1 NIL)) |
(IF (TYPEP ,PLACE ',TYPE) (RETURN-FROM ,TAG1 NIL)) |
170 |
(RESTART-CASE ,(IF TYPE-STRING |
(RESTART-CASE |
171 |
`(specific-error :wrong-type-argument |
(specific-error :wrong-type-argument |
172 |
"The value of ~S is not ~S." |
"The value ~:@(~S~) is not ~A. (bound to variable ~:@(~S~))" |
173 |
,PLACE ,TYPE-STRING) |
,place ,(or type-string `',type) ',place) |
|
`(specific-error :wrong-type-argument |
|
|
"The value of ~S is not of type ~S." |
|
|
,PLACE ',TYPE)) |
|
174 |
(STORE-VALUE (VALUE) |
(STORE-VALUE (VALUE) |
175 |
:REPORT (LAMBDA (STREAM) |
:REPORT (LAMBDA (STREAM) |
176 |
(FORMAT STREAM "Supply a new value of ~S." |
(FORMAT STREAM "Supply a new value of ~S." |