Paned window

[maurice@oust.irit.fr (Pierre MAURICE)]

   Hello,

 Centaur falls in an infinite loop when I try the following:
          - read a source (Read button of the File menu)
          - build a paned window, one part being an exact copy of
            of the initial window and the other part being a copy
            but displayed with another pretty-printer.
 The following function works well when called from Lisp, after the
source has been read:

 ;; quite the same function given in the Environment Guide
      (de :dupli-paned (ctedit)
    (lets ((sujet ({ctedit}:subject ctedit))
          (clip1 (create-ctview-var "Copie" sujet () () () () () () ))
          (clip2 (create-ctview-var "Autre PPrinter" sujet () () 'another () ()() ))
          )
          (send 'show clip1)
          (send 'show clip2)
          (map-paned 'h clip1 'hv clip2 'hv)
    )
)
  However, when calling this function from  set-environment, Centaur
infinitely executes "map-paned,set-environment,......."
  Here is my function:

  (de {Bool}:set-environment (ctview)
    (:initialize-environment ctview)
    (#:Bool:evaluer:create ctview)  ;;definie dans evaluer.ll
    ;; Dupliquer le ctedit,avec le meme PPrinter et avec un autre (another)
    ;;  (:dupli-paned (send 'object ctview))

    )

 Thanks for your help !

 -------------------------------------------------------------
| Pierre MAURICE           |                                  |
|                          |  e-mail: maurice@irit.fr         |
| Universite Paul Sabatier |                                  |
| IRIT                     |  Phone: +33-61 55.64.22 (67.68)  |
| 118, route de Narbonne   |  Fax: +33-61 52.14.58            |
| F-31062 Toulouse Cedex   |                                  |
 -------------------------------------------------------------