Custom Query (1030 matches)

Calls to HASH-TABLE-COUNT on lock-free hash-tables spend a lot of time in LOCK-FREE-COUNT-ENTRIES. This is at least an issue for GBBOpen (​http://gbbopen.org/svn/GBBopen/trunk/ISSUES)

(defclass ubyte-stream ()

())

(defmethod cl:stream-element-type ((stream ubyte-stream))

'(unsigned-byte 8))

;; --------------------------------------------------------------------------------

(defclass ubyte-output-stream (ccl:fundamental-binary-output-stream ubyte-stream)

((arr :accessor uos-arr :initform (make-array 0

:element-type '(unsigned-byte 8) :adjustable t :fill-pointer t))))

(defun make-ubyte-output-stream ()

(make-instance 'ubyte-output-stream))

Now try:

(defparameter s (make-ubyte-output-stream))

(write-byte 15 s) -->> boom!

value #<UBYTE-OUTPUT-STREAM #x9224AEE> is not of the expected type (AND

OUTPUT-STREAM CCL::BINARY-STREAM).

[Condition of type TYPE-ERROR]

Yet, if I do the following:

(typep s '(and output-stream ccl::binary-stream)) ==> t

If there are multiple versions of a function definition in a file, Meta-. currently leads to the first occurrence.

It should instead find the valid (current) version of the function (the one that is evaluated last). This is oftentimes (but not always) the last version in the buffer.