: ) wonderful world ( :

“on average, average organizations will have average people” — Ralph Johnson

“No! Try not. Do… or do not. There is no try.” — Yoda, The Empire Strikes Back

$ cat descartes.lisp
(defun pusher (new ready)
  (loop as i in new
        append (loop as j in ready
                     collect (cons i j))))

(defun desc (&rest args)
  (let ((ini '(())))
    (progn
      (loop as L in args
            do (setf ini (pusher L ini)))
      (mapcar #'reverse ini))))

$ clisp -repl descartes.lisp
[1]> (desc '(a b) '(c d))
((A C) (B C) (A D) (B D))
[2]> 

A very useful shortcut sequence for MS Visual C++ .NET debugger if you are standing before a function call with a lot of argument containing other function calls and you want to debug just the outside function:

F12 - go to definition
[down arrow] - to find the first row
F9 - insert brake point
[control]-- - navigate backwards
F5 - continue