1 ;; -*- Mode: Lisp; Lowercase: True -*-
2 
3 ;; destructuring_let.incl.lisp - Loads lisp_destructuring_let_ into either
4 ;; the compiler or interpreter environment.
5 ;; Written:  October 1982 by Carl Hoffman
6 
7 (eval-when (eval compile)
8   (or (status feature destructuring_let)
9       (load (catenate (car (namelist (truename infile))) ">lisp_destructuring_let_"))))