Custom Query (1030 matches)

I think this is a compiler bug.

(defun test-func ()
;;  (declare (optimize (speed 0) (safety 2)))           ;-> success
  (declare (optimize (speed 0) (safety 3)))             ;-> error
  (dotimes (i 10000)
    (remove-if-not #'(lambda (e)
		       (eql i e))
		   '(a))))

(loop for i from 1 to 50000 do
     (format t "i=~A~%" i)
     (let ((t1 (ccl:process-run-function "t1" #'test-func))
	   (t2 (ccl:process-run-function "t2" #'test-func)))
       (ccl:join-process t1)
       (ccl:join-process t2)))

...
i=275
i=276
i=277
i=278
> > Error: Stack overflow on value stack.
> > While executing: CCL::LIST-DELETE-MODERATELY-COMPLEX, in process t2(557).

;;;
;;; #<PROCESS t2(557) [Active] #xC367F56> requires access to Shared
Terminal Input
;;; Type (:y 557) to yield control to this thread.
;;;

It would be very handy to have built-in functions for creating Open and Save panels, similar to MCL's CHOOSE-FILE-DIALOG and CHOOSE-NEW-FILE-DIALOG. These could be used by the IDE and made available to programmers, or they could be example code.

The standalone Cocoa IDE created with (REQUIRE "COCOA-APPLICATION") doesn't work. When you double-click on the icon it launches and the menubar comes up, but no Listener. The console output is attached as a document (hopefully).