global? check

[Dmi]

Hi, Lutz!



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

Code Select Expand

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


[Lutz]

The global bit has moved, this corrected version works:

Code Select Expand

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


(global? 'x) => nil)

(global 'x)

(global? 'x) => true)


Lutz

[Dmi]

Thanks!!!!

[Fanda]

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



Fanda