Custom Query (1030 matches)

(defvar h (make-hash-table :test #'equalp)) 
(setf (gethash #(#\a) h) t) 
(gethash "a" h) ; => nil (incorrectly)

This works as expected on the 1.8 release branch (that, is, (gethash "a" h) returns t).

Note that the spec entry for equalp says: "a string and a general array that happens to contain the same characters are equalp".

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

./lx86cl
(load "home:quicklisp;setup")
(ql:quickload :manardb)
(in-package :manardb)
(defun junk () (lisp-object-to-mptr nil))
> Error: Compiler bug or inconsistency:
>        x862-form to freg #<ACODE nil NIL>