; ;; reverse of cons: (cons 'b '(a)) (define cl:l-put (lambda (obj lst) (reverse (cons obj (reverse lst)))))