17 Sep
2009
17 Sep
'09
6:46 a.m.
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."