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

Work in progress.

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.