Function: CREATE-OUT-ARGLIST

Source

(defun create-out-arglist (args)
  (mapcar (lambda (arg)
	    `(mem-ref ,@(remove :out arg)))
	  (remove-if (complement (curry #'member :out))
		     args)))