/[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 by dtc, Sun Jul 19 00:22:19 1998 UTC revision 1.6.56.1 by rtoy, Thu Feb 25 20:34:52 2010 UTC
# Line 13  Line 13 
13  ;;; functions that are currently implemented with setf macros.  ;;; functions that are currently implemented with setf macros.
14  ;;;  ;;;
15  (in-package "KERNEL")  (in-package "KERNEL")
16    (intl:textdomain "cmucl")
17    
18  (eval-when (compile eval)  (eval-when (compile eval)
19    
# Line 31  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 _"Hairy setf expander for function ~S." name)
36        nil))))        nil))))
37    
38    

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

  ViewVC Help
Powered by ViewVC 1.1.5