newlispfanclub.alh.net

Code: Select all

> (date (parse-date "2008" "%Y") 0 )
"Sun Dec 31 08:05:04 8676"

Code: Select all

void main(void){printf("%i\n",sizeof(int));}

Code: Select all

(define (fetch-all)
  (dotimes (x (num-rows)) (push (fetch-row) all))
  (reverse all))

Code: Select all

(define (fetch-all , all)

Code: Select all

apt-get source newlisp
cd newlisp-***
dpkg-buildpackage -rfakeroot

Code: Select all

(define (column n lst)
  (map (fn(x) (x n)) lst))

Code: Select all

> (set 'lst '((a 1 q)(b 2 w)(c 3 e)))
((a 1 q) (b 2 w) (c 3 e))
> (column 1 lst)
(1 2 3)