Custom Query (1030 matches)

The following results in a bad error under CCL 1.10 / Win64. it does work as expected under Win32 :

(defun define-char (character &rest data)
  (let ((chardata (make-array (list (length data) (length (car data)))
                              :element-type 'bit
                              )))
    (loop for m from 0
       for item in data
       do (loop for n from 0
             for bit in (coerce item 'list)
             do (setf (aref chardata m n) (if (zerop bit) 0 1))
               ))))


(define-char #\Space
    #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0))

? (load "c:/temp/foo.lisp")
;Compiler warnings for "c:/temp/foo.lisp" :
;   In DEFINE-CHAR: Unused lexical variable CHARACTER
> Error: Fault during read of memory address #xB
> While executing: DEFINE-CHAR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.}}}

Not sure if this is a bug or changes required on my end due to bridge changes re: framework loading as the error message isn't telling me anything helpful (I've attached the backtrace as Trac seems to want to wrap everything making it very difficult to read)

Reported by <p2.edoc@…> in openmcl-devel on 9 Jun 2014, but it bothers me too so I'm reporting it. Printing long sexprs to the listener in the IDE is a denial-of-service attack.

Setting variables like *print-length* or hitting cmd-, are not adequate solutions for this problem: if you forget to set *print-length* in advance, you're hosed. And once the spinning beachball of death appears, cmd-, is useless.

Try executing the following form in the listener in the IDE and the listener in the command line. The experiences will be very different. In the command line, hitting cmd-. or cmd-, always stops the output. But in the IDE, cmd-. never works and cmd-, only works occasionally, assuming you don't have a beachball. Very often, the only recourse in the IDE is to force-quit CCL.

(let ((l (make-list 100 :initial-element 'foo))) (make-list 100000 :initial-element l))