Exemples de listes de paramètres

Voici quelques exemples de listes de paramètres (de McCLIM) :

(defun make-rotation-transformation (angle &optional origin)
  (if origin
      (make-rotation-transformation*
       angle (point-x origin) (point-y origin))
      (make-rotation-transformation* angle 0 0)))

(defun find-frame-manager (&rest options
                           &key port &allow-other-keys)
  (declare (special *frame-manager*))
  (if (boundp '*frame-manager*)
      *frame-manager*
      (if (and *default-frame-manager*
               (frame-manager-p *default-frame-manager*))
          *default-frame-manager*
          (first (frame-managers
                  (or port (apply #'find-port options)))))))

(defun make-pane (type &rest args)
  (apply #'make-pane-1 *pane-realizer*
         *application-frame* type args))



Irene DURAND
2011-10-14