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

Diff of /mcclim/recording.lisp

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

revision 1.110 by moore, Sun Jul 25 08:09:22 2004 UTC revision 1.111 by moore, Fri Aug 13 14:10:11 2004 UTC
# Line 613  the associated sheet can be determined." Line 613  the associated sheet can be determined."
613    
614  (defmethod add-output-record :before (child (record compound-output-record))  (defmethod add-output-record :before (child (record compound-output-record))
615    (let ((parent (output-record-parent child)))    (let ((parent (output-record-parent child)))
616      (when parent      (cond (parent
617        (restart-case             (restart-case
618            (error "~S already has a parent ~S." child parent)                 (error "~S already has a parent ~S." child parent)
619          (delete ()               (delete ()
620            :report "Delete from the old parent."                 :report "Delete from the old parent."
621            (delete-output-record child parent))))))                 (delete-output-record child parent))))
622              ((eq record child)
623               (error "~S is being added to itself" record))
624              ((eq (output-record-parent record) child)
625               (error "child ~S is being added to its own child ~S"
626                      child record)))))
627    
628  (defmethod add-output-record :after (child (record compound-output-record))  (defmethod add-output-record :after (child (record compound-output-record))
629    (recompute-extent-for-new-child record child)    (recompute-extent-for-new-child record child)

Legend:
Removed from v.1.110  
changed lines
  Added in v.1.111

  ViewVC Help
Powered by ViewVC 1.1.5