On Thu, Jan 19, 2017 at 05:50:00PM +0100, Alexander Burger wrote:
> Note that (setq Do_it NIL) is (off Do_it), and you could also use an 'or' for
> the two equal consequences. Then the above becomes:
> 
>    (setq
>       Pg_bks 7
>       Lns_from_top 6
>       Do_it T )
>    (case 2
>       (1 (prinl "in 1"))
>       (2
>          (cond
>             ((or (> 2 Pg_blks) (> 6 Lns_from_top))
>                (off Do_it) )
>             (Do_it
>                (prinl "yes doing a")
>                (prinl "yes doing b")
>                (prinl "yes doing c") ) ) ) )


Normally, of course, you will use 'let' instead of 'setq':

   (let (Pg_bks 7  Lns_from_top 6  Do_it T)
      (case 2
         (1 (prinl "in 1"))
         (2
            (cond
               ((or (> 2 Pg_blks) (> 6 Lns_from_top))
                  (off Do_it) )
               (Do_it
                  (prinl "yes doing a")
                  (prinl "yes doing b")
                  (prinl "yes doing c") ) ) ) ) )

♪♫ Alex
-- 
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to