>>>> "Geoff" == Geoff Leach
<gl(a)cs.rmit.edu.au> writes:
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 ...)
>> Error occurred processing lisp/jde-db.el:
Geoff> make: *** [lisp/jde-db.elc] Error 1
--
Adrian Aichner
mailto:adrian@xemacs.org
http://www.xemacs.org/