Re: Fwd: Intel native MCL

FRED fans might like this patch too:

;;; Fix copy-region-to-input to work like FRED did
(defun mark-in-region-p (mark region)
  (and (mark<= (region-start region) mark) (mark<= mark (region-end region))))

(defun input-offset ()
  (if (hi::region-active-p)
    0
    (let* ((mark (current-point))
           (history (value input-regions))
           (region (find mark history :key 'car :test 'mark-in-region-p)))
      (and region (count-characters (region mark (region-end (car region))))))))

(defun copy-region-to-input (region)
  (when region
    (let* ((region-string (region-to-string region))
           (end-mark (region-end (buffer-region (current-buffer))))
           (offset (or (input-offset) 0)))
      (move-mark (current-point) end-mark)
      (insert-string (current-point) region-string)
      (buffer-end (current-point))
      (character-offset (current-point) (- offset)))))


Both of these have to be (in-package :hemlock)

On Jun 6, 2011, at 9:08 AM, Ron Garret wrote:

> ;;; 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)))
> 
> On Jun 6, 2011, at 12:24 AM, Benjamin Perrault wrote:
> 
>> Agreed. Broken in many a facet.
>> 
>> This is just an example of why MCLIDE and MCL "feel" right. 
>> 
>> They don't have ( or as many at least ) wonky behaviors, which furthers my concern that these will go away when Lion comes around. 
>> 
>> The fact is that MCL or MCLIDE ontop of Clozure CL is a substantially better experience and I have to wonder if, though perhaps the technical merits of migrating things to the intel platform may not be there, the end user experience is worth the pain. Frankly, I don't want to end up back in Emacs + SLIME world - which isn't nearly as nice a place to work as FRED and the general MCL / MCLIDE environment.
>> 
>> 
>> On Jun 5, 2011, at 11:55 PM, Toomas Altosaar wrote:
>> 
>>> Figured out what was happening but not what went wrong:
>>> 
>>> My repeated evaluations were actually being processed by Clozure CL but the Listener window was not scrolling to the correct location. It just sat at the same location giving no indication that new lines were being sent to it.
>>> 
>>> I realized this when calling up the backtrace window and realizing that I was in an error situation. I also realized that I could scroll the Listener downwards for pages (via mouse scrolling) ... while the buffer location indicator didn't move. Once at the bottom it seems like he Hemlock buffer is now in synchronization with reality.
>>> 
>>> It is just these types of things that scares me enough to stay away.
>>> 
>>> Basic broken functionality.
>>> 
>>> 
>>> 10 >
>>>> Error: value NIL is not of the expected type NUMBER.
>>>> While executing: CCL::+-2, in process Listener(6).
>>>> Type cmd-. to abort, cmd-\ for a list of available restarts.
>>>> Type :? for other options.
>>> 11 >
>>>> Error: value NIL is not of the expected type NUMBER.
>>>> While executing: CCL::+-2, in process Listener(6).
>>>> Type cmd-. to abort, cmd-\ for a list of available restarts.
>>>> Type :? for other options.
>>> 12 >
>>>> Error: value NIL is not of the expected type NUMBER.
>>>> While executing: CCL::+-2, in process Listener(6).
>>>> Type cmd-. to abort, cmd-\ for a list of available restarts.
>>>> Type :? for other options.
>>> 13 >
>>> _______________________________________________
>>> info-mcl mailing list
>>> [email protected]
>>> http://clozure.com/mailman/listinfo/info-mcl
>> 
>> _______________________________________________
>> info-mcl mailing list
>> [email protected]
>> http://clozure.com/mailman/listinfo/info-mcl
> 
> _______________________________________________
> info-mcl mailing list
> [email protected]
> http://clozure.com/mailman/listinfo/info-mcl

_______________________________________________
info-mcl mailing list
[email protected]
http://clozure.com/mailman/listinfo/info-mcl