picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

lint.l (457B)

      1 # 26mar09abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 ### noLint ###
      5 (let foo '(() (bar FreeVariable))
      6    (use *NoLint
      7       (noLint 'bar)
      8       (noLint 'foo 'FreeVariable)
      9       (test NIL (lint 'foo)) ) )
     10 
     11 
     12 ### lint ###
     13 (let foo '((R S T R) (let N 7 (bar X Y)))
     14     (test '((var T) (dup R) (def bar) (bnd Y X) (use N))
     15        (lint 'foo) ) )
     16 
     17 (let foo '(() (task -6000 0 X 7 (println N)))
     18    (test '((bnd N) (use X))
     19        (lint 'foo) ) )
     20 
     21 # vi:et:ts=3:sw=3