picolisp

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

ext.l (473B)

      1 # 12nov09abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 ### ext:Snx ###
      5 (test "PSLSFSNTSNNLSF"
      6    (ext:Snx "PicoLisp is not Common Lisp") )
      7 (test "PSLSFSNT"
      8    (ext:Snx "PicoLisp is not Common Lisp" 8) )
      9 
     10 
     11 ### ext:Ulaw ###
     12 (test (32 47 63 78 255 206 191 175 160)
     13    (mapcar 'ext:Ulaw (-8000 -4000 -2000 -1000 0 1000 2000 4000 8000)) )
     14 
     15 
     16 ### ext:Base64 ###
     17 (test "TQ=="
     18    (pipe (ext:Base64 77) (line T)) )
     19 (test "AQID"
     20    (pipe (ext:Base64 1 2 3) (line T)) )
     21 
     22 # vi:et:ts=3:sw=3