edit-definitions-lisp problems

------- Start of message -------
From: Lynn Quam <[email protected]>
To: [email protected]
Subject: edit-definitions-lisp problems
Date: Sat, 13 Dec 2003 10:22:21 -0800

I did a cvs update of my ilisp sources on Dec 12, 2003.
It had been a year or so since my last cvs update.

Almost everything appears to work ok except for EDIT-DEFINITIONS-LISP.
It appears that something is broken for finding the methods of generic
functions.


I have a generic-function named SELECTED-OBJECT. 

If I start up CMUCL without loading and definitions for
SELECTED-OBJECT and do <meta>-. on (SELECTED-OBJECT ...) I get the
following messages:

  No symbol "selected-object" available in package "COMMON-LISP-USER".
  No more selected-object definitions in *cmulisp*.
  Searching /opt/IU/FREEDIUS/lisp/basic-gui/display.lisp for any selected-object
  lisp-locate-clisp: shouldn't have been given type "any", for (nil nil "selected-object").

Everything looks fine except the last message:

  lisp-locate-clisp: shouldn't have been given type "any", for (nil  nil "selected-object").


Now when I load my definition for SELECTED-OBJECT and do <meta>-. on
(SELECTED-OBJECT ...) I get the following messages:

  Finding any selected-object definitions
  GUI::SELECTED-OBJECT is a generic function with 1 method.
  No more selected-object definitions in *freedius-cmucl*.
  Searching /opt/IU/FREEDIUS/lisp/basic-gui/display.lisp for any selected-object
  lisp-locate-clisp: shouldn't have been given type "any", for (nil nil "selected-object").

I set do (setq debug-on-error t) and do <meta>-.  again and get the
following backtrace:

Debugger entered--Lisp error: (error "shouldn't have been given type \"any\", for (nil nil \"selected-object\").")
  signal(error ("shouldn't have been given type \"any\", for (nil nil \"selected-object\")."))
  error("shouldn't have been given type %S, for %S." "any" (nil nil "selected-object"))
  lisp-locate-clisp((nil nil "selected-object") "any" t nil)
  lisp-locate-definition-in-file(lisp-locate-clisp [cl-struct-ilisp-defn-spec (nil nil "selected-object") "selected-object" "any" "/opt/IU/FREEDIUS/lisp/basic-gui/display.lisp" nil nil] t)
  lisp-next-definition(nil t)
  next-definition-lisp(nil t)
  lisp-edit-definitions-normal(("GUI" "::" "selected-object") "any" nil nil)
  edit-definitions-lisp(("GUI" "::" "selected-object") "any")
  call-interactively(edit-definitions-lisp)


Any ideas?


-------------------------------------------------------
This SF.net email is sponsored by: SF.net Giveback Program.
Does SourceForge.net help you be more productive?  Does it
help you create better code?  SHARE THE LOVE, and help us help
YOU!  Click Here: http://sourceforge.net/donate/