/[gcl]/gcl/cmpnew/gcl_cmpmulti.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpmulti.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by camm, Thu Sep 16 21:08:18 2004 UTC revision 1.7 by camm, Sat Dec 11 00:34:35 2004 UTC
# Line 206  Line 206 
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    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26