🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.lisp
Article #506

Re: print floating date

#506
From: Noritoshi Rokujo
Date: Thu, 30 Jan 1992 10:10
28 lines
1589 bytes
In article <363@msisun.msi.co.jp> kuroda@msisun.msi.co.jp (Hisao Kuroda) writes:
$BO;>r!wIY;NDL$G$9!%(J

 kuroda>Common Lisp $B$K$*$$$F!"IbF0>.?tE@?t$N=PNO%U%)!<%^%C%H$r(J global 
 kuroda>$B$K;XDj$9$kJ}K!(Jkuroda>$B$H$$$&$N$O$"$k$N$G$7$g$&$+!)(J
 kuroda>* pi
 kuroda>
 kuroda>3.142
 kuroda>
 kuroda>$B$N$h$&$K=PNO$5$;$?$$$H$-!"(Jformat $B$r;H$o$:$K!"$&$^$/F($2$kJ}K!$,$"$l$P(J
 kuroda>$B65$($F$/$@$5$$!#(J

$B!V(Jformat$B$r;H$o$:$K!W$H$$$&$N$O(J
$B!V=PNO$9$k$?$S$KL@<(E*$K(Jformat$B$r;H$&$N$G$O$J$/$F!W$H$$$&0UL#$@$H$7$F!$(J
$B<!$N$h$&$J$N$O$I$&$G$7$g$&!)(J

;;; Sun Common Lisp, Development Environment 4.0.1, 6 July 1990

> (in-package 'clos)
#<Package "CLOS" 6A417E>
> (defmethod print-object ((x float) stream)
   (format stream "~,3f" x))
#<Standard-Method PRINT-OBJECT (FLOAT T)>
> pi
3.142
> 
--
nori@Fujitsu
Technical Details
Message-ID: <NORI.92Jan30101018@nsx.kagaku.se.fujitsu.co.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!sun-barr!ccut!wnoc-tyo-news!sh.wide!fgw!fdm!fdm-cnews!ffchi1!ffcnt!sysgi!kagaku!nori
References: <363@msisun.msi.co.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 1421c0,2f8b7df95599d83f
X-Google-Attributes: gid1421c0,public
X-Google-ArrivalTime: 1992-01-28 03:34:35 PST
Path: arc1-ca.pugleaf.net!sparky!uunet!sun-barr!ccut!wnoc-tyo-news!sh.wide!fgw!fdm!fdm-cnews!ffchi1!ffcnt!sysgi!kagaku!nori
From: nori@kagaku.se.fujitsu.co.jp (Noritoshi Rokujo)
Newsgroups: fj.lang.lisp
Subject: Re: print floating date
Message-ID: <NORI.92Jan30101018@nsx.kagaku.se.fujitsu.co.jp>
Date: 30 Jan 92 10:10:18 GMT
References: <363@msisun.msi.co.jp>
Sender: junet@kagaku.se.fujitsu.co.jp
Distribution: fj
Organization: Fujitsu Ltd. Scientific systems DEPT., Tokyo, Japan.
Lines: 28
In-Reply-To: kuroda@msisun.msi.co.jp's message of 28 Jan 92 02:05:39 GMT