Custom Query (1030 matches)

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.

When running (cl-glut-examples:gears), an exception occurs, and the kernel debugger is invoked.

To reproduce:

In your packages directory, you'll need:

• alexandria
  
• babel
  
• cffi
  
• cl-opengl
  
• trivial-features
  

At the repl:

(asdf:oos 'asdf:load-op :cl-glut-examples)
(cl-glut-examples:gears)

It is believed to be a CFFI and foreign functions related issue. See IRC log of 3rd June, 2009 for more details.

if you start the IDE by doubleclicking on a .lisp file the IDE starts showing tha file. There is no Listener window at this point. if you evaluate something the Listener window appear invoking (not until now) immediately the ccl-init.lisp file...

normal behavior should be that the IDE execute a full start with cc-init and a listener window.