From: Lynn Q. <quam@AI.SRI.COM> - 2003-12-15 17:07:18
|
------- Start of message ------- From: Lynn Quam <quam@AI.SRI.COM> To: ili...@co... 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? |