Custom Query (1030 matches)

(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

Having a PROCESS-PLIST accessor on PROCESS instances would be very helpful and appears to have benign consequences for existing code. This permits us to associate other items of interest with all processes, e.g., a PID (process descriptor) which can be used to encapsulate a lot of other information (e.g., mailboxes, locks, types of processes, etc.) without actually extending the PROCESS class object beyond the property list slot.

This is needed because calling make-process uses an existing class definition by default. New instances can be applied to extended class definitions using the :CLASS keyword parameter. But existing processes will not have the features needed by extended process objects. And the listener process, and perhaps others, will have already been created, yet need to participate with other instances in these extended applications.

By adding a PLIST slot with accessor CCL:PROCESS-PLIST we can associate arbitrary extensions with already existing processes as needed by applications.

(defclass process () .... (PLIST :INITFORM NIL :ACCESSOR PROCESS-PLIST) ...)

• DM

I get this fairly often when editing a file with lot of character constants, like format.lisp. In this case I was typing on a fresh line in the middle of a function: " (format scan-check #" and then I typed a backslash, but it crashed before the backslash got displayed. Below is the entire contents of the AltConsole window that popped up:

*** Error in event process: Array index 35 out of bounds for "  (format-scan-check #\\" .

  0: (:INTERNAL GUI::|-[HemlockTextView drawRect:]|) at pc +149
     Arguments: (#:G25462)
       #:G25462: #<SIMPLE-ERROR Array index 35 out of bounds for "  (format-scan-check #\\" . #x300041E3CEAD>
     Local bindings:
       #:COMPILER-VAR: (NIL)
       #:G25459: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFC8A0>

  1: SIGNAL at pc +981
     Arguments: (CONDITION &REST CCL::ARGS)
       CONDITION: #<SIMPLE-ERROR Array index 35 out of bounds for "  (format-scan-check #\\" . #x300041E3CEAD>
       CCL::ARGS: NIL
     Local bindings:
       CCL::%HANDLERS%: ((ERROR) (ERROR))
       CCL::TAG: #<SIMPLE-ERROR Array index 35 out of bounds for "  (format-scan-check #\\" . #x300041E3CEAD>
       CCL::HANDLERS: CCL::*BACKTRACE-CONTEXTS*
       CCL::FN: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[HemlockTextView drawRect:]|) #x493DBF>

  2: %ERROR at pc +117
     Arguments: (CONDITION CCL::ARGS CCL::ERROR-POINTER)
       CONDITION: #<SIMPLE-ERROR Array index 35 out of bounds for "  (format-scan-check #\\" . #x300041E3CEAD>
       CCL::ARGS: (35 "  (format-scan-check #\\")
       CCL::ERROR-POINTER: 558478

  3: (:INTERNAL CCL::%XERR-DISP) at pc +2485
     Arguments: ()
     Local bindings:
       CCL::FRAME-PTR: 558478
       CCL::FN: #<Compiled-function HEMLOCK-INTERFACE:LINE-CHARACTER #x30004140F18F>
       CCL::OP0: 205
       CCL::OP1: 200
       CCL::OP2: 254
       CCL::SKIP: -1
       CCL::XP: #<A Foreign Pointer #x7FFF5FBFC540>
       CCL::XCF: #<A Foreign Pointer #x442C70>

  4: FUNCALL-WITH-ERROR-REENTRY-DETECTION at pc +181
     Arguments: (CCL::THUNK)
       CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493CCF>
     Local bindings:
       COUNT: 0
       CCL::*ERROR-REENTRY-COUNT*: 0

  5: CCL::%XERR-DISP at pc +501
     Arguments: (#:G128837)
       #:G128837: 17591849973666
     Local bindings:
       #:G128847: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFBD10>
       CCL::XCF: #<A Foreign Pointer #x442C70>
       CCL::XP: #<A Foreign Pointer #x7FFF5FBFC540>
       #:G128848: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493CCF>

  6: %PASCAL-FUNCTIONS% at pc +397
     Arguments: (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
       CCL::INDEX: 2
       CCL::ARGS-PTR-FIXNUM: 17591849973666
     Local bindings:
       CCL::LISP-FUNCTION: #<Compiled-function CCL::

(it just ends here)