/[cmucl]/src/code/setf-funs.lisp
ViewVC logotype

Diff of /src/code/setf-funs.lisp

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

revision 1.6.56.1 by rtoy, Thu Feb 25 20:34:52 2010 UTC revision 1.8 by rtoy, Tue Apr 20 17:57:45 2010 UTC
# Line 32  Line 32 
32                              (cons res args)))                              (cons res args)))
33           (setf (,name ,@(rest arglist)) ,(first arglist))))           (setf (,name ,@(rest arglist)) ,(first arglist))))
34       (t       (t
35        (warn _"Hairy setf expander for function ~S." name)        (warn (intl:gettext "Hairy setf expander for function ~S.") name)
36        nil))))        nil))))
37    
38    

Legend:
Removed from v.1.6.56.1  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5