Custom Query (1030 matches)

If a saved file has been edited then execute-all appears to execute the saved version, not the version in the buffer, e.g:

Put (print 123) into a buffer.

Save it.

Change it to (print 456) but don't save.

Execute all.

Result will be 123, not 456.

Not sure if this is by design, but it's not the behavior I intuitively expect.

I do this:

(defclass scribble-view (ns:ns-view)
  ((path :initform (#/bezierPath ns:ns-bezier-path)))
  (:metaclass ns:+ns-object))

(defun make-scribble-window ()
  (ccl::with-autorelease-pool
   (let* ((rect (ns:make-ns-rect 0 0 300 300))
	  (w (make-instance 'ns:ns-window
			    :with-content-rect rect
			    :style-mask (logior #$NSTitledWindowMask
					       #$NSClosableWindowMask
					       #$NSMiniaturizableWindowMask
					       #$NSResizableWindowMask)
			    :backing #$NSBackingStoreBuffered
			    :defer t))
          (v (make-instance 'scribble-view)))
     (#/setTitle: w #@"Scribble")
     (#/setContentView: w v)
     (#/center w)
     (#/orderFront: w nil)
     (print (slot-value v 'path))
     v)))

(slot-value (make-scribble-window) 'path)

In 32-bit CCL this does what I would expect, namely, return an NS-BEZIER-PATH object. In 64-bit CCL it returns a bogus ObjC object. But the PRINTed value of (slot-value v 'path) is an NS-BEZIER-PATH object, so somehow the PATH slot is being corrupted between the PRINT and returning V from MAKE-SCRIBBLE-WINDOW.

ENCODE-STRING-TO-OCTETS and DECODE-STRING-FROM-OCTETS symbols aren't exported in the CCL package. Also, if I'm not mistaken, they are lacking of documentation too. (As a side note, it'd be helpful for newcomers to assign STRING-TO-OCTETS and OCTETS-TO-STRING aliases to these functions as well.)