global? check

Dmi · Post by **Dmi** » Wed May 23, 2007 6:40 am

Hi, Lutz!

The function, you suggested eraly isn't working anymore and always returns nil.

(define (global? s)
  "(global? 'sym) - return 'sym if it is global, otherwise - nil"
  (let (mask (if (= (pack "d" 1) "\000\001") 0x02000000 0x00000200))
    (= (& (get-int (last (dump s))) mask) mask)))

Lutz · Post by **Lutz** » Wed May 23, 2007 7:57 am

The global bit has moved, this corrected version works:

Code: Select all

 (define (global? s)
     (let (mask (if (= (pack "d" 1) "\000\001") 
                        0x00200000 0x00000020))
          (= (& (get-int (last (dump s))) mask) mask)))


(global? 'x) => nil)

(global 'x)

(global? 'x) => true)

Lutz

Dmi · Post by **Dmi** » Wed May 23, 2007 7:59 am

Thanks!!!!

Fanda · Post by **Fanda** » Wed May 23, 2007 5:07 pm

Maybe, we could add 'global?' to the newLISP core.

Fanda