[armedbear-devel] [j-devel] slime swank-abcl.lisp

[Mark Evenson]

On 9/16/09 4:05 PM, Tobias C. Rittweiler wrote:
[…]

>> The intention of the first operand in the (AND POS (PLUSP POS) was to
>> guard against getting a nil from EXT:SOURCE-FILE-POSITION, right?  So
>> don't we want this implementation:
>>
>> (defun source-location (symbol)
>>     (when (pathnamep (ext:source-pathname symbol))
>>       (let ((pos (ext:source-file-position symbol)))
>>         `(((,symbol)
>>            (:location
>>              (:file ,(namestring (ext:source-pathname symbol)))
>>              ,(if pos
>>                   (list :position (1+ pos))
>>                   (list :function-name (string symbol)))
>>              (:align t)))))))
>
> Yes, exactly.

Committed to SLIME CVS HEAD.  Thanks for the help.

-- 
"A screaming comes across the sky.  It has happened before, but there
is nothing to compare to it now."