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

Mark Evenson evenson at panix.com
Thu Sep 17 06:46:24 UTC 2009

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."

More information about the armedbear-devel mailing list