Lisp 1.5 funargs example from https://web.archive.org/web/20211202101850/http://web.sonoma.edu/users/l/luvisi/lisp/lisp15.tar.gz

funargs.lisp

       TEST  FUNARG
define ((
  (double (lambda (x) (plus x x)))
))

double (6)

deflist ((
  (test-fexpr (lambda (args alist) 
                      (prog () (print args) (print alist))))
 ) FEXPR)
define ((
  (test1 (lambda (a) (test-fexpr b c)))
))
test1 (6)

define ((
    (make-adder   (lambda (x) (make-closure)))
    (make-closure (lambda () (function (lambda (y) (addx y)))))
    (addx         (lambda (z) (plus x z)))
    (do-test      (lambda () (prog (a)
                               (setq a (make-adder 4))
                               (print (a 2))
                               (print (a 3))
                               (setq a (make-adder 5))
                               (print (a 2))
                               (print (a 3)))))
  ))
do-test ()

define ((
  (make-box (lambda (x) (function (lambda () (return-x)))))
  (return-x (lambda () x))
  (test-box (lambda () (prog (f)
                          (setq f (make-box 5))
                          (print (f)))))
))
test-box ()

STOP
       FIN      END OF LISP RUN