/[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.33 by wlott, Thu Jan 14 21:33:01 1993 UTC revision 1.34 by ram, Tue May 11 13:56:57 1993 UTC
# Line 397  Line 397 
397  (defmacro deftransform (name (lambda-list &optional (arg-types '*)  (defmacro deftransform (name (lambda-list &optional (arg-types '*)
398                                            (result-type '*)                                            (result-type '*)
399                                            &key result policy node defun-only                                            &key result policy node defun-only
400                                            eval-name important)                                            eval-name important (when :native))
401                               &body (body decls doc))                               &body (body decls doc))
402    "Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)    "Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)
403                 Declaration* [Doc-String] Form*                 Declaration* [Doc-String] Form*
# Line 453  Line 453 
453      :Important      :Important
454              - If supplied and non-NIL, note this transform as ``important,''              - If supplied and non-NIL, note this transform as ``important,''
455                which means effeciency notes will be generated when this                which means effeciency notes will be generated when this
456                transform fails even if brevity=speed (but not if brevity>speed)"                transform fails even if brevity=speed (but not if brevity>speed)
457        :When {:Native | :Byte | :Both}
458                - Indicates whether this transform applies to native code,
459                  byte-code or both (default :native.)"
460    
461    (when (and eval-name defun-only)    (when (and eval-name defun-only)
462      (error "Can't specify both DEFUN-ONLY and EVAL-NAME."))      (error "Can't specify both DEFUN-ONLY and EVAL-NAME."))
# Line 492  Line 495 
495                     `'(function ,arg-types ,result-type))                     `'(function ,arg-types ,result-type))
496                #'(lambda ,@stuff)                #'(lambda ,@stuff)
497                ,doc                ,doc
498                ,(if important t nil)))))))                ,(if important t nil)
499                  ,when))))))
500    
501  ;;;; Defknown, Defoptimizer:  ;;;; Defknown, Defoptimizer:
502    

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

  ViewVC Help
Powered by ViewVC 1.1.5