From: lin8080 <lin8080@fr...>  20030714 20:15:23

Hallo There is something going not so like I expect. I wrote a simple code (see below) to examine some numbers. It works well with floats and integers, (also shows the stack overflow when the numbers are to big, but I use small numbers, so this is no problem). Now, when I type in (rechne (sin 30)) it returns some numbers in the way like complex numbers are shown. And I think there is something going wrong ... Here is the code: (setq rechen (makearray '(9 3))) (print "Bitte eingeben (rechne xx)  xx steht für eine Zahl") ; this is: "please input (rechne xx) where xx is your number" (defun rechne (zahl) (setf x (* zahl zahl)) (setf (aref rechen 0 0) x) (setf y (sqrt zahl)) (setf (aref rechen 0 2) y) (setf (aref rechen 0 1) " ") (setf x1 (* x y)) (setf (aref rechen 1 0) x1) (setf y1 (/ x y)) (setf (aref rechen 1 2) y1) (setf (aref rechen 1 1) " ") (setf x2 (* x1 y1)) (setf (aref rechen 2 0) x2) (setf y2 (/ x1 y1)) (setf (aref rechen 2 2) y2) (setf (aref rechen 2 1) " ") .... (setf x8 (* x7 y7)) (setf (aref rechen 8 0) x8) (setf y8 (/ x7 y7)) (setf (aref rechen 8 2) y8) (setf (aref rechen 8 1) " ") (print rechen) ) The input is: (rechne (sin 30)) The output looks like this: #2A((0.9762065 " " #C(0 0.993997 (#C(0 0.9703471) " " #C(0 0 (0.9529791 " " 0.9880316) .... Please check it out on other systems (mine is win98 on P133128MB) and when it is like an error please correct it. so long stefan 