Re: Problem compiling packages from cvs with 21.5.10

Geoff> Hi Geoff> I'm running into a problem compiling the (updated) packages Geoff> from CVS. I've (re)built XEmacs by pulling it from CVS and Geoff> cvs update with (sticky) tag 21-5-latest-beta. I've also Geoff> updated package-compile.el to 1.56 to fix the compile Geoff> problems. Geoff> In compiling jde I get the problem below ... Thanks for the report, Geoff. This particular problem is already known. See our smoketests http://labb.contactor.se/~matsl/smoketest/logs/ advertized at the end of http://www.xemacs.org/Develop/ Best regards, Adrian Geoff> Geoff <lines deleted by Adrian> Geoff> While compiling jde-db-breakpoint-marker::initialize-instance in file /home/gl/XEmacs/packages/xemacs-packages/jde/lisp/jde-db.el: Geoff> !! Wrong type argument ((listp #<subr point-at-bol>)) Geoff> backtrace(nil t) Geoff> # bind (error-info) Geoff> byte-compile-report-error((wrong-type-argument listp #<subr point-at-bol>)) Geoff> # bind (error-info) Geoff> #<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2>((wrong-type-argument listp #<subr point-at-bol>)) Geoff> # bind (fn name form) Geoff> byte-compile-inline-expand((point-at-bol)) Geoff> # bind (fn name form) Geoff> byte-compile-inline-expand((line-beginning-position)) Geoff> # bind (fn name form) Geoff> byte-compile-inline-expand((jde-line-beginning-position)) Geoff> # bind (opt new for-effect form) Geoff> byte-optimize-form((jde-line-beginning-position)) Geoff> mapcar(byte-optimize-form ((jde-line-beginning-position))) Geoff> # bind (fn tmp for-effect form) Geoff> byte-optimize-form-code-walker((extent-at (jde-line-beginning-position)) nil) Geoff> # bind (for-effect form) Geoff> byte-optimize-form((extent-at (jde-line-beginning-position))) Geoff> mapcar(byte-optimize-form ((extent-at (jde-line-beginning-position)))) Geoff> # bind (fn tmp for-effect form) Geoff> byte-optimize-form-code-walker((not (extent-at (jde-line-beginning-position))) nil) Geoff> # bind (for-effect form) Geoff> byte-optimize-form((not (extent-at (jde-line-beginning-position)))) Geoff> mapcar(byte-optimize-form ((not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position)))))) Geoff> # bind (fn tmp for-effect form) Geoff> byte-optimize-form-code-walker((or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) nil) Geoff> # bind (for-effect form) Geoff> byte-optimize-form((or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) nil) Geoff> # bind (fn tmp for-effect form) Geoff> byte-optimize-form-code-walker((if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) nil) Geoff> # bind (for-effect form) Geoff> byte-optimize-form((if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) nil) Geoff> # bind (fn tmp for-effect form) Geoff> byte-optimize-form-code-walker((if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t)) nil) Geoff> # bind (for-effect form) Geoff> byte-optimize-form((if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t))) Geoff> mapcar(byte-optimize-form (this (quote marker) (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t)))) Geoff> # bind (fn tmp for-effect form) Geoff> byte-optimize-form-code-walker((eieio-oset this (quote marker) (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t))) nil) Geoff> # bind (for-effect form) Geoff> byte-optimize-form((eieio-oset this (quote marker) (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t))) nil) Geoff> # bind (fn tmp for-effect form) Geoff> byte-optimize-form-code-walker((oset this marker (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t))) nil) Geoff> # bind (for-effect form) Geoff> byte-optimize-form((oset this marker (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t))) nil) Geoff> # bind (rest result fe new all-for-effect forms) Geoff> byte-optimize-body(((call-next-method) (oset this marker (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t)))) nil) Geoff> # bind (fn tmp for-effect form) Geoff> byte-optimize-form-code-walker((progn (call-next-method) (oset this marker (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t)))) nil) Geoff> # bind (for-effect form) Geoff> byte-optimize-form((progn (call-next-method) (oset this marker (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t)))) nil) Geoff> # bind (byte-compile-constants byte-compile-variables byte-compile-tag-number byte-compile-depth byte-compile-maxdepth byte-compile-output output-type for-effect form) Geoff> byte-compile-top-level((progn (call-next-method) (oset this marker (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t)))) nil lambda) Geoff> # bind (int doc body byte-compile-bound-variables arglist fun) Geoff> byte-compile-lambda((lambda (this &rest fields) "Create a breakpoint overlay at LINE in FILE." (call-next-method) (oset this marker (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t))))) Geoff> # bind (my-outbuffer class arg1 lamparams params key meth form) Geoff> byte-compile-file-form-defmethod((defmethod initialize-instance ((this jde-db-breakpoint-marker) &rest fields) "Create a breakpoint overlay at LINE in FILE." (call-next-method) (oset this marker (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t))))) Geoff> # binWrong type argument: listp, #<subr point-at-bol> Geoff> Doned (byte-compile-current-form handler form) Geoff> byte-compile-file-form((defmethod initialize-instance ((this jde-db-breakpoint-marker) &rest fields) "Create a breakpoint overlay at LINE in FILE." (call-next-method) (oset this marker (if (featurep (quote xemacs)) (if (or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) (make-extent (jde-line-beginning-position) (1+ (jde-line-end-position)))) (make-overlay (jde-line-beginning-position) (1+ (jde-line-end-position)) (current-buffer) nil t))))) Geoff> # (unwind-protect ...) Geoff> #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n" nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>() Geoff> # (unwind-protect ...) Geoff> call-with-condition-handler(#<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2> #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n" nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>) Geoff> # (unwind-protect ...) Geoff> # bind (byte-compile-warnings-beginning byte-compile-point-max-prev byte-compile-log-buffer byte-compile-macro-environment byte-compile-function-environment byte-compile-autoload-environment byte-compile-unresolved-functions byte-compile-bound-variables byte-compile-free-references byte-compile-free-assignments byte-compile-verbose byte-optimize byte-compile-emacs19-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings byte-compile-file-domain byte-compile-outbuffer float-output-format case-fold-search print-length print-level byte-compile-constants byte-compile-variables byte-compile-tag-number byte-compile-depth byte-compile-maxdepth byte-compile-output eval filename byte-compile-inbuffer) Geoff> byte-compile-from-buffer(#<buffer " *Compiler Input*"> "/home/gl/XEmacs/packages/xemacs-packages/jde/lisp/jde-db.el") Geoff> # bind (byte-compile-current-file target-file input-buffer output-buffer byte-compile-dest-file load filename) Geoff> byte-compile-file("lisp/jde-db.el") Geoff> byte-code("..." [file byte-compile-file t] 2) Geoff> # (condition-case ... . ((error (byte-code "ÂÃ!��!��Ä!��Æ!«�� Ç\"���� ＠ÈN®�＠!��Ê A\"��Ë!��� [file err princ ">>Error occurred processing " ": " fboundp display-error nil error-message mapcar #<compiled-function (x) "...(8)" [x princ " " prin1] 2> "\n"] 3)))) Geoff> # bind (file) Geoff> batch-byte-compile-1("lisp/jde-db.el") Geoff> # bind (error file-to-process) Geoff> batch-byte-compile-one-file() Geoff> # bind (error) Geoff> batch-byte-compile() Geoff> # bind (arg) Geoff> command-line-do-funcall("-f") Geoff> # bind (dir file-count line end-of-options file-p arg tem) Geoff> command-line-1() Geoff> # bind (command-line-args-left) Geoff> command-line() Geoff> # bind (error-data) Geoff> normal-top-level() Geoff> # (condition-case ... . error) Geoff> # (catch top-level ...) Geoff> make: *** [lisp/jde-db.elc] Error 1 -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/