Custom Query (1030 matches)

? (defclass test () ())
? (defmethod make-instance :around ((a standard-class) &rest args) (inspect (call-next-method)))
? (make-instance 'test)
Segfault

(This is using ClozureCL2007-12-03.dmg) Take a large file, such as lispmode.lisp, scroll somewhere near the end, then add some newlines between two definitions by hitting return a few times rapidly. As the blank lines appear, they wipe out the lines below them, which then take several seconds to re-appear in the expected position, in a cascade-like effect.

(defun foo~ (x) x)

(foo~

As soon as you type a space after the last "~" above, you get my favourite error message: The sky is falling! Fred NEVER did this!

Dimitri