/[cmucl]/src/compiler/macros.lisp
ViewVC logotype

Diff of /src/compiler/macros.lisp

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

revision 1.10 by ram, Wed Sep 19 11:46:17 1990 UTC revision 1.11 by ram, Tue Sep 25 23:09:56 1990 UTC
# Line 435  Line 435 
435                           (parse-deftransform                           (parse-deftransform
436                            lambda-list                            lambda-list
437                            (if policy                            (if policy
438                                `(progn                                `((unless (policy ,n-node ,policy) (give-up))
                                 (unless (policy ,n-node ,policy) (give-up))  
439                                  ,@body)                                  ,@body)
440                                body)                                body)
441                            n-args '(give-up))                            n-args '(give-up))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5