Custom Query (1030 matches)

CL-USER> (lisp-implementation-version)
"Version 1.5-dev-r13405M-trunk  (LinuxX8664)"
CL-USER> (type-of (expt 2 64))
(INTEGER 1152921504606846976)
CL-USER> (type-of (expt 2 100))
(INTEGER 1152921504606846976)
CL-USER> (type-of (expt 2 1000))
(INTEGER 1152921504606846976)
CL-USER> (type-of (expt 2 10000))
(INTEGER 1152921504606846976)

I'm using "Version 1.4-r13122 (WindowsX8632)", on a windows xp professional box (with Service pack 3)

while working on a project I found that ccl does not understand the result-form of the dolist macro.

double checking with CLHS to insure i didn't make fool of myself. ​http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/mac_dolist.html

and then taking one of the examples from the above page:

(dolist (temp-one '(1 2 3 4) temp-two) (push temp-one temp-two))

gave me the following in ccl:

Welcome to Clozure Common Lisp Version 1.4-r13122  (WindowsX8632)!
?  (dolist (temp-one '(1 2 3 4) temp-two) (push temp-one temp-two))
;Compiler warnings :
;   In an anonymous lambda form: Undeclared free variable TEMP-TWO (3 references
)
> Error: Unbound variable: TEMP-TWO
> While executing: #<Anonymous Function #x8CB4D7E>, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 >

rather than giving me => (4 3 2 1)

Hello,

When waiting on a semaphore with a timeout (via the function timed-wait-on-semaphore), if you issue a :proc from the listener thread, it interrupts the thread waiting on the semaphore in a way that causes the thread to abort the waiting.

It still runs the unwind portion of the unwind-protect. Perhaps the printing of the thread via :proc causes an interrupt that's incorrectly handled?

This is on 64 bit Ubuntu with kernel 2.6.24.6+desktop10+25.63

The following script reproduces the problem on the updated version of CCL 1.4. The problem also exhibits itself in 1.3. Does running the script in your own environments allow you to duplicate the problem, and can it be fixed?

Thanks!

(defvar *sem* (ccl:make-semaphore)) (ccl:process-run-function "sadf"

(lambda ()

(unwind-protect

(ccl:timed-wait-on-semaphore *sem* 20)

(print "unwinding"))))

(sleep 1) :proc