Changeset 14981


Ignore:
Timestamp:
Sep 15, 2011, 7:57:53 PM (8 years ago)
Author:
rme
Message:

Nicer ELF function names in some circumstances.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/elf.lisp

    r14946 r14981  
    166166
    167167(defun elf-lisp-function-name (f)
    168   (let* ((name (format nil "~s" f)))
    169     (subseq (nsubstitute #\0 #\# (nsubstitute #\. #\Space name)) 1)))
     168  (let* ((name (function-name f)))
     169    (if (and (symbolp name)
     170             (eq f (fboundp name)))
     171      (with-standard-io-syntax
     172        (format nil "~s" name))
     173      (let ((str (format nil "~s" f)))
     174        (subseq (nsubstitute #\0 #\# (nsubstitute #\. #\Space str)) 1)))))
    170175
    171176
Note: See TracChangeset for help on using the changeset viewer.