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

Diff of /mcclim/recording.lisp

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

revision 1.49 by adejneka, Sun Jun 16 06:52:08 2002 UTC revision 1.50 by adejneka, Fri Jun 21 03:24:53 2002 UTC
# Line 246  unspecified. ")) Line 246  unspecified. "))
246    
247  (defgeneric invoke-with-new-output-record (stream continuation record-type  (defgeneric invoke-with-new-output-record (stream continuation record-type
248                                             &rest initargs                                             &rest initargs
249                                               &key
250                                             &allow-other-keys))                                             &allow-other-keys))
251    
252  (defgeneric invoke-with-output-to-output-record  (defgeneric invoke-with-output-to-output-record
253      (stream continuation record-type      (stream continuation record-type
254       &rest initargs       &rest initargs
255         &key
256       &allow-other-keys))       &allow-other-keys))
257    
258  (defgeneric make-design-from-output-record (record))  (defgeneric make-design-from-output-record (record))
# Line 333  recording stream. If it is T, *STANDARD- Line 335  recording stream. If it is T, *STANDARD-
335    (:documentation "Implementation class for the Basic Output Record Protocol."))    (:documentation "Implementation class for the Basic Output Record Protocol."))
336    
337  (defmethod initialize-instance :after ((record basic-output-record)  (defmethod initialize-instance :after ((record basic-output-record)
338                                         &key (x-position 0) (y-position 0)                                         &rest args
339                                         &rest args)                                         &key (x-position 0) (y-position 0))
340    (declare (ignore args))    (declare (ignore args))
341    (with-slots (x1 y1 x2 y2) record    (with-slots (x1 y1 x2 y2) record
342      (setq x1 x-position      (setq x1 x-position
# Line 1282  according to the flags RECORD and DRAW." Line 1284  according to the flags RECORD and DRAW."
1284  (defmethod invoke-with-new-output-record ((stream output-recording-stream)  (defmethod invoke-with-new-output-record ((stream output-recording-stream)
1285                                            continuation record-type                                            continuation record-type
1286                                            &rest initargs                                            &rest initargs
1287                                              &key
1288                                            &allow-other-keys)                                            &allow-other-keys)
1289    (stream-close-text-output-record stream)    (stream-close-text-output-record stream)
1290    (let ((new-record (apply #'make-instance record-type initargs)))    (let ((new-record (apply #'make-instance record-type initargs)))
# Line 1295  according to the flags RECORD and DRAW." Line 1298  according to the flags RECORD and DRAW."
1298  (defmethod invoke-with-output-to-output-record  (defmethod invoke-with-output-to-output-record
1299      ((stream output-recording-stream) continuation record-type      ((stream output-recording-stream) continuation record-type
1300       &rest initargs       &rest initargs
1301         &key
1302       &allow-other-keys)       &allow-other-keys)
1303    (stream-close-text-output-record stream)    (stream-close-text-output-record stream)
1304    (let ((new-record (apply #'make-instance record-type initargs)))    (let ((new-record (apply #'make-instance record-type initargs)))

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

  ViewVC Help
Powered by ViewVC 1.1.5