From: <ol...@in...> - 2002-01-20 12:49:05
|
Sorry Doc. I didn't realise the reply to was to the sender and not to the list. Resent to the list. On 20 Jan 2002 08:56:02 +0100, ed...@ag... (Dr. Edmund Weitz) wrote: >ol...@in... (Thaddeus L. Olczyk) writes: > >> I'm trying to get this package working with 2.27, but have several >> problems: >> 1) The first is that it doesn't like my version of tk/tcl ( it says >> above 8.1 mine is 8.3 ). To fix this I modify the configure.in >> which seems to work. >> 2) I seem to get all sorts of package errors. Everytime I modify the >> build process I get more errors. The first one ( if I remeber >> correctly is ) was special-form-p which I replaced with >> ext:special-form-p. I get errors about the package SYMBOL >> being missing ( I couldn't find it in the source ). fundamental-input >> stream got changed to gray:fundamental-input-stream. >> Then when loading debugger.fas, it complained that the package >> DEBUGGER wasn't defined. >>=20 >> I figure ( and am desperately hoping ) that it's something that a few >> changes can fix, but I can't figure out what those changes were. >> Can anyone help? > >I can't help directly but I can confirm that (after patching >configure.in to recognize Tcl/Tk 8.3) it works fine with CMUCL. I >think what you're encountering must be due to changes in CLISP since >lispdebug was released. > I've actually discovered what the problem is: I've cut and paste this piece with the bug in it. ( I put in the format. ) (format *standard-output* "~%Entering offending party ~%") (defun parse-definition-package (source i l) (declare (string source) (fixnum i l)) (let ((symbol "")) (declare (string symbol)) (multiple-value-setq (symbol i) (parse-definition-string source i l)) (format *standard-output* "symbol-name-1:~S~%" symbol) (when (not (string=3D symbol "")) (format *standard-output* "symbol-name:~S~%" symbol) (when (not (find-package symbol)) (make-package symbol)) ; ******** This line generates error. (in-package symbol)) i)) (format *standard-output* "Exiting offending party ~%") Loading it I get the error between the first format and the last. The others do not get executed. This happens while the compiler is loading the file so in the line with the error ( find-package symbol ) trys to find the package "SYMBOL" at the time of loading, not when the function is called. Any idea how to fix this? |