Changeset 8447


Ignore:
Timestamp:
Feb 9, 2008, 5:10:30 PM (12 years ago)
Author:
gz
Message:

use buffer-package fn

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/gz-working/cocoa-ide/hemlock/src/edit-defs.lisp

    r8428 r8447  
    7777(defcommand "Edit Definition" (p)
    7878  "Prompts for function/macro's definition name and goes to it for editing."
    79   "Prompts for function/macro's definition name and goes to it for editing."
    8079  (declare (ignore p))
    8180  (let ((fun-name (prompt-for-string
     
    8382                   :help "Symbol name of function.")))
    8483    (get-def-info-and-go-to-it fun-name (or
    85                                              (find-package
    86                                               (variable-value 'current-package :buffer (current-buffer)))
    87                                              *package*))))
     84                                         (buffer-package (current-buffer))
     85                                         *package*))))
    8886
    8987(defun get-def-info-and-go-to-it (string package)
Note: See TracChangeset for help on using the changeset viewer.