Custom Query (1030 matches)

The following results in a bad error under CCL 1.10 / Win64. it does work as expected under Win32 :

(defun define-char (character &rest data)
  (let ((chardata (make-array (list (length data) (length (car data)))
                              :element-type 'bit
                              )))
    (loop for m from 0
       for item in data
       do (loop for n from 0
             for bit in (coerce item 'list)
             do (setf (aref chardata m n) (if (zerop bit) 0 1))
               ))))


(define-char #\Space
    #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0))

? (load "c:/temp/foo.lisp")
;Compiler warnings for "c:/temp/foo.lisp" :
;   In DEFINE-CHAR: Unused lexical variable CHARACTER
> Error: Fault during read of memory address #xB
> While executing: DEFINE-CHAR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.}}}

Hard to believe but this is what I'm getting:

? (= (+ .6 .8) 1.4)
NIL
? (+ .8 .6)
1.4000001
? (+ .6 .8)
1.4000001
? (+ .6 .8 .1)
1.5000001
? (- .8 .6)
0.19999999

I do not see this for other numbers, e.g.

? (+ .6 .9)
1.5
? (+ .6 .7)
1.3

.6 and .8 somehow have to be involved, but this is not systematic: e.g.

? (+ .1 .6 .8)
1.5

I tried other numbers but could not find similar behavior for addition, but for substraction i'm also getting:

? (- .9 .6)
0.29999995
? (- .6 .9)
-0.29999995
? (- .6 .5)
0.100000024
? (- .7 .8)
-0.100000024

I also seem to getting similar problems with multiplication but only with numbers 0<x<1 and with one decimal

this is one particular terminal test session:

$ ccl
Welcome to Clozure Common Lisp Version 1.2-r11241M  (DarwinX8664)!
? (= (+ .6 .8) 1.4)
NIL
? (= (+ .6 .9) 1.5)
T
? (+ .6 .8)
1.4000001
? (+ .6 .9)
1.5
? (+ .6 .7)
1.3
? (+ .8 .6)
1.4000001
? (+ .5 .6)
1.1
? (+ .8 .6 .1)
1.5000001
? (- .6 .8)
-0.19999999
? (- .5 .8)
-0.3
? (- .6 .6)
0.0
? (- .6 .7)
-0.099999964
? (* .1 .1)
0.010000001
? (* 1 1)
1
? (* 2 .1) 
0.2
? (* 1.1 1.1)
1.21
? (* 1.1 .1)
0.11000001
? (* .2 .2)
0.040000003
? (* .1 1)
0.1
? (* .1 .1111)
0.01111
? (* .1 .11)
0.011
? (* .1 .1)
0.010000001
? (* .11 .11)
0.0121

platform: Mac OS X 10.5.5 on 64bit intel
ccl: 1.2-r11241M (DarwinX8664) compile from svn checked out on Wed 29 Oct 2008

What could be the problem here?

The macro new-pixel-format from the rubix opengl example code (in rubix/opengl.lisp) has been redefined as a function and does not appear to be functional. Error attached and here's the code which resulted in the error:

(opengl:new-pixel-format #$NSOpenGLPFAMultisample

#$NSOpenGLPFASampleAlpha #$NSOpenGLPFASampleBuffers 2 #$NSOpenGLPFASamples 4)

(it's a minor issue, but I do need the functionality as my non-example code uses it)