Custom Query (1030 matches)

From #ccl on irc, user ecyrb:

(defmacro mk-arr (type init &optional len)
  "Make array with elements of TYPE, initializing."
  (if len `(make-array ,len :element-type ,type :initial-element ,init)
      `(make-array (length ,init) :element-type ,type
        :initial-contents ,init)))

(eval '(the (simple-array simple-string (2))
            (mk-arr 'simple-string '("Jan" "Feb"))))

;Compiler warnings : 
;   In an anonymous lambda form: Undefined function MK-ARR 
> Error: Special operator or global macro-function MK-ARR can't be FUNCALLed or APPLYed 
> While executing: #<Anonymous Function #x30004112FDDF>, in process listener(1). 

From Doug Currie in ​http://clozure.com/pipermail/openmcl-devel/2009-July/010104.html:

Using the IDE "Check for Updates..." menu item seemed to hang -- is there no timeout? I traced it to CCL using the svn program in /usr/bin rather than the newer version I'd installed in /usr/local/bin.

The following test will usually crash CCL within seconds with a malloc heap corruption.

Doesn't crash if I redefine %make-semaphore-ptr to not create a gcable pointer.

(defun run-env () 
  (with-output-to-string (out) 
    (let ((process (run-program "/bin/sh" (list "-c" "env") 
                                :wait t :output out))) 
      (when process 
        (multiple-value-bind (status code) 
            (external-process-status process) 
          (unless (and (eq status :exited) (zerop code)) 
            (error "Shell command failed"))))))) 
 
 
(list 
 (process-run-function "Worker 1" (lambda () (loop (run-env)))) 
 (process-run-function "Worker 2" (lambda () (loop (run-env)))) 
 (process-run-function "GC'er" (lambda () (loop (gc) (sleep (1+ (random 3)))))))