Changeset 7776


Ignore:
Timestamp:
09/21/04 13:53:08 (17 years ago)
Author:
piso
Message:

Work in progress.

Location:
trunk/j/src/org/armedbear/lisp
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/slime.lisp

    r7756 r7776  
    22;;;
    33;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: slime.lisp,v 1.25 2004-09-20 02:14:47 piso Exp $
     4;;; $Id: slime.lisp,v 1.26 2004-09-21 13:53:08 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    378378  (when function-name
    379379    (setf function-name (string function-name))
     380    (let ((pos (position #\: function-name)))
     381      (when pos
     382        (setf package-name (subseq function-name 0 pos))
     383        (setf function-name (subseq function-name (1+ (position #\: function-name :from-end t))))))
    380384    (let ((definitions
    381385            (slime-eval `(swank:find-definitions-for-function-name ,function-name
  • trunk/j/src/org/armedbear/lisp/swank-abcl.lisp

    r7727 r7776  
    22;;;
    33;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: swank-abcl.lisp,v 1.5 2004-09-18 18:31:07 piso Exp $
     4;;; $Id: swank-abcl.lisp,v 1.6 2004-09-21 13:52:18 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    5353      (ext:resolve name)))
    5454  (when (ext:source name)
    55     `(((,name)
     55    `((,(princ-to-string name)
    5656       (:location
    5757        (:file ,(namestring (ext:source-pathname name)))
  • trunk/j/src/org/armedbear/lisp/swank-sbcl.lisp

    r7584 r7776  
    11;;; swank-sbcl.lisp
    22
    3 ;;; From SLIME.
     3;;; Adapted from SLIME.
    44
    55(eval-when (:compile-toplevel :load-toplevel :execute)
     
    102102      collect (list `("method"
    103103                      ,(princ-to-string name)
    104                       ,(sb-pcl::unparse-specializers method))
     104                      ,(princ-to-string (sb-pcl::unparse-specializers method)))
    105105                    (safe-function-source-location method name)))))
    106106
Note: See TracChangeset for help on using the changeset viewer.