Re: Various problems

|--==> "jpw" == John Paul Wallington <jpw(a)shootybangbang.com&gt; writes: jpw> Steve Youngs <youngs(a)xemacs.org&gt; wrote: jpw> This sounds like it could be related to making jpw> `line-beginning-position' an alias for `point-at-bol'. jpw> I tried (require 'jde-db) with JDE package version 1.38 and XEmacs jpw> 21.5.9 (+CVS-20021228) but didn't get the error. I don't use JDE. Is Probably because the version of JDE that you have was built with XEmacs 21.4 (Rendhalver builds packages with 21.4). And besides, I only see the problem when building the package. jpw> there an easy way to reproduce it? Also, could you post a backtrace? To reproduce it just build the JDE package with XEmacs 21.5. The backtrace: While compiling jde-db-breakpoint-marker::initialize-instance in file /home/steve/test-it/build/packages/xemacs-packages/jde/lisp/jde-db.el: !! Wrong type argument ((listp #<subr point-at-bol>)) backtrace(nil t) # bind (error-info) byte-compile-report-error((wrong-type-argument listp #<subr point-at-bol>)) # bind (error-info) #<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2>((wrong-type-argument listp #<subr point-at-bol>)) # bind (fn name form) byte-compile-inline-expand((point-at-bol)) # bind (fn name form) byte-compile-inline-expand((line-beginning-position)) # bind (fn name form) byte-compile-inline-expand((jde-line-beginning-position)) # bind (opt new for-effect form) byte-optimize-form((jde-line-beginning-position)) mapcar(byte-optimize-form ((jde-line-beginning-position))) # bind (fn tmp for-effect form) byte-optimize-form-code-walker((extent-at (jde-line-beginning-position)) nil) # bind (for-effect form) byte-optimize-form((extent-at (jde-line-beginning-position))) mapcar(byte-optimize-form ((extent-at (jde-line-beginning-position)))) # bind (fn tmp for-effect form) byte-optimize-form-code-walker((not (extent-at (jde-line-beginning-position))) nil) # bind (for-effect form) byte-optimize-form((not (extent-at (jde-line-beginning-position)))) mapcar(byte-optimize-form ((not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position)))))) # bind (fn tmp for-effect form) 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) # bind (for-effect form) byte-optimize-form((or (not (extent-at (jde-line-beginning-position))) (not (jde-db-breakpoint-marker-p (extent-at (jde-line-beginning-position))))) nil) # bind (fn tmp for-effect form) 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) # bind (for-effect form) 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) # bind (fn tmp for-effect form) 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) # bind (for-effect form) 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))) 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)))) # bind (fn tmp for-effect form) 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) # bind (for-effect form) 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) # bind (fn tmp for-effect form) 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) # bind (for-effect form) 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) # bind (rest result fe new all-for-effect forms) 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) # bind (fn tmp for-effect form) 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) # bind (for-effect form) 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) # 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) 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) # bind (int doc body byte-compile-bound-variables arglist fun) 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))))) # bind (my-outbuffer class arg1 lamparams params key meth form) 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))))) # bind (byte-compile-current-form handler form) 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))))) # (unwind-protect ...) #<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>() # (unwind-protect ...) 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>) # (unwind-protect ...) # 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) byte-compile-from-buffer(#<buffer " *Compiler Input*"> "/home/steve/test-it/build/packages/xemacs-packages/jde/lisp/jde-db.el") # bind (byte-compile-current-file target-file input-buffer output-buffer byte-compile-dest-file load filename) byte-compile-file("lisp/jde-db.el") byte-code("..." [file byte-compile-file t] 2) # (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)))) # bind (file) batch-byte-compile-1("lisp/jde-db.el") # bind (error file-to-process) batch-byte-compile-one-file() # bind (error) batch-byte-compile() # bind (arg) command-line-do-funcall("-f") # bind (dir file-count line end-of-options file-p arg tem) command-line-1() # bind (command-line-args-left) command-line() # bind (error-data) normal-top-level() # (condition-case ... . error) # (catch top-level ...) Wrong type argument: listp, #<subr point-at-bol> Done gmake: *** [lisp/jde-db.elc] Error 1 Compilation exited abnormally with code 2 at Mon Dec 30 15:32:16 -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------&lt;youngs(a)xemacs.org&gt;---|