Custom Query (1030 matches)

The freebsd ports have a few test failures:

32 bit:

6 out of 21863 total tests failed: 
   CL-TEST::FUNCALL.ERROR.1, CL-TEST::FUNCALL.ERROR.2, CL-TEST::FUNCALL.ERROR.3, 
   CL-TEST::EXP.ERROR.6, CL-TEST::EXP.ERROR.7, CL-TEST::LISTEN.7.

see: ​http://setf.clozure.com:8010/builders/freebsdx8632/builds/1/steps/shell_3/logs/stdio

64-bit:

1 out of 21869 total tests failed: 
   CL-TEST::LISTEN.7.

see: ​http://setf.clozure.com:8010/builders/freebsdx8664/builds/1/steps/shell_3/logs/stdio

A funny bug with ~$ formating:

(defparameter *inflation*      1.06)
(defparameter *duration*      15          "Year")
(defparameter *yearly-amount* (* 12 1200) "Euro")
(defparameter *now-a-year*    (nth-value 5 (decode-universal-time (get-universal-time))))

(defun plus-interest (amount year rate)
  (* amount (expt year rate)))

(with-standard-io-syntax
 (loop
   :for i :from 15 :downto 0
   :for that-year-amount = (plus-interest *yearly-amount* i *inflation*)
   :sum that-year-amount :into total
   :do (format t "~4D:   ~2,9$   ~2,9$~%" (+ *now-a-year* i) that-year-amount total)))
2027:   000254108.47   000254108.47
2026:   000236188.17   000490296.62
2025:   000218344.56   000708641.20
2024:   000200583.20   000909224.40
2023:   000182910.52   001092134.90
2022:   000165334.11   1257469.00
2021:   147863.00   1405332.00
2020:   000130508.21   001535840.20
2019:   000113283.42   001649123.60
2018:   000096206.13   001745329.70
2017:   000079299.54   001824629.20
2016:   000062595.92   001887225.10
2015:   000046143.55   001933368.60
2014:   000030023.01   001963391.60
2013:   14400.00   001977791.60
2012:   000000000.00   001977791.60
nil

(format nil "~_{2f" 0.1) should return "10.0", but we get "0.1".}

(format nil "~,,2f" 0.1)  --> "0.1"         ; bad
(format nil "~8,,2f" 0.1) --> "    10.0"    ; ok
(format nil "~,8,2f" 0.1) --> "10.00000000" ; ok