Custom Query (1030 matches)

When running (cl-glut-examples:gears), an exception occurs, and the kernel debugger is invoked.

To reproduce:

In your packages directory, you'll need:

• alexandria
  
• babel
  
• cffi
  
• cl-opengl
  
• trivial-features
  

At the repl:

(asdf:oos 'asdf:load-op :cl-glut-examples)
(cl-glut-examples:gears)

It is believed to be a CFFI and foreign functions related issue. See IRC log of 3rd June, 2009 for more details.

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.

(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