On 2/17/11 3:13 PM, Raymond Toy wrote: Spoke too soon. Now I'm getting an error when compiling sudoku. Not sure what happened previously, but I don't get far enough to run tex anymore. Error appended below. Ray While compiling sudoku-mode-setup-modeline in file /Volumes/share2/src/xemacs/hg/xemacs-packages/packages/xemacs-packages/games/sudoku.el: ** modeline-multibyte-status is an obsolete variable; use modeline-coding-system instead. While compiling sudoku-autoinsert: !! Wrong type argument ((symbolp (quote autoins))) backtrace(nil t) # bind (error-info) byte-compile-report-error((wrong-type-argument symbolp (quote autoins))) # bind (error-info) #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (error-info) "...(4)" [error-info byte-compile-report-error] 2 0xbf3>((wrong-type-argument symbolp (quote autoins))) symbol-name((quote autoins)) # bind (copy-properties symbol) copy-symbol((quote autoins)) # bind (body name) #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/cl-macs.elc") (name &rest body) "...(33)" [cl-macro-environment body name cl-active-block-names copy-symbol progn put cl-block-name catch quote cl-macroexpand-all] 5 ("/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/cl-macs.elc" . 16959) 0xcb3>((quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) #<subr macroexpand-internal>((block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) ((sudoku-foreach-cell . #<compiled-function (cell &rest forms) "...(16)" [forms cell dotimes (i 9) (j 9) let ((cons i j)) progn] 8 "Run FORMS for each CELL." 0xe7f>) (sudoku-with-save-possibles . #<compiled-function (&rest forms) "...(6)" [forms let ((sudoku-current-possibles (copy-tree sudoku-current-possibles)))] 3 "Execute FORMS saving `sudoku-current-possibles'." 0xe5d>) (sudoku-cell-ref . #<compiled-function (cell board) "...(12)" [board cell nth car cdr] 5 0xe5a>) (byte-compiler-options . #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (&rest forms) "...(5)" [forms apply byte-compiler-options-handler] 3 0xbcc>) (eval-when-compile . #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (&rest body) "...(8)" [body quote byte-compile-eval progn] 4 0xbcd>) (eval-and-compile . #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (&rest body) "...(10)" [body byte-compile-eval progn] 3 0xbce>) (the . #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (type form) "...(31)" [byte-compile-delete-errors type form cl-const-expr-p eval cl-make-type-test byte-compile-warn "%s is not of type %s" the] 4 0xbcf>))) # bind (cl-macro-environment cl-env cl-macro) macroexpand((block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) ((sudoku-foreach-cell . #<compiled-function (cell &rest forms) "...(16)" [forms cell dotimes (i 9) (j 9) let ((cons i j)) progn] 8 "Run FORMS for each CELL." 0xe7f>) (sudoku-with-save-possibles . #<compiled-function (&rest forms) "...(6)" [forms let ((sudoku-current-possibles (copy-tree sudoku-current-possibles)))] 3 "Execute FORMS saving `sudoku-current-possibles'." 0xe5d>) (sudoku-cell-ref . #<compiled-function (cell board) "...(12)" [board cell nth car cdr] 5 0xe5a>) (byte-compiler-options . #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (&rest forms) "...(5)" [forms apply byte-compiler-options-handler] 3 0xbcc>) (eval-when-compile . #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (&rest body) "...(8)" [body quote byte-compile-eval progn] 4 0xbcd>) (eval-and-compile . #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (&rest body) "...(10)" [body byte-compile-eval progn] 3 0xbce>) (the . #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (type form) "...(31)" [byte-compile-delete-errors type form cl-const-expr-p eval cl-make-type-test byte-compile-warn "%s is not of type %s" the] 4 0xbcf>))) # bind (fn tmp for-effect form) byte-optimize-form-code-walker((block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) nil) # bind (for-effect form) byte-optimize-form((block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) nil) # bind (fn tmp for-effect form) byte-optimize-form-code-walker((unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc)) nil) # bind (for-effect form) byte-optimize-form((unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc)) nil) # bind (rest result fe new all-for-effect forms) byte-optimize-body(((unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc))) nil) # bind (fn tmp for-effect form) byte-optimize-form-code-walker((let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc))) nil) # bind (for-effect form) byte-optimize-form((let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc))) nil) # bind (rest result fe new all-for-effect forms) byte-optimize-body(((let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc)))) nil) # bind (fn tmp for-effect form) byte-optimize-form-code-walker((if (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) nil (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc)))) nil) # bind (for-effect form) byte-optimize-form((if (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) nil (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc)))) nil) # bind (fn tmp for-effect form) byte-optimize-form-code-walker((unless (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc)))) nil) # bind (for-effect form) byte-optimize-form((unless (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc)))) nil) # bind (fn tmp for-effect form) byte-optimize-form-code-walker((progn (unless (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc))))) nil) # bind (for-effect form) byte-optimize-form((progn (unless (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc))))) 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 (unless (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc))))) nil lambda) # bind (compiled-int int doc body byte-compile-bound-variables arglist fun) byte-compile-lambda((lambda (&optional cell deduce) "Fill cells with only value possible.\nGoto CELL then.\nSuitable to be used with `sudoku-after-change-hook'.\nIf `sudoku-autoinsert' raises \"Not a valid move\" error\nthen it means it found contradiction, so some of your previous moves\nwas incorrect.\nAuto-insert does not work for pencils." (interactive) (unless (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc)))))) # bind (byte-compile-free-assignments byte-compile-free-references that-one this-one that-kind this-kind name macrop form) byte-compile-file-form-defmumble((defun sudoku-autoinsert (&optional cell deduce) "Fill cells with only value possible.\nGoto CELL then.\nSuitable to be used with `sudoku-after-change-hook'.\nIf `sudoku-autoinsert' raises \"Not a valid move\" error\nthen it means it found contradiction, so some of your previous moves\nwas incorrect.\nAuto-insert does not work for pencils." (interactive) (unless (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc))))) nil) # bind (form) byte-compile-file-form-defun((defun sudoku-autoinsert (&optional cell deduce) "Fill cells with only value possible.\nGoto CELL then.\nSuitable to be used with `sudoku-after-change-hook'.\nIf `sudoku-autoinsert' raises \"Not a valid move\" error\nthen it means it found contradiction, so some of your previous moves\nwas incorrect.\nAuto-insert does not work for pencils." (interactive) (unless (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc)))))) # bind (byte-compile-current-form handler form) byte-compile-file-form((defun sudoku-autoinsert (&optional cell deduce) "Fill cells with only value possible.\nGoto CELL then.\nSuitable to be used with `sudoku-after-change-hook'.\nIf `sudoku-autoinsert' raises \"Not a valid move\" error\nthen it means it found contradiction, so some of your previous moves\nwas incorrect.\nAuto-insert does not work for pencils." (interactive) (unless (or (positivep sudoku-current-pencil) (and cell (sudoku-cell-empty-p cell))) (let ((gc (or cell (sudoku-current-cell))) (sb (copy-tree sudoku-current-board))) (unwind-protect (block (quote autoins) (while (some (function (lambda (fun) (let ((rv (funcall fun cell deduce))) (when (and deduce rv) (return-from (quote autoins) t)) rv))) sudoku-deduce-methods))) (unless (equal sb sudoku-current-board) (push sb sudoku-boards-stack)) (sudoku-goto-cell gc)))))) # (unwind-protect ...) #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") nil "...(56)" [byte-compile-unresolved-functions filename byte-compile-inbuffer byte-compile-outbuffer goto-char point-max 1 " \n " nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-insert-header byte-compile-warn-about-unresolved-functions] 4 0xbf4>() # (unwind-protect ...) call-with-condition-handler(#<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (error-info) "...(4)" [error-info byte-compile-report-error] 2 0xbf3> #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") nil "...(56)" [byte-compile-unresolved-functions filename byte-compile-inbuffer byte-compile-outbuffer goto-char point-max 1 " \n " nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-insert-header byte-compile-warn-about-unresolved-functions] 4 0xbf4>) # (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-checks-on-load 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 byte-compile-force-escape-quoted byte-compile-using-dynamic eval filename byte-compile-inbuffer) byte-compile-from-buffer(#<buffer " *Compiler Input*"> "/Volumes/share2/src/xemacs/hg/xemacs-packages/packages/xemacs-packages/games/sudoku.el") # bind (byte-compile-current-file target-file input-buffer output-buffer byte-compile-dest-file load filename) byte-compile-file("sudoku.el") byte-code("..." [file byte-compile-file t] 2) or-message mapc #<compiled-function (from "/Volumes/share/darwin10.6/share/xemacs-21.5-b29/lisp/bytecomp.elc") (x) "...(8)" [x princ " " prin1] 2 0xc8e> "\n"] 3)))) # bind (file) batch-byte-compile-1("sudoku.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 ...) (quote autoins) Done _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches