Re: Fwd: Intel native MCL

Thanks Ron for the patch:

;;; Fix EVAL-REGION to make the result visible
(defcommand "Editor Execute Expression" (p)
   "Executes the current region in the editor Lisp."
   (declare (ignore p))
   (let* ((region (copy-region (current-form-region)))
          (form (region-to-string region))
          (buf (gui::hemlock-buffer (#/topListener 
gui::hemlock-listener-document))))
     (when buf
       (let ((HI::*CURRENT-BUFFER* buf))
         (move-mark (current-point) (region-end (buffer-region buf)))))
     (format (HEMLOCK-EXT:TOP-LISTENER-OUTPUT-STREAM) "~A~&" form)
     (eval-region region)))

as well as the following:

>FRED fans might like this patch too:
>
>;;; Fix copy-region-to-input to work like FRED did

Unfortunately, I don't see yet how one is supposed to use 
copy-region-to-input. Is it a keyboard equivalent of mouse-copy?
_______________________________________________
info-mcl mailing list
[email protected]
http://clozure.com/mailman/listinfo/info-mcl