/[mcclim]/mcclim/recording.lisp
ViewVC logotype

Diff of /mcclim/recording.lisp

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

revision 1.82 by gilbert, Sun Jun 8 00:34:47 2003 UTC revision 1.83 by adejneka, Sun Jun 8 07:14:56 2003 UTC
# Line 78  Line 78 
78  ;;; 16.2.1. The Basic Output Record Protocol  ;;; 16.2.1. The Basic Output Record Protocol
79  #+:cmu(declaim (ftype (function (output-record) (values rational rational))  #+:cmu(declaim (ftype (function (output-record) (values rational rational))
80                        output-record-position))                        output-record-position))
81    ;; XXX What does #+:CMU mean? FTYPE was excluded from ANSI CL? Other
82    ;; compilers try to check type declarations?
83  (defgeneric output-record-position (record)  (defgeneric output-record-position (record)
84    (:documentation    (:documentation
85     "Returns the x and y position of RECORD. The position is the     "Returns the x and y position of RECORD. The position is the
# Line 1107  were added." Line 1109  were added."
1109                      ;; coord-seq argument into a vector.                      ;; coord-seq argument into a vector.
1110                      (let (,@(when (member 'coord-seq args)                      (let (,@(when (member 'coord-seq args)
1111                                    (list `(coord-seq                                    (list `(coord-seq
1112                                            (if (listp coord-seq)                                            (if (vectorp coord-seq)
1113                                                (coerce coord-seq 'vector)                                                coord-seq
1114                                                coord-seq)))))                                                (coerce coord-seq 'vector))))))
1115                        (make-instance ',class-name                        (make-instance ',class-name
1116                                       :stream stream                                       :stream stream
1117                                       ,@arg-list))))                                       ,@arg-list))))
1118                 (stream-add-output-record stream record)))                 (stream-add-output-record stream record)))
1119             (when (stream-drawing-p stream)             (when (stream-drawing-p stream)
1120               (with-identity-transformation (medium)               (,method-name medium ,@args))))
                (,method-name medium ,@args)))))  
1121         (defmethod replay-output-record ((record ,class-name) stream         (defmethod replay-output-record ((record ,class-name) stream
1122                                          &optional (region +everywhere+)                                          &optional (region +everywhere+)
1123                                          (x-offset 0) (y-offset 0))                                          (x-offset 0) (y-offset 0))

Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83

  ViewVC Help
Powered by ViewVC 1.1.5