206 |
(defun c1multiple-value-bind (args &aux (info (make-info)) |
(defun c1multiple-value-bind (args &aux (info (make-info)) |
207 |
(vars nil) (vnames nil) init-form |
(vars nil) (vnames nil) init-form |
208 |
ss is ts body other-decls |
ss is ts body other-decls |
209 |
(*vars* *vars*)) |
(*vars* *vars*) (*decls* *decls*)) |
210 |
(when (or (endp args) (endp (cdr args))) |
(when (or (endp args) (endp (cdr args))) |
211 |
(too-few-args 'multiple-value-bind 2 (length args))) |
(too-few-args 'multiple-value-bind 2 (length args))) |
212 |
|
|