mv-bind.lisp 165 Bytes
Newer Older
ram's avatar
ram committed
1 2 3 4 5 6 7 8 9
;;; -*- Package: C -*-

(in-package 'c)

(defun foo (x)
  (multiple-value-bind (y z)
		       (glortzx x)
    (declare (type fixnum y z))
    (the fixnum (+ y z))))