From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: igor denisov Newsgroups: gmane.emacs.bugs Subject: bug#21510: output Date: Fri, 18 Sep 2015 12:58:56 +0700 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 X-Trace: ger.gmane.org 1442556031 15434 80.91.229.3 (18 Sep 2015 06:00:31 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 18 Sep 2015 06:00:31 +0000 (UTC) To: 21510@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Sep 18 08:00:22 2015 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1ZcoiZ-0000cf-MA for geb-bug-gnu-emacs@m.gmane.org; Fri, 18 Sep 2015 08:00:19 +0200 Original-Received: from localhost ([::1]:35490 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZcoiZ-0004pT-2I for geb-bug-gnu-emacs@m.gmane.org; Fri, 18 Sep 2015 02:00:19 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41411) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZcoiR-0004oX-G8 for bug-gnu-emacs@gnu.org; Fri, 18 Sep 2015 02:00:15 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZcoiM-0002gw-LD for bug-gnu-emacs@gnu.org; Fri, 18 Sep 2015 02:00:11 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:44386) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZcoiM-0002gM-HZ for bug-gnu-emacs@gnu.org; Fri, 18 Sep 2015 02:00:06 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1ZcoiL-0002Tp-UD for bug-gnu-emacs@gnu.org; Fri, 18 Sep 2015 02:00:06 -0400 X-Loop: help-debbugs@gnu.org Resent-From: igor denisov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 18 Sep 2015 06:00:05 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 21510 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.14425559439401 (code B ref -1); Fri, 18 Sep 2015 06:00:05 +0000 Original-Received: (at submit) by debbugs.gnu.org; 18 Sep 2015 05:59:03 +0000 Original-Received: from localhost ([127.0.0.1]:36596 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1ZcohK-0002RZ-SN for submit@debbugs.gnu.org; Fri, 18 Sep 2015 01:59:03 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:59428) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1ZcohJ-0002RA-1Y for submit@debbugs.gnu.org; Fri, 18 Sep 2015 01:59:01 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZcohH-00025C-Ql for submit@debbugs.gnu.org; Fri, 18 Sep 2015 01:59:00 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:59263) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZcohH-000257-No for submit@debbugs.gnu.org; Fri, 18 Sep 2015 01:58:59 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41191) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZcohG-0004fz-SO for bug-gnu-emacs@gnu.org; Fri, 18 Sep 2015 01:58:59 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZcohF-00024Q-SV for bug-gnu-emacs@gnu.org; Fri, 18 Sep 2015 01:58:58 -0400 Original-Received: from mail-wi0-x234.google.com ([2a00:1450:400c:c05::234]:35830) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZcohF-00024E-LD for bug-gnu-emacs@gnu.org; Fri, 18 Sep 2015 01:58:57 -0400 Original-Received: by wicge5 with SMTP id ge5so17781098wic.0 for ; Thu, 17 Sep 2015 22:58:56 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:date:message-id:subject:from:to:content-type; bh=U+cdqi7Sa03VVPKhwiJHdUiZSnppulGe9gozwwatktY=; b=CDz1hYOdn+m8XLrgAiZ8wSoSBfntO9fYvMHtryv9TuTpdPBvFlv9rHKT8t/jeeMMTF uNS/l3llLWpIRqkCPfYNVav0Uxv3f3ka0BrO5jRcU1kUQ0nrxJ7BXNgx318O8IrUyMJm 6/WQtbqgrI9Wwd1BFTov0E8wMynk/JiqpTX50tDQEjTGJeDnyNCpW34zIKanCHh5lqHn ilcEe3LmLWLz20xSk3kWfc8xYX8t4RV/CoeWQRnyk/hfC4+CGb6oEagjWNiK0BIyryGP /s6cZ1bJEZ/IjG5B7NlPugIfTp15MDDCdynaQZ4Kz0lrzt+JvK1TqXpO5vhqSPU9k2AF x4BQ== X-Received: by 10.194.92.166 with SMTP id cn6mr4813940wjb.6.1442555936526; Thu, 17 Sep 2015 22:58:56 -0700 (PDT) Original-Received: by 10.27.170.206 with HTTP; Thu, 17 Sep 2015 22:58:56 -0700 (PDT) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:106699 Archived-At: ; Contract: Number, Number->Number (defun sub (a b) (- a b)) ;; Contract: Number, Number->Number (defun sum (a b) (+ a b)) (defvar height-list (let ((Hmc 4) (step 0.8)) (setq Hcw (sum Hmc step)) (setq Hcs (sub Hmc step)) (setq Htr (sum Hmc step)) (list Hmc Hcw Hcs Htr))) (defvar tooth-height-list (let ((hmc 0.8) (step 0.2)) (setq hcw (sum hmc step)) (setq hcs (sub hcw step)) (setq htr (sum hmc step)) (list hmc hcw hcs htr))) (defvar angle-list (let ((Amc 70) (step 5)) (setq Acw (sub Amc step)) (setq Acs (sub Amc step)) (setq Atr (sub Amc step)) (list Amc Acw Acs Atr))) (defvar base-list (let ((Bmc 4) (step 0.8)) (setq Bcw (sub Bmc step)) (setq Bcs Bmc) (setq Bcw Bcs) (setq Btr Bmc) (list Bmc Bcw Bcs Btr))) (defvar pitch-list (let ((Pmc 2) (step 1)) (setq Pcw (sum Pmc step)) (setq Pcs (sum Pcw step)) (setq Ptr Pmc) (list Pmc Pcw Pcs Ptr))) ;; Number of tooth in a row per 1cm (defun Nz (pitch-number) (100/pitch-number)) ;; Number of rows per 1cm (defun Nr (base-number) (100/base-number)) ;; parts per square cm (defun ppsc-calc (a b) (* a b)) ;; List of numbers of tooth in a row per 1cm (defun list-of-Nz (pitch-list) (if (not pitch-list) ; do again test nil (cons (Nz (car pitch-list)) (list-of-Nz (cdr pitch-list))))) ;next step expression ;; List of number of rows per 1cm (defun list-of-Nr (base-list) (if (not base-list) ; do again test nil (cons (Nr (car base-list)) (list-of-Nr (cdr base-list))))) ;next step expression (defvar list-of-ppsc) ;; List of part per square cm (defun list-of-ppsc-calc (pitch-list base-list) (if (and (not pitch-list) (not base-list)) nil (setq list-of-ppsc (cons (ppsc-calc (car pitch-list) (car base-list)) (list-of-ppsc-calc (cdr pitch-list) (cdr base-list)))))) (list-of-ppsc-calc pitch-list base-list) list-of-ppsc (defvar PPSCmc) (defvar PPSCcw) (defvar PPSCcs) (defvar PPSCtr) On issuing the following (defvar PPSCmc (car list-of-ppsc)) PPSCmc output is quite strange 8 (#o10, #x8, ?\C-h) why?