Custom Query (1030 matches)

​https://lists.clozure.com/pipermail/openmcl-devel/2014-November/010720.html

Set priority to major as this affects all stream reading. Running Windows 8.1 64bit though the code suggests my environment has little to do with the underlying issue.

At REPL, this is the error,

Error: The value 1.0 is not of the expected type <SIGNED-BYTE 32>. While executing: CCL::FD-INPUT-AVAILABLE-P, in process listener(1).

There's only one declare statement in fd-input-available-p, see level-1\l1-streams.lisp lines 5552-5553, (let* ((res (int-errno-call (#_poll pollfds 1 (or milliseconds -1))))) (declare (fixnum res))

(int-errno-call) is a wrapped call to (%get-errno), see lib\macros.lisp lines 3912-3917

%get-errno, 32bit target, see level-0\X86\x86-io.lisp, is more complicated than I can parse. However, it seems pretty obvious that the code between line 43 (box-fixnum imm0 arg_z) and line 51 (single-value-return) is the issue.

Verified that, on the same system, 64bit code functions fine (does not return a floating point). Obvious that this would be the case though after reviewing the 64bit implementation of %get-errno as there is no code between the box-fixnum and return.

(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".