/[gcl]/gcl/clcs/gcl_clcs_macros.lisp
ViewVC logotype

Diff of /gcl/clcs/gcl_clcs_macros.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Wed Sep 7 02:37:53 2005 UTC revision 1.5 by camm, Sun Sep 18 01:42:41 2005 UTC
# Line 167  Line 167 
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."

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26