On Sat, 2003-09-06 at 08:10, Gerd Moellmann wrote: > Gerd Moellmann <[EMAIL PROTECTED]> writes: > > > I'm afraid the only way that I can currently cover that path through > > the code > > I should probably add "without seeing the warnings", although this > seems to be only path through the code where the variable names > appearing in the warnings seem to be used.
Here is the error I'm seeing. Craig ------------------------------------------------------------ [EMAIL PROTECTED] ws-cmucl]$ cmucl ; Loading #p"/home/lanning/.cmucl-init". CMU Common Lisp post-18e CVS 2003-07-10 19:31:51, running on lanning With core: /usr/lib/cmucl/lib/lisp.core Dumped on: Thu, 2003-07-10 19:52:21-04:00 on lorien.users.earthlink.net See <http://www.cons.org/cmucl/> for support information. Loaded subsystems: Python 1.1, target Intel x86 CLOS based on Gerd's PCL 2003/06/18 09:23:09 * (compile-file "cmu/patch-pcl.lsp") ; ; Error: (during macroexpansion) ; ; Attempt to modify the locked package PCL, by ; defining macro SIMPLE-LEXICAL-METHOD-FUNCTIONS ; ; Byte Compiling Top-Level Form: ; Compilation unit finished. ; 1 error #p"/src/expo/devel/ws-cmucl/cmu/patch-pcl.x86f" T T * (load "cmu/patch-pcl") Execution of a form compiled with errors: (DEFMACRO SIMPLE-LEXICAL-METHOD-FUNCTIONS ((LAMBDA-LIST METHOD-ARGS NEXT-METHODS &REST LMF-OPTIONS) &BODY BODY) `(LET ((,METHOD-ARGS ,METHOD-ARGS) (,NEXT-METHODS ,NEXT-METHODS)) (DECLARE (IGNORABLE ,METHOD-ARGS ,NEXT-METHODS)) (BIND-SIMPLE-LEXICAL-METHOD-MACROS (,METHOD-ARGS ,NEXT-METHODS) (BIND-LEXICAL-METHOD-FUNCTIONS ,LMF-OPTIONS (BIND-ARGS (,LAMBDA-LIST ,METHOD-ARGS) ,@BODY))))) [Condition of type SIMPLE-PROGRAM-ERROR] Restarts: 0: [CONTINUE] Return NIL from load of "cmu/patch-pcl". 1: [ABORT ] Return to Top-Level. Debug (type H for help) (C::DO-CALL #<Code Object "Top-Level Form" {48044B4F}> 10 11 4 ...) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/byte-interp.lisp. 0] backtrace 0: (C::DO-CALL #<Code Object "Top-Level Form" {48044B4F}> 10 11 4 ...) 1: (LISP::FOP-FUNCALL-FOR-EFFECT) 2: (LISP::LOAD-GROUP #<Stream for file "/src/expo/devel/ws-cmucl/cmu/patch-pcl.x86f">) 3: (LISP::FASLOAD #<Stream for file "/src/expo/devel/ws-cmucl/cmu/patch-pcl.x86f">) 4: (LISP::INTERNAL-LOAD #p"cmu/patch-pcl.x86f" #p"/src/expo/devel/ws-cmucl/cmu/patch-pcl.x86f" :ERROR :BINARY) 5: (LOAD "cmu/patch-pcl" :VERBOSE NIL :PRINT ...) 6: (INTERACTIVE-EVAL (LOAD "cmu/patch-pcl")) 7: (LISP::%TOP-LEVEL) 8: ((LABELS LISP::RESTART-LISP SAVE-LISP)) 0] abort * (quit) [EMAIL PROTECTED] ws-cmucl]$ exit exit Process shell finished
