$ clisp

<...snip...>

[1]> (load "permute3.l")
;; Loading file permute3.l ...
;; Loaded file permute3.l
T
[2]> (permute3 '(1 2 3))
((1 2 3) (1 3 2) (2 1 3) (2 3 1) (3 1 2) (3 2 1))
[3]> (permute3 '(red yellow blue))
((RED YELLOW BLUE) (RED BLUE YELLOW) (YELLOW RED BLUE) (YELLOW BLUE RED)
 (BLUE RED YELLOW) (BLUE YELLOW RED))
[4]> (bye)
Bye.