> I'm pretty lost here.  What I'd like to achieve is that update-r gets
> called automatically during interactive use (I realize that the
                              ^^^^^^^^^^^^^^^
The following code was modified a bit from the CLG code.  I hope it
helps.

  #+(and :cmu (not :cmu19a))
  (let ((interactive-eval #'ext:interactive-eval))
    (declare (function interactive-eval))
    (defun ext:interactive-eval (form)
      (let ((values (multiple-value-list (funcall interactive-eval form))))
        (UPDATE-R)
        (values-list values))))

  #+:cmu19a
  (fwrappers:define-fwrapper UPDATE-R-FWRAPPER (form)
    (let ((values (multiple-value-list (fwrappers:call-next-function form))))
      (UPDATE-R)
      (values-list values)))

  #+:cmu19a
  (fwrappers:fwrap 'ext:interactive-eval #'UPDATE-R-FWRAPPER
                   :type :update-r)

Have you ever taken a look at http://www.stats.uwaterloo.ca/Quail?  
It's graphics use an approach quite different from the one of S/R.

Best,

-cph


Reply via email to