Custom Query (1030 matches)

(dotimes (i 1000)
  (if (evenp i)
    (process-run-function
      "creator"
      (lambda ()
        (ignore-errors (delete-package :foo))
        (make-package :foo)))
    (process-run-function
      "user"
      (lambda ()
        (ignore-errors (intern "FOO" :foo))))))

Running this a time or two in an x8632 lisp results in errors of the form:

> Error: Fault during read of memory address #x-34F3EA94
> While executing: DELETE-PACKAGE, in process creator(1458).

It appears that delete-package reads/modifies %all-packages% without using the associated locks.

This is compiling a fixnum test into the (incf y inc) for some reason.

? (defun test () (symbol-macrolet ((inc 0.5)) (loop with y = 0 do (incf y inc) while (< y 100))))
TEST
? (test)
> Error: value 0.5 is not of the expected type FIXNUM.
> While executing: TEST, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > 

? (make-random-state t)
> Error: Can't determine primary IP interface
> While executing: CCL::PRIMARY-IP-INTERFACE-ADDRESS, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.

System is Windows XP SP3. CCL is version 1.4.