Custom Query (1030 matches)

See ​http://lists.clozure.com/pipermail/openmcl-devel/2015-January/010839.html

The problem seems to be the lock-free version of clrhash not resetting nhash.grow-threshold.

? (let ((h (make-hash-table :size 100)))
    (format t "~&initial: ~s" (ccl::nhash.grow-threshold h))
    (dotimes (i 7) (setf (gethash i h) i))
    (format t "~&after use: ~s" (ccl::nhash.grow-threshold h))
    (clrhash h)
    (format t "~&after clrhash: ~s" (ccl::nhash.grow-threshold h)))
initial: 100
after use: 93
after clrhash: 93

Non-lock-free version works fine:

? (let ((h (make-hash-table :size 100 :lock-free nil)))
    (format t "~&initial: ~s" (ccl::nhash.grow-threshold h))
    (dotimes (i 7) (setf (gethash i h) i))
    (format t "~&after use: ~s" (ccl::nhash.grow-threshold h))
    (clrhash h)
    (format t "~&after clrhash: ~s" (ccl::nhash.grow-threshold h)))
initial: 100
after use: 93
after clrhash: 100

Works in 1.9, fails in trunk.

(defparameter *message* (make-array 20 :element-type '(unsigned-byte 8)
				       :initial-contents '(47 103 95 102 114 101 101 65 108 108 0 0 44 105 0 0 0 0 0 0)))

(defparameter *udp-server* (make-socket :type :datagram
					:local-port 42301))

(defparameter *udp-client* (make-socket :type :datagram
					:remote-port 42301))

(send-to *udp-client* *message* (length *message*))

See ​https://lists.clozure.com/pipermail/openmcl-devel/2015-January/010865.html

SLSIA:

Welcome to Clozure Common Lisp Version 1.10-r16304M  (DarwinX8664)!
? (find-symbol "ARGS")
NIL
NIL
? (arglist 'setf)
(&REST ARGS)
:DECLARATION
? (find-symbol "ARGS")
ARGS
:INTERNAL

The problem occurs only when calling CCL::ARGLIST on macros, not functions.

I know it's not kosher to complain about the behavior of unexported functions, but swank uses this and it causes real problems. For example, trying to (use-package :cl-who) in a swank session fails because the symbol STR gets interned in cl-user during the swank startup process.