Custom Query (1030 matches)

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

The garbage collector removes some interned symbols:

Welcome to Clozure Common Lisp Version 1.9-dev-r15418M-trunk  (LinuxX8632)!
? (progn (intern "FOO") (ccl:gc) (find-symbol "FOO"))
NIL
NIL
? 

Is this supposed to happen?

Hi,

a user of Hunchentoot has reported problems with Clozure CL and MD5, and I was able to track this down to a problem in CCL (tested with 1.8 on Linux):

Welcome to Clozure Common Lisp Version 1.8-r15286M  (LinuxX8632)!
? (defun foo ()
  (let ((block (make-array 16)))
    (loop for index of-type (integer 0 16) from 0 below 16
          do (print index)
             (setf (aref block index) #x00000000))))
FOO
? (foo)

0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
> Error: Array index 16 out of bounds for #<SIMPLE-VECTOR 16> .
> While executing: FOO, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.

If the type declaration in the loop is omitted, the problem does not occur.