Custom Query (1030 matches)

File-compiling (defun ltv ()

(car (load-time-value (list nil))))

Yields (ltv) => #:LOAD-TIME-EVAL and CDR yields ((FUNCALL #<Anonymous Function #x3020066140CF>))

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))

The following log probably describes the bug fully. I'm not sure how to assign the priority, but this seems major to me. It occurs in 16119 but not in 15915.

dunnottar:~% uname -a
Linux dunnottar 3.2.0-64-generic #97-Ubuntu SMP Wed Jun 4 22:04:21 UTC 2014 x86_64 x86_64 x86_64 GNU/Linux
dunnottar:~% ccl
Welcome to Clozure Common Lisp Version 1.10-dev-r16119M-trunk  (LinuxX8664)!
? (defun foo (ar)
    (* (aref (the (simple-array fixnum (*)) ar)
	     0)
       (the (signed-byte 61) 1)))
> Error: The value NIL is not of the expected type INTEGER.
> While executing: INTEGER-LENGTH, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 >