Custom Query (1030 matches)

ITA wants r14662 in 1.6.

? (defun foo () (push 'a (list 'x 'x)))
;Compiler warnings :
;   In FOO: Undefined function SETF::|COMMON-LISP::LIST|
FOO
? (foo)
> Error: Undefined function (SETF LIST) called with arguments (-335123572 X X) .
> While executing: CCL::TOPLEVEL-EVAL, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Retry applying (SETF LIST) to (-335123572 X X).
> Type :? for other options.

meta-. doesn't work, in the sense that nothing happens if you put in point in the middle of a symbol and hit meta-., in a number of perfectly reasonable contexts:

• comments: ;; (foo)

• Strings: "This is a doc string about foo"

• Quotes: (funcall 'foo) or (funcall #'foo)

It needs to try harder. If standard hemlock parsing doesn't yield anything useful, it should just gather up all the symbol constituents around point and try that.